bonsoir Vb_Phil , bonsoir Zon
il me semble qu'une solution est proposée dans le lien donné par Zon
ci dessous une petite adaptation à tester :
Sub EvoiMailSansMessageConfirmation()
'testé avec XP
Dim iMsg As Object, iConf As Object
'Dim iBP As Object
Const cdoSendUsingPickup = 1
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = "leforum@xld.fr"
.Subject = "Message du forum Xld"
.HTMLBody = "Ceci est un essai..."
'Set iBP = iMsg.AddAttachment("C:\lefichier.txt")
.Send
End With
End Sub
bonne soirée
michel
