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!
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!