Using a LotusScript agent to reply to mail from the Internet

http://www-01.ibm.com/support/docview.wss?uid=swg21230700

Technote (FAQ)

Question

In your Lotus Notes® mail file, you want to automatically reply to mail messages that are received from Internet addresses. For example, you want to send a "Thank you for your inquiry" message to all who send you mail from the Internet. How can you do this?

Answer

You can use a LotusScript agent to test for Internet addresses and limit the replies to those senders. For example, the agent below would use the trigger of "After new mail arrives." The agent tests for an Internet address and then sends a reply to the sender
with a "Thank you for your inquiry" response.
NOTE: The code below is a sample script provided to illustrate one way to approach this issue.
In order for this example to perform as intended, the script must be laid out exactly as indicated below. IBM Support cannot customize this script for a customer's own configuration.

In the script, you can customize the BodyText variable as desired. The code can be placed in the Initialize event.

Dim session As New NotesSession 

Dim db As NotesDatabase 

Dim col As NotesDocumentCollection 

Dim doc As NotesDocument 

Dim MailDoc As NotesDocument 

Dim Body As NotesRichTextItem 

Dim OldBody As NotesRichTextItem 

Dim OriginalFromAddress As String 

Dim Subject As String 

Dim BodyText As String 

'This is the body of the email, Chr(10) indicates a new line 

'you can change the body to whatever you want following this format 

BodyText = "Thank you for your inquiry." + Chr(10) +_ 

"This is an automatically generated response. Please do not reply." + Chr(10) +_ 

"We will contact you shortly regarding your inquiry." + Chr(10) +_ 

"Regards," + Chr(10)+_ 

"John Doe" 'SET THIS TO DESIRED NAME 

'set objects

Set db = session.CurrentDatabase 

Set col = db.UnprocessedDocuments 

Set doc = col.GetFirstDocument 

'set the subject of the email to go out

Subject = "Re: " + doc.GetItemValue("Subject")(0) 

'loop through the document collection

While Not doc Is Nothing

'check the address to see if it contains an @ sign

If doc.HasItem("SMTPOriginator") Then

OriginalFromAddress = doc.GetItemValue("SMTPOriginator")(0)

Elseif doc.HasItem("From") Then

OriginalFromAddress = doc.GetItemValue("From")(0)

Else

Goto nextdoc

End If

'if an @ sign is found, send a reply

If Instr(OriginalFromAddress,"@") <> 0 Then

'create a new mail document

Set MailDoc = db.CreateDocument 

'set the subject and from fields

Call MailDoc.ReplaceItemValue("Subject", Subject) 

'set the body and append the body from the original email

Set OldBody = doc.GetFirstItem("body") 

Set body = MailDoc.CreateRichTextItem("body") 

Call body.AppendText(bodyText) 

Call body.AddNewline(2) 

Call body.AppendRTItem(oldBody) 

'send the document

Call MailDoc.Send(False,OriginalFromAddress)

End If

Nextdoc:

'update the processedDoc flag so that this document isn't processed 

'again on a subsequent run 

Call session.UpdateProcessedDoc(doc) 

'get the next document in the collection

Set doc = col.GetNextDocument(doc)

Wend