With just a little work, and the creation of
a Notes.Session object, one can open the user's Lotus Notes eMail
database, and create a Memo document.
Using the different Notes methods, the Header, Subject, and Body of
the message can be set, and Notes Will automatically add the user as the
sender of the message.
Now, instead of Sending the message, we do a save.
When you save, it should be noted that there are to paramaters to the
doc.Save action, and we are setting them both TRUE in this example.
Paste this function into your code, and you should get a draft
document in your Louts Notes eMail.
Function NotesWriteMemo()
Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GetDatabase("", "")
If db.IsOpen = True Then
'Already open for mail
Else
db.OPENMAIL
End If
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.sendto = "Recipient"
doc.Subject = "Monthly Reports " & Format(Now, "LONG DATE")
doc.Body = "BodyText"
doc.SaveMessageOnSend = True
doc.Save True, True
Set doc = Nothing
Set db = Nothing
Set Session = Nothing
End Function
