View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
jacque jacque is offline
external usenet poster
 
Posts: 5
Default Lotus save as draft (instead of sending email)

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!