Envoi mail - Détection auto du SMTP

mlkgiosn
Messages postés
45
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
11 août 2021
- Modifié le 1 août 2021 à 23:19
mlkgiosn
Messages postés
45
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
11 août 2021
- 11 août 2021 à 14:24
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

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

11 août 2021 à 14:24
Personne n'a d'idée ?

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