Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
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!
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
VIA Excel - Composing a Lotus Notes email without sending PCLIVE Excel Programming 2 April 14th 08 06:50 PM
Sending An Email To Web-Based Lotus Notes 7 SEAN DI''''ANNO Excel Discussion (Misc queries) 0 June 7th 07 10:16 AM
Sending an email on workbook save matpj[_31_] Excel Programming 5 January 17th 06 04:57 PM
outlook draft email Erin Excel Programming 0 September 21st 04 02:55 AM
Sending Email using Lotus Notes Bob[_26_] Excel Programming 1 July 29th 03 07:31 PM


All times are GMT +1. The time now is 03:12 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"