Envoi mail - Détection auto du SMTP

Signaler
Messages postés
45
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
11 août 2021
-
Messages postés
45
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
11 août 2021
-
Bonjour.

J'ai trouvé le code ci-dessous qui me permet d'envoyer un mail :

Const cdoSendUsingPickup = 1 
Const cdoSendUsingPort = 2 
Const cdoAnonymous = 0 
Const cdoBasic = 1 
Const cdoNTLM = 2 
'===========================================================
EmailSender = "expediteur@xxxxx.fr" 
Email_Destinataire = "destinataire@xxxxx.fr"
'===========================================================
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "SUJET"
objMessage.From = """Expediteur"" <"& EmailSender &">"
objMessage.To = Email_Destinataire 
'objMessage.AddAttachment("c:/attachement.txt")
objMessage.HTMLBody = "<H1>Corps du mail</H1>"
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr"
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailSender
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
objMessage.Configuration.Fields.Update
 

On Error Resume Next
objMessage.Send
If err <> o Then
Msgbox Err.Description,vbCritical,Err.Description
else
Msgbox "ok"
end if


Mais j'aimerai savoir s'il y a un moyen que le serveur SMTP soit détecté automatiquement. Actuellement je dois mettre celui de mon FAI, et j'aimerai que le script fonctionne même si je change de FAI, ou bien si je suis sur une autre connexion que la mienne, etc...

Est-ce qu'il y a un moyen de faire ça ou non ? Si oui lequel ?


Merci d'avance pour vos réponse.
Bonne journée.

1 réponse

Messages postés
45
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
11 août 2021

Personne n'a d'idée ?

Ou à défaut une commande qui renvoie le serveur SMTP qu'on doit utiliser ?