Erreur lors de l'envoi de mail

Le 03/02/2019 à 15:54

Bonjour,

Dans mon envoi de mail, je "trappe" l'erreur par un ON ERROR GOTO

Mais j'arrive sur ce traitement de l'erreur avec un n° d'erreur à zéro, et pas de message d'erreur !

Comment faire ?

    On Error GtoTo Erreur
    //
    Set mConfig = CreateObject("CDO.Configuration")
    mConfig.Load -1
    Set mChps = mConfig.Fields
    With mChps
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ou CdoSendUsingPort : utilisation réseau
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.zoho.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxxxxxxxxxx"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxxxxxxxxx"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
        .Update
    End With
Envoyer:
    Set mMessage = CreateObject("CDO.Message")
    With mMessage
        Set .Configuration = mConfig
            .To = wListDestClair        '   .To = Destinataire
            .From = "tresoriersc@zoho.com"
            .CC = ""                    '   DestinataireCopy
            .BCC = wListDestCache       '   .BCC = ""       '   DestinataireCopyCacher
            .Subject = Sujet
            .HTMLBody = Message         '   .TextBody = Message
            If Fichier <> "" Then .AddAttachment Fichier
            .Send
    End With
    '   Par construction, les deux compteurs devraient être égaux ....
    wTotEnvoi = wTotEnvoi + 1: Me.labTotEnvoi = wTotEnvoi: wTotMail = wTotMail + 1: Me.labTotMail = wTotMail
    Set mMessage = Nothing
    Set mConfig = Nothing
    Set mChps = Nothing
    GoTo Fin
   Erreur:
     //
Le 03/02/2019 à 16:45
scn68100 a écrit :

Mais j'arrive sur ce traitement de l'erreur avec un n° d'erreur à zéro, et pas de message d'erreur !

Vous ne précisez pas comment vous testez votre erreur !

Par ailleurs, j'éviterai de mettre des guillemets à des valeurs numériques ou booléennes

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
Le 03/02/2019 à 17:22

Bonjour,

thev a raison

essaie ceci :

' Il faut activer la référence Microsoft CDO

Sub SendEmailUsingZoho()

    On Error GoTo Err

    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigURL As String

    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")

    ' load all default configurations
    mailConfig.Load -1

    Set fields = mailConfig.fields

    With NewMail
        .Subject = "Test Mail"
        .From = "tresoriersc@zoho.com"
        .To = "*******************" ' mettre ; entre chaque adresse mail
        .CC = ""
        .BCC = ""
        '.TextBody = "Test envoi"
        .HTMLBody = "Write your complete HTML Page"
        '.AddAttachment "C:\Users\Michel\Downloads\test.xlsx"
    End With

    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

    With fields
        'Enable SSL Authentication
        .Item(msConfigURL & "/smtpusessl") = True

        'Make SMTP authentication Enabled=true (1)
        .Item(msConfigURL & "/smtpauthenticate") = 1

        'Set the SMTP server and port Details
        .Item(msConfigURL & "/smtpserver") = "smtp.zoho.com"
        .Item(msConfigURL & "/smtpserverport") = 465
        .Item(msConfigURL & "/sendusing") = 2

        'Set your credentials of your Gmail Account
        .Item(msConfigURL & "/sendusername") = "xxxxxxxxxxxxxxxxxx"
        .Item(msConfigURL & "/sendpassword") = "xxxxxxxxxxxxxxxxxx"

        'Update the configuration fields
        .Update

    End With
    NewMail.Configuration = mailConfig
    NewMail.Send
    MsgBox ("OK, c'est parti !")

Exit_Err:

    Set NewMail = Nothing
    Set mailConfig = Nothing
    End

Err:
    Select Case Err.Number

    Case -2147220973  'Could be because of Internet Connection
        MsgBox " Could be no Internet Connection !!  -- " & Err.Description

    Case -2147220975  'Incorrect credentials User ID or password
        MsgBox "Incorrect Credentials !!  -- " & Err.Description

    Case Else   'Rest other errors
        MsgBox "Error occured while sending the email !!  -- " & Err.Description
    End Select

    Resume Exit_Err

