Go Back  Xtreme Visual Basic Talk > Legacy Visual Basic (VB 4/5/6) > VBA / Office Integration > Word, PowerPoint, Outlook, and Other Office Products > Saving mail as draft in Lotus Notes


Reply
 
Thread Tools Display Modes
  #1  
Old 07-01-2003, 06:49 AM
nigel tickell nigel tickell is offline
Newcomer
 
Join Date: Jul 2003
Posts: 3
Unhappy Saving mail as draft in Lotus Notes


I use the command "Call notesDoc.Send" to send my Lotus Notes but would like to save my mail as draft before mailing. Can anyone enlighten me as to the command for this?
Reply With Quote
  #2  
Old 07-01-2003, 07:37 AM
JordanChris JordanChris is offline
Senior Contributor

* Expert *
 
Join Date: Jan 2003
Location: Newbury, UK
Posts: 1,092
Default

There are calls like:
doc.SaveMessageOnSend = True
Call doc.PutInFolder("BBSS")

Maybe these will help you....
Reply With Quote
  #3  
Old 07-01-2003, 09:43 AM
nigel tickell nigel tickell is offline
Newcomer
 
Join Date: Jul 2003
Posts: 3
Default

I tried to substitute your code and opened another folder in my notes database, then used that name as the destination folder for my e-mails but it doesn't work. My macro runs end to end but nothing apears in the folder.
Reply With Quote
  #4  
Old 07-01-2003, 09:49 AM
JordanChris JordanChris is offline
Senior Contributor

* Expert *
 
Join Date: Jan 2003
Location: Newbury, UK
Posts: 1,092
Default

The code suggested came from this snippet:
(As I say, I have never used it, but I kept this just in case it was useful).

This needs a reference to Lotus Domino (not Notes Automation Classes).
Code:
Dim session As Object Dim db As Object Dim doc As Object Dim msg, MyAttachment As String Dim rtitem As Object Const EMBED_ATTACHMENT = 1454 Set session = CreateObject("Notes.NotesSession") Set db = session.GetDatabase("", "") Call db.OpenMail Set doc = db.CreateDocument msg = "LATE BINDING TEST" & vbCrLf & vbCrLf Call doc.ReplaceItemValue("SendTo", session.UserName) Call doc.ReplaceItemValue("Subject", "OLE") Set rtitem = doc.CreateRichTextItem("Body") Call rtitem.AppendText(msg) MyAttachment = "g:\cds30\bbss2\adddev50.rpt" Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", MyAttachment) doc.SaveMessageOnSend = True Call doc.PutInFolder("BBSS") Call doc.Send(False) Set session = Nothing MsgBox "Email sent.", vbOKOnly + vbInformation
Reply With Quote
  #5  
Old 07-02-2003, 04:11 AM
nigel tickell nigel tickell is offline
Newcomer
 
Join Date: Jul 2003
Posts: 3
Default

--------Call doc.PutInFolder("BBSS")

works if I stick my mail in any named folder other than the Drafts folder. I wonder if this folder has attributes which require that I have to address the drafts folder specifically at an earlier point in the macro?

Anybody have any ideas?
Reply With Quote
  #6  
Old 07-22-2003, 11:21 AM
rgvitali's Avatar
rgvitali rgvitali is offline
Regular
 
Join Date: Jul 2003
Location: St. Paul, MN
Posts: 74
Default Lotus notes email SAVEMESSAGEONSEND

Quote:
Originally Posted by nigel tickell
I use the command "Call notesDoc.Send" to send my Lotus Notes but would like to save my mail as draft before mailing. Can anyone enlighten me as to the command for this?



I wish I had an answer as well. I have been trying to use Call notesdoc.SAVEMESSAGEONSEND(True) and I am getting "object doesn't support property" error message.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Reading Lotus Notes E-Mail BillRockwell General 1 05-23-2003 08:55 AM
vb6 & Lotus Notes Flavio General 4 05-08-2003 02:18 PM
send mail using lotus notes instead of outlook kelly General 1 10-10-2000 01:01 AM
Mail Through Lotus Notes anirbansaha General 1 08-31-2000 08:38 AM

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
 
 
-->