Bonjour,

J'envoie des mails via un serveur exchange (enfin je crois ) et en fait je recois les mails avec un éxpéditeur inconnu... alors que j'ai renseigner le destinataire ... voila mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        Dim objMail As Object
 
        objMail = CreateObject("CDO.Message")
 
        objMail.Subject = sujet
        objMail.Sender = "*@*.com"
        objMail.To = De
        objMail.TextBody = Texte
        'objMail.addattachment "c:\chemin\nompiecejointe"
 
        'Nom du serveur SMTP 
        objMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "***.***.*.*"
 
        objMail.Send()
Merci d'avance !