Solved

Logic added to a agent

Posted on 2008-10-08
1
201 Views
Last Modified: 2013-12-18
The agent working as designed.  But now I have 2 different types of emails coming in to my inbox that the agent is working on.  In the message of one of the emails there is the text jobopen and the other email has jobclosed.  Basically a email gets sent out when a job is started and when it is closed.  So the verbage has to be differnt in the email the agent is sending out.

I think the best place to put the if statement would be in the sub.  

But I am not sure how I would go about passing the value of jobopen or jobclosed to the 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

	

	

	memo2.Form = "memo"

	memo2.Subject = "Model Shop Job Completed for " & sendto

	memo2.Body = "Your job is completed.  Please come and pick up the part."

	memo2.SendTo = sendto

	Call memo2.Send(False)

	

End Sub

Open in new window

0
Comment
Question by:Jaziar
1 Comment
 
LVL 63

Accepted Solution

by:
SysExpert earned 250 total points
ID: 22670731
IS the subject the same in both types of message ?

If not, then pass the subject as another variable to the sub, and use that to determine if it is starting or finished.


I hope this helps !
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

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…
For beginners of Lotus Notes user this is important to know about the types of files and their location supported by IBM Notes. Mostly users are unaware about how many file types are created and what their usages are. This Article is fully dedicated…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Migrating to Microsoft Office 365 is becoming increasingly popular for organizations both large and small. If you have made the leap to Microsoft’s cloud platform, you know that you will need to create a corporate email signature for your Office 365…

910 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

21 Experts available now in Live!

Get 1:1 Help Now