Passing in a value from the Subject Line of Current Document in to a sub in a agent

Posted on 2008-10-08
Last Modified: 2013-12-18
I have a agent that runs when new documents arrive.  The agent creates a new email and sends it to a user that is listed in the message of the document.  I would like to pass the value of the subject line of the current document to the subject line of the agent created email.  The agent is using a sub and I am not sure how to pass the value.

I will paste the agent

I want memo2.Subject to have the same value as the Subject of the current document.  If not for using the sub I would try something like

memo2.Subject = cur.Subject
Sub Initialize

	Dim s As New NotesSession

	Dim db As NotesDatabase

	Dim c As NotesDocumentCollection

	Dim cur As NotesDocument


	Set db = s.CurrentDatabase

	Set c = db.UnprocessedDocuments


	Set cur = c.GetFirstDocument

	Do Until cur Is Nothing

		If Not cur.HasItem( "flagProcessed" ) Then                'if it doesn't have flag - process it

			Call SendMemoFromTag( cur, "username", Chr(10) )

			Call cur.ReplaceItemValue( "flagProcessed", "1" )      'flag the processed e-mail

			Call cur.Save( True, False, True )                                'you must save the change in the doc

		End If

		Set cur = c.GetNextDocument( cur )


End Sub

Sub SendMemoFromTag(memo As NotesDocument, Byval tagStart As String, Byval tagEnd As String)


	Dim sess As New NotesSession

	Dim parts As Variant

	Dim body As String, sendto As String

	sess.ConvertMime = True

	body = memo.GetItemValue("Body")(0)

	If (Instr(1, body, tagStart, 5) = 0) Then Exit Sub

	parts = Split(body, tagStart)

	If (Instr(1, parts(1), tagEnd, 5) = 0) Then sendto = Trim(parts(1)) Else sendto = Trim(Strleft(parts(1), tagEnd))


	Dim memo2 As NotesDocument

	Set memo2 = memo.ParentDatabase.CreateDocument


	line1  = "Job Number: " & OrderNo & Chr(10)

	line2 = "Requester Name: " & sendto & Chr(10)

	line3 = "Your job has been completed by the model shop." & Chr(10)

	line4 = "If you have any questions please contact us" & Chr(10)


	memo2.Form = "memo"

	memo2.Subject = "Your Model Shop request has been completed."

	memo2.Body = line1 +  line2 + line3 + line4 

	memo2.SendTo = sendto

	Call memo2.Send(False)


End Sub

Open in new window

Question by:Jaziar
  • 2
  • 2
LVL 63

Accepted Solution

SysExpert earned 250 total points
ID: 22673468
It may work in any case , just change it to

memo2.Subject = memo.Subject

and  place it after

 memo2.SendTo = sendto

I hope this helps !

Author Comment

ID: 22673663
What if I wanted to put the value in the body of the text??
LVL 63

Expert Comment

ID: 22673925
add a line5 as

 line5 = memo.Subject

and put it where you want in the order where the lines are appended
  memo2.Body = line1 +  line2 + line3 + line4 + line5

Change the order for your needs.


Author Comment

ID: 22678321
I get a type mismatch when I try that

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

For Desktop Techs: How to retain a user's Notes configuration data when swapping out the end user's computer. (Assuming that you are not upgrading to a completely different version of Notes client) All you need to do is: 1) install Notes o…
Article by: Rob
Notes 8.5 Archiving Steps and Tips This article covers setting up a Notes archive, and helps understand some of the menu choices making setting up and maintaining a Notes archive file easier.
This video discusses moving either the default database or any database to a new volume.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now