Expéditeur inconnu serveur exchange

Version imprimable

Bonjour,

J'envoie des mails via un serveur exchange (enfin je crois :D) et en fait je recois les mails avec un éxpéditeur inconnu... alors que j'ai renseigner le destinataire ... voila mon code :

Code:

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 !

23/12/2010, 09h26
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)
23/12/2010, 11h48
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:

1 2 objMail.Sender = "*@*.com"
mais
Code:

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