Information générale
Catégorie:
Codage, syntaxe et commandes
Phil,
This is the code I use:
Procedure email_from_lotus
lParam recipient, em_subject, em_attachment, em_body_text
Session = CreateObject("Notes.Notessession")
db = Session.GetDatabase("", "bookmark.nsf")
Doc2 = db.CreateDocument()
Doc2.Form = "memo"
Doc2.Subject = em_subject
rtitem = Doc2.CreateRichTextItem("body")
rtitem.AppendText(em_body_text)
If Len(AllT(em_attachment)) > 1 Then && Is there an attachment?
rtitem.EmbedObject(1454, "", em_attachment)
EndIf
*e1 = AllT(recipient)
Doc2.Send(.F., AllT(recipient))
EndProc
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement