Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VIA Excel - Composing a Lotus Notes email without sending | Excel Programming | |||
Sending An Email To Web-Based Lotus Notes 7 | Excel Discussion (Misc queries) | |||
Sending an email on workbook save | Excel Programming | |||
outlook draft email | Excel Programming | |||
Sending Email using Lotus Notes | Excel Programming |