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

VBA Discussion :

"erreur d''envoi" N'envoie pas le mail


Sujet :

VBA

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Consultant E-Learning
    Inscrit en
    décembre 2020
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Consultant E-Learning
    Secteur : Enseignement

    Informations forums :
    Inscription : décembre 2020
    Messages : 2
    Points : 1
    Points
    1
    Par défaut "erreur d''envoi" N'envoie pas le mail
    Bonjour à vous,

    Je n'arrive pas à résoudre l'erreur suivante donnée par le "débogueur"

    sur l'instruction : cdo_msg.Send.

    Voici le programme :

    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
    Public Sub EnvoiMail_Click()
        'Pour prospection, Création et Envoie par mail du document PDF créé par l'autre sous-programme
        'Avant d'envoyer des mails, il faut autoriser votre envoie sur gmail: <a href="https://www.google.com/settings/security/lesssecureapps" target="_blank">https://www.google.com/settings/security/lesssecureapps</a> ; Cochez la case "Activer".
        'Ajout référence  Microsoft CDO WINDOWS FOR 2000 avec Outils > Références dans l'éditeur.
        Dim cdo_msg As New CDO.Message
     
        Dim adresse1
        adresse1 = Range("L6").Value
     
        Dim strbody As String
        strbody = "Bonjour à vous," & vbNewLine & vbNewLine & _
        "Voici les résultats du diagnostic que vous avez rempli." & vbNewLine & _
        "Je me tiens à votre disposition pour en discuter si vous le souhaitez." & vbNewLine & _
        "A très vite et que la Confiance soit avec vous..." & vbNewLine & vbNewLine & _
        "Eric" & vbNewLine & _
        "www.blog-de-la-confiance-en-soi.com"
     
        'configuration message
        cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
        cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
        cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
        cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
        cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
        cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
        cdo_msg.Configuration.Fields(cdoSendUserName) = "xxx@gmail.com"
        cdo_msg.Configuration.Fields(cdoSendPassword) = "yyyyy"
        cdo_msg.Configuration.Fields.Update
     
        'remplissage et envoi message
        cdo_msg.To = adresse1
        cdo_msg.From = "xxx@gmail.com"
        cdo_msg.Subject = "Votre Bilan Confiance envoyé par le Blog de la Confiance en Soi"
        cdo_msg.TextBody = strbody
        cdo_msg.AddAttachment ("C:\Users\SYLVIE\Dropbox\_Sauvegarde Disque dur\Avec Sylvie\_Livres & Jeux de Cartes\_Auto Diagnostic Confiance en Soi\Autodiagnostic Confiance.pdf")
        cdo_msg.Send
     
        MsgBox "Votre message a bien été envoyé !"
     
        'libération objet message
        Set cdo_msg = Nothing
    _______________________________________________________________________
    End Sub
    Public Sub PDF_Click()
            Application.ActivePrinter = "PDF Architect 7 sur Ne00:"
            ActiveWindow.SelectedSheets.PrintOut From:=1, Copies:=1, _
            ActivePrinter:="PDF Architect 7 sur Ne00:", Collate:=True
     
            MsgBox "Votre fichier a bien été enregistré !"
    End Sub
    Merci d'avance
    Images attachées Images attachées  

  2. #2
    Membre expert
    Homme Profil pro
    retraité
    Inscrit en
    juin 2012
    Messages
    1 823
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : juin 2012
    Messages : 1 823
    Points : 3 005
    Points
    3 005
    Par défaut
    Bonjour,

    Il est possible que le problème vienne de l'appel d'un fichier sur Dropbox.
    Tester le code en supprimant momentanément la ligne 34.

    Cordialement.

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Consultant E-Learning
    Inscrit en
    décembre 2020
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Consultant E-Learning
    Secteur : Enseignement

    Informations forums :
    Inscription : décembre 2020
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    Bonjour,
    Merci de la proposition.
    Je viens d'essayer et cela ne marche toujours pas !
    A très vite

Discussions similaires

  1. Erreur d'envoi d'un mail
    Par sihammaster dans le forum PHP & Base de données
    Réponses: 5
    Dernier message: 11/04/2012, 14h12
  2. [Débutant] Erreur d'envoi d'un mail.
    Par chlebta*tsotsi dans le forum ASP.NET MVC
    Réponses: 2
    Dernier message: 07/04/2012, 00h02
  3. PHPMailer n'envoi pas mes mails depuis localhost
    Par andry.aime dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 26/11/2009, 12h40
  4. [Mail] La fonction error_log n'envoie pas de mail
    Par canabral dans le forum Langage
    Réponses: 2
    Dernier message: 06/09/2006, 11h04
  5. L'envois de mail ne m'envois pas de mail ...
    Par PrinceMaster77 dans le forum ASP
    Réponses: 10
    Dernier message: 27/10/2004, 16h28

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