Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MAPI and Lotus Notes
Message
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00387729
Message ID:
00387882
Views:
19
Here is some Notes code for VFP that I got from various threads.

Kevin
****** NOTES STUFF *****************************
m.sendTo = The list of senders separated by ";"
m.ccTo = The list of ccTo's separated by ";"
m.Subject = the subject line
m.lcMessage = the body of the text
m.lcAttach1 = an attachment filename

loNotes = CreateObject("Notes.Notessession") && create notes session
loDb = loNotes.GetDatabase("", "") && set db to database not yet named
loDb.openmail && set database to default mail database

loDoc = loDb.CreateDocument && create a mail document
loDoc.ReplaceItemValue("SendTo", m.sendto) && Recipient
loDoc.ReplaceItemValue("Subject", m.lcsubject) && Subject
loDoc.ReplaceItemValue("Body", m.lcmessage) && Message Body
IF not empty(m.ccto)
loDoc.ReplaceItemValue("SendCC", m.ccto) && SendCC
ENDIF
IF NOT EMPTY(m.lcAttach1)
loRichTextItem = loDoc.CreateRichTextItem("Attachment")
=loRichTextItem.EmbedObject(1454, "", m.lcAttach1)
ENDIF

loDoc.Send(.F.) && send message

Release loNotes
Kevin Emmrich
www.jkt9000.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform