ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Lotus save as draft (instead of sending email) (https://www.excelbanter.com/excel-programming/427714-lotus-save-draft-instead-sending-email.html)

jacque

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!


All times are GMT +1. The time now is 03:28 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com