HCL Domino - Examples: SentByAgent property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: SentByAgent property
1. This script checks if a document was sent by a script and, if so, deletes it.

Dim doc As NotesDocument '...set value of doc... If doc.SentByAgent Then Call doc.Remove( True ) End If

2. This agent script runs when new mail is received in the current database, and processes newly received mail documents. The script checks each mail document to see if it was sent by a person; if so, it sends a reply; if not, it does nothing.

Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim memo As NotesDocument Dim reply As NotesDocument Set db = session.CurrentDatabase ' get new mail memos Set collection = db.UnprocessedDocuments Set memo = collection.GetFirstDocument() While Not(memo Is Nothing) If Not( memo.SentByAgent ) Then Set reply = memo.CreateReplyMessage( False ) reply.Subject = "Re: " & memo.Subject( 0 ) reply.Body = _ "I'm out of the office until 3/15. John." Call reply.Send( False ) End If Call session.UpdateProcessedDoc( memo ) Set memo = collection.GetNextDocument(memo) Wend

See Also

SentByAgent property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents