Discussion :

[Mycose]

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 !

[mattofmath]

Bonjour,

Ce que je vais te répondre est peut être hors sujet mais,
Pourquoi tu n'utiliserais pas le service web Exchange (EWS) pour envoyer ton email par Exchange ? (ne fonctionne qu'à partir d'exchange 2007 je crois par contre)

[Mycose]

Bah mon mail part avec mes lignes là, c'est juste que cela marque expéditeur inconnu, cela peut pas être résolu tu penses ?


EDIT : Bug Résolu

Fallait pas mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
        objMail.Sender = "*@*.com"

mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
        objMail.From = "*@*.com"