rebonjour Alexis , Frederic et Niki
Frederic , as tu regardé les liens dans mon message du 27/07/2005 18:10
un exemple par CDO
Code:
Sub EnvoiMail_AvecNotification()
'testé avec WinXP & Excel2002
Dim iMsg As Object, iConf As Object
Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')
With iMsg
Set .Configuration = iConf
.To = 'leForum@xld.fr'
'.From = 'youralias@yourdomain.com'
.Subject = 'Le titre du message'
.HTMLBody = 'Ceci est un essai ...'
.Fields('urn:schemas:mailheader:disposition-notification-to') = 'expediteur@monMail.fr'
.Fields('urn:schemas:mailheader:return-receipt-to') = 'expediteur@monMail.fr'
.Fields.Update
.Send
End With
End Sub
bonne soiree
MichelXld
ps
cela ne sert à rien d'aller sur plusieurs posts pour un meme sujet .... et si en plus c'est pour ne pas lire les reponses qui sont proposées ...
Message édité par: MichelXld, à: 05/08/2005 16:48