Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
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

Discussions similaires

Envoi de mail en TLS par Gandi, quelle fonction?
Billybobbonnet -
Billybobbonnet -

1 réponse
application gestion de client pour l auto école
marwa -
Whismeril -

7 réponses
envoyer un mail avec une application faite avec windev 20
Stephcoul -
Stephcoul -

2 réponses
Envoi de mail par PHP à partir d'un SMTP distant
cs_AcarnanDragoon -
AcarnanDragoon -

11 réponses
Script : Mail automatique de rappel
cs_alexdarcy -
alexdarcy -

4 réponses
Rejoignez-nous