End Sub

cela fonctionne très bien chez moi

pas malin de mettre tes identifiants !! je les ai utilisés pour juste tester cette procédure

une inconnue : je ne sais pas comment sont écrites tes listes

.To = wListDestClair
.BCC = wListDestCache
Le 04/02/2019 à 10:39

Grandement merci à vous deux

C'est plus que "pas malin" d'avoir laissé mes informations en claire C'est même plus qu'une bêtise, une vrais c....rie

Je me rend compte que mon temps de concentration est de plus en plus limité ....

Bien Cordialement

Le 04/02/2019 à 10:47

Une remarque

J'ai testé l'erreur dans le nom du destinataire : **********@yahoo.fr

Et celle du site toto@****.fr

Ma messagerie me signale bien ces deux erreurs, mais elle ne sont pas détectées dans le code

Le 04/02/2019 à 10:50
scn68100 a écrit :

C'est plus que "pas malin" d'avoir laissé mes informations en claire C'est même plus qu'une bêtise, une vrais c....rie

Fais un mp à l'administrateur Sébastien, malheureusement ni toi ni nous ne pouvons intervenir !
scn68100 a écrit :

Une remarque

J'ai testé l'erreur dans le nom du destinataire : **********@yahoo.fr

Et celle du site toto@****.fr

Ma messagerie me signale bien ces deux erreurs, mais elle ne sont pas détectées dans le code

je ne vois pas trop comment y remédier !
Le 04/02/2019 à 11:42

Bonjour,

Essayer peut être ce code

' Il faut activer la référence Microsoft CDO

Sub SendEmailUsingZoho()

    'On Error GoTo Err

    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigURL As String

    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")

    ' load all default configurations
    mailConfig.Load -1

    Set fields = mailConfig.fields

    With NewMail
        .Subject = "Test Mail"
        .From = "xxxxxxxxxxxxxxxxxx@zoho.com"
        .To = "xxxxxxxxxxxxxxxx@gmail.com" ' mettre ; entre chaque adresse mail
        .CC = ""
        .BCC = ""
        '.TextBody = "Test envoi"
        .HTMLBody = "Write your complete HTML Page"
        '.AddAttachment "C:\Users\Michel\Downloads\test.xlsx"
    End With

    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

    With fields
        'Enable SSL Authentication
        .Item(msConfigURL & "/smtpusessl") = True

        'Make SMTP authentication Enabled=true (1)
        .Item(msConfigURL & "/smtpauthenticate") = 1

        'Set the SMTP server and port Details
        .Item(msConfigURL & "/smtpserver") = "smtp.zoho.com"
        .Item(msConfigURL & "/smtpserverport") = 465
        .Item(msConfigURL & "/sendusing") = 2

        'Set your credentials of your Gmail Account
        .Item(msConfigURL & "/sendusername") = "xxxxxxxxxxxxxxxxxx"
        .Item(msConfigURL & "/sendpassword") = "xxxxxxxxxxxxxxxxxx"

        'Update the configuration fields
        .Update

    End With
    NewMail.Configuration = mailConfig

    On Error Resume Next
    NewMail.Send
    If Err.Number <> 0 Then
        Select Case Err.Number

        Case -2147220973  'Could be because of Internet Connection
            MsgBox " Could be no Internet Connection !!  -- " & Err.Description

        Case -2147220975  'Incorrect credentials User ID or password
            MsgBox "Incorrect Credentials !!  -- " & Err.Description

        Case Else   'Rest other errors
            MsgBox "Error occured while sending the email !!  -- " & Err.Description
        End Select
    Else
        MsgBox ("OK, c'est parti !")
    End If

Exit_Err:
    Set NewMail = Nothing
    Set mailConfig = Nothing

End Sub
Le 04/02/2019 à 13:38

Merci bien, mais cela ne change pas

Ce n'est pas dramatique, ma messagerie me signalera les anomalies

Rechercher des sujets similaires à "erreur lors envoi mail"