Solved

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

Posted on 2008-10-08
4
198 Views
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 )
	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
Comment
Question by:Jaziar
  • 2
  • 2
4 Comments
 
LVL 63

Accepted Solution

by:
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 !
0
 

Author Comment

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

Expert Comment

by:SysExpert
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.

0
 

Author Comment

by:Jaziar
ID: 22678321
I get a type mismatch when I try that
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Lotus Notes 8.0 Forward emails for 30 days. 8 115
Send a link through lotus notes automated mail 11 155
IBM SAN DS 3512 Controllers Networking issues 11 69
Lotus Notes Calendar Help 6 106
Lack of Storage capacity is a common problem that exists in every field of life. Here we are taking the case of Lotus Notes Emails, as we all know that we are totally depend on e-communication i.e. Emails. This article is fully dedicated to resolvin…
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.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

696 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