Discussion :

[Carabi]

Bonjour,

Après avoir bien lu la FAC et notamment ce post, et surtout après avoir essayé les deux ou trois exemples sans succès, je me demandais s'il était possible d'envoyer un mail par le Serveur Microsoft Exchange.

En effet, je n'arrive pas à me connecter au serveur, y'a-t-il une suite d'opérations ou une librairie à inclure?

Merci d'avance !

[SilkyRoad]

bonjour

As tu indiqué les paramètres de configuration ?

par exemple :

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
17
18
19
Set objCDOMess = CreateObject("CDO.Message")
 
objCDOMess.From = "Expediteur@provider.fr"
objCDOMess.To = "Destinataire@provider.fr"
objCDOMess.Subject = "essai"
objCDOMess.Textbody = "essai corps du message"
 
objCDOMess.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
objCDOMess.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
           "serveur-smtp-exchange"
 
objCDOMess.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOMess.Configuration.Fields.Update
 
objCDOMess.Send

bonne journée
michel

[Carabi]

Heu oui justement, j'ai tout indiqué, mis à part le "serverPort". Est-ce vraiment indispensable?

Merci