Merci pour ton aide
PROCEDURE NetEmailLotusNotes1(peDestinataire,peSujet,peAttachedFile)
// OUVERTURE DE LA BASE DE MAIL PAR DEFAUT
Base = Notes>>GetDataBase("","")
Base>>OpenMail()
// CREATION D'UN NOUVEAU DOCUMENT
Doc = Base>>CreateDocument
// DECLARATION D'UN DOCUMENT DE TYPE MEMO
Doc>>ReplaceItemValue("Form","Memo")
// DESTINATAIRE
Doc>>ReplaceItemValue("SendTo",peDestinataire)
// SUJET
Doc>>ReplaceItemValue("Subject",peSujet)
// TEXTE DU MESSAGE
Doc>>ReplaceItemValue("Body",""+RC+"Cordialement,")
// CREATION DE L'OBJET CONTENU DU MESSAGE
Contenu = Doc>>CreateRichTextItem("Contenu")
// CREATION DE L'OBJET PIECE-JOINTE RELIE
Fichier = Contenu>>EmbedObject(1454,"",peAttachedFile)
Fichier = Contenu>>EmbedObject(1454,"","p:\Liaison.DOC")
// SAUVEGARDE DU MESSAGE LORS DE L'ENVOI
Doc>>SaveMessageOnSend=OLETrue
// SAUVEGARDE DE LA DATE D'ENVOI DU MESSAGE
Doc>>ReplaceItemValue("PostedDate",Gauche(DateVersChaine(DateSys()),6)+Droite(DateVersChaine(DateSys()),2))
// ENVOI DU DOCUMENT
Doc>>Send(OLEFaux)
// LIBERATION DES OBJETS OLE DYNAMIQUES
libérer(Fichier)
libérer(Contenu)
libérer(Base)
libérer(Doc) |