• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 203
  • Last Modified:

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

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 )
	Loop
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

0
Jaziar
Asked:
Jaziar
  • 2
  • 2
1 Solution
 
SysExpertCommented:
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 !
0
 
JaziarAuthor Commented:
What if I wanted to put the value in the body of the text??
0
 
SysExpertCommented:
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.

0
 
JaziarAuthor Commented:
I get a type mismatch when I try that
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now