IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Envoi mail - détection auto du SMTP


Sujet :

VBScript

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    février 2011
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2011
    Messages : 5
    Points : 4
    Points
    4
    Par défaut Envoi mail - détection auto du SMTP
    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.

  2. #2
    Candidat au Club
    Profil pro
    Inscrit en
    février 2011
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2011
    Messages : 5
    Points : 4
    Points
    4
    Par défaut
    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 ?

  3. #3
    Membre actif
    Homme Profil pro
    Responsable déploiement systèmes
    Inscrit en
    juin 2015
    Messages
    114
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement systèmes
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : juin 2015
    Messages : 114
    Points : 241
    Points
    241
    Par défaut
    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 !!!
    "L'erreur est humaine mais un véritable désastre nécessite un ordinateur." de William Henry, dit Bill Gates

Discussions similaires

  1. Problème Envoi Mail - SMTP Orange
    Par lteixeir dans le forum Internet
    Réponses: 6
    Dernier message: 05/07/2007, 22h57
  2. configurer SMTP pour envoi mail externe
    Par yonialhadeff dans le forum Windows Serveur
    Réponses: 4
    Dernier message: 11/06/2007, 18h58
  3. Envoi mail en choisissant son smtp
    Par laurent_h dans le forum Shell et commandes GNU
    Réponses: 3
    Dernier message: 09/01/2007, 10h46
  4. [Javamail] Envoi mail avec plusieurs smtp
    Par igloof dans le forum API standards et tierces
    Réponses: 1
    Dernier message: 02/11/2006, 12h08
  5. Envoi de mail en auto
    Par pqlhdjdcllsl dans le forum C++
    Réponses: 2
    Dernier message: 23/06/2006, 15h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo