Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MAPI and Lotus Notes
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Divers
Thread ID:
00387729
Message ID:
00387882
Vues:
17
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform