Discussion :

[mlkgiosn]

Bonjour.

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

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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.

[mlkgiosn]

J'ai attendu un moment vu qu'en général sur les forum on se fait lyncher si on a l'audace de "upper" en moins de 24h lol mais le sujet est toujours d'actualité.

Cela dit j'en déduis que ça ne doit pas être possible si ?

[steph78630]

Bonjour,

j'ai rencontré la même problématique et comme je n'ai pas trouvé mieux j'ai décidé d'exécuter :

- Une 1ère tentative d'envoi avec une boite email en port 587 et en vérifier l'envoi (If Err.Number <> 0 et Exit si ok)

- Une 2ème tentative d'envoi avec une boite email en port 465 et en vérifier l'envoi (If Err.Number <> 0 et Exit si ok)

- Une 3ème tentative d'envoi avec une boite email en port 25


Résultats :

La boite email en port 587 (la 1ère) fonctionne chez la plupart de mes clients (Orange particulier et Business Service / Bouygues / OVH, Free)

Quelques mails arrivent tout de même via la 2ème boite en port 465 (Orange pro, SFR)...
(éviter le param d'une boite gmail.com qui a tendance à détecter par erreur un risque et bloque l'expédition [Appareil / IP inconnu])

Quant à elle, la 3ème boite en port 25 ne fonctionne qu'avec des clients hébergés chez Free.


Ceci dit, si quelqu'un a une meilleure solution, je suis preneur !!!