1. #1
    Membre régulier
    Homme Profil pro
    Consultant en Business Intelligence
    Inscrit en
    novembre 2013
    Messages
    174
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant en Business Intelligence
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2013
    Messages : 174
    Points : 104
    Points
    104

    Par défaut Blocage envoi email vbs en CDO

    Bonjour,

    J'ai un petit scrit vbs qui permet d’envoyer des emails (voir code ci-dessous). Tout fonctionne sur mon poste perso "à la maison". Mais si je veux faire tourner le même script sur mon poste au boulot ben ça bloque avec ce message d'erreur Le transport a échoué dans sa connexion au serveur

    Mais je sais pas si c'est le proxy ou autre qui bloque, si vous avez un avis sur sujet? Parce que je garde exactement la même connexion au compte.

    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
    Set objMsg = CreateObject("CDO.Message") 
    Set msgConf = CreateObject("CDO.Configuration") 
     
    'Server Configuration 
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") ="465"
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@gmail.com" 'type your mail id
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******" 'Type your acccount Password
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
     
    msgConf.Fields.Update 
     
    'End With
    objMsg.To = "******@gmail.com " ' type to mail id
    objMsg.From = "*******@gmail.com " 'type from mail id
    objMsg.Subject = "Test mail" 
    objMsg.HTMLBody = "Test Mail for users"
    'objMsg.AddAttachment "C:\Users\Username\Pictures\Image.jpg" 
    objMsg.AddAttachment   filepath    ' Attachement object
    objMsg.Sender = "Mr. Name" 
     
    Set objMsg.Configuration = msgConf 
     
    ' Send 
    objMsg.Send 
    Msgbox("Email Sent Successfully")
    ' Clear 
    Set objMsg = nothing 
    Set msgConf = nothing

  2. #2
    Futur Membre du Club
    Inscrit en
    juin 2009
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : juin 2009
    Messages : 21
    Points : 5
    Points
    5

    Par défaut

    Salut,

    Habituellement les boites bloquent se type de flux, ce qui en terme de sécurité est normal.

    Par contre, pour être sur, tu peux chez toi faire un telnet sur smtp.gmail.com port 465.
    Normalement, tu ne devrais pas avoir d'erreur puis tu fais le même test a partir du bureau.

    Vérifie le comportement entre chez toi et là ou tu bosses.
    Cela peut venir d'un proxy, d'un firewall ou tout simplement de ton poste.

  3. #3
    Membre régulier
    Homme Profil pro
    Consultant en Business Intelligence
    Inscrit en
    novembre 2013
    Messages
    174
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant en Business Intelligence
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2013
    Messages : 174
    Points : 104
    Points
    104

    Par défaut

    Merci de ton retour nerodeny,

    J'ai discuté avec le support IT de ma boîte, c'est plus compliqué que ça ils bloquent les postes pour émettre des emails en dehors de Outlook.

    Bref j'ai contourné le truc en ouvrant un email via Outlook.

    Mais je vais tester ton conseil, ça peut toujours servir.

    Bonne soirée.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Problème envoie email vvia CDO.message à caude d'un Proxy
    Par Merryy dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 19/08/2015, 08h23
  2. [Débutant] Forcer envoie email - script vbs
    Par yoyohand dans le forum EDI/Outils
    Réponses: 0
    Dernier message: 13/01/2015, 17h52
  3. Envoi un mail via CDO
    Par Chromatic dans le forum Access
    Réponses: 19
    Dernier message: 11/01/2007, 11h59
  4. [VB]Envoi email
    Par CCRNP dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 12/03/2006, 18h09
  5. [Mail] Envoi email de confirmation après inscription
    Par t-die dans le forum Fonctions
    Réponses: 3
    Dernier message: 14/12/2005, 14h56

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