Bonjour,
je suis entrain d'effectuer la maintenance d'une application en VB6, j'ai un
formulaire avec un objet OLE WORD ou l'utilisateur saisie un message, et
j'insere mon objet OLE au niveau de ma base afin de garder le message saisie.
Je souhaiterai aussi effectuer un envoie de mail avec ce message saisie via
Outlook mais je ne vois po comment récupérer le message saisie afin de
l'affecter au niveau du body de mon mail.
voici mon code :
Dim golApp As Outlook.Application
Dim golNameSpace As Outlook.NameSpace
Dim objNewMail As Outlook.MailItem
Dim Destin As Recipients
Set golApp = New Outlook.Application ' Application object
Set golNameSpace = golApp.GetNamespace("MAPI") ' Namespace object
Set objNewMail = golApp.CreateItem(olMailItem)
Set ExpMail = golApp.ActiveExplorer
Set Destin = objNewMail.Recipients
objNewMail.Recipients.Add ("toto toto")
With objNewMail
.Subject = "TEST d'envoi de message"
.Body = OLEText
.Send ' envoi le message
End With
Si vous avez une proposition ou une autre facon de faire je suis preneur.
Je vous remercie d'avance.
