Lotus save as draft (instead of sending email)

J

Jacque

I have code working to send an email in Lotus, but instead of sending I'd
like it to save the email as a draft.

At the end of my function I use to send the email, the following code
appears (I would like to know what I can replace the MailDoc.send line - the
last line - with in order to save as draft instead of send):



'OPEN THE MAIL DATABASE IN NOTES
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then 'ALREADY OPEN FOR MAIL
Else
Maildb.OPENMAIL
End If

'SET UP THE NEW MAIL DOCUMENT
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = recip
MailDoc.cc = recip_cc
MailDoc.subject = subject
MailDoc.body = body_text
MailDoc.SAVEMESSAGEONSEND = SaveIt

'SET UP THE EMBEDDED OBJECT AND ATTACHEMENT AND ATTACH IT
For i = 1 To num_attachments
Set AttachME = MailDoc.CREATERICHTEXTITEM(attachment(i))
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment(i),
attachment(i))
Next i

'SEND THE DOCUMENT
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items
folder
MailDoc.sendto = recip
MailDoc.CopyTo = recip_cc
MailDoc.send (False)


I really appreciate any help with this!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top