.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


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

LOTUSSCRIPT/COM/OLE CLASSES

Examples: CreateNewsletter method
This script performs a full-text search on the current database and creates a newsletter with a link to each matching document. The newsletter gets mailed to Sharron Karasic.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.FTSearch( "arachnid", 15 )
If ( collection.Count > 0 ) Then
 Set newsletter = session.CreateNewsletter( collection )
 Set doc = newsletter.FormatMsgWithDoclinks( db )
 doc.Form = "Memo"
 doc.Subject = "The Arachnid Report"
 Call doc.Send( False, "Sharron Karasic" )
End If

See Also