VBA Excel : erreur envoi msg internet

Bonjour,

j'ai une boucle fonctionnant très bien pour envoyer un message internet à chaque client.

Le code pris dans une boucle est :

Sub VoeuxMailServeur(ListeAdresse, PieceJointe)
'======================================================================
' Envoi du Mail de Publipostage
'======================================================================
    Dim mMessage As Object
    Dim mConfig As Object
    Dim mChps

    If VersionTest = "O" Then
        MailDesti = MailTest
    Else
        MailDesti = ListeAdresse
    End If

    Set mConfig = CreateObject("CDO.Configuration")

    Set mChps = mConfig.Fields
    With mChps
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ServeurSmtp
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = ServeurPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ServeurUtil
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ServeurMotP
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
        .Update
    End With

    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .To = ""
        If MailCopie = "O" Then
            .BCC = MailDesti & ServeurUtil      ' tous les destinataires et l'émetteur en copie cachée
        Else
            .BCC = MailDesti        ' tous les destinataires en copie cachée
        End If
        .From = ServeurUtil
        .BodyPart.Charset = "iso-8859-1"
        .Subject = "Voeux " & AnnéeVoeux
        .TextBody = MailCivil & vbCrLf & vbCrLf & _
        MailText1 & vbCrLf & _
        MailText2 & vbCrLf & _
        MailText3 & vbCrLf & vbCrLf & _
        MailSalut & vbCrLf & vbCrLf & MailSigne
        .AddAttachment PieceJointe
        .Send
    End With
    Set mMessage = Nothing

    'Libère les ressources
    Set mConfig = Nothing
    Set mChps = Nothing

End Sub

Problème : lorsqu'une anomalie survient sur une adresse, l'envoi se plante et le traitement également.

Comment puis-je passer outre le plantage de la boucle pour passer au client suivant ?

Merci pour votre générosité du savoir.

Cdt

Dadu35

Bonjour,

le plus simple (mais le plus risqué aussi) est de mettre

On Error Resume Next

si tu es sûr de ton code par ailleurs (car cela va masquer d'autres erreurs éventuelles)

Bonjour,

merci pour cette réponse.

Je suis sûr de mon code car cette macro fonctionne bien sauf si pb sur une adresse internet => plantage.

Pourquoi est-ce risqué, qu'est-ce cela peut cacher ?

Cdt

Dadu35

Donc pas de soucis si le code est robuste.