VBA Envoie de mail CDO avec Lotus

Bonjour,

J’essaie d'envoyer des mails en automatique mais cela coince au niveau du Send.

Voici la fenêtre qui s'affiche :

microsoft visual basic

erreur d'execution '--2147220960 (80040220)':

la valeur de configuration "SendUsing" est non valide.

Voici le code :

Function envoi_mail(i As Integer)       ' Fonction Permettant d'envoyer des mails

Dim CdoMessage As Object
Dim Destinataire As String
Dim Destinataire_CC As String

Destinataire = Worksheets("Fiche de MP Malaxeur").Range("H" & i).Value
Destinataire_CC = Worksheets("Fiche de MP Malaxeur").Range("I" & i).Value
Objet_du_message = "Veuillez anticiper " & Worksheets("Fiche de MP Malaxeur").Cells(i, 4).Value & " " & Worksheets("Fiche de MP Malaxeur").Cells(i, 2).Value

Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Rapport Maintenance"
        .from = "Bonza@lotus.com"
        .To = "bonza@lotus.com"
        .CC = ""
        .TextBody = Objet_du_message
        .Send
    End With

    Set CdoMessage = Nothing

Je vous remercie par avance pour votre aide.

Bonjour,

Il me semble que tu fais l'impasse sur la configuration...

https://forum.excel-pratique.com/cours-astuces/envoi-mail-avec-cdo-sans-outlook-t38945.html

Cordialement.

Bonjour,

Merci pour votre réponse.

J'ai trouvé ça sur le lien :

  Set mConfig = CreateObject("CDO.Configuration")

    mConfig.Load -1
    Set mChps = mConfig.Fields
    With mChps
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        'En principe, 25 fonctionne avec tout les serveurs.
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

        'Vous pouvez essayer sans ces trois lignes
       'Mais si votre serveur demande une authentification,
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "MyMail@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MyCodePass"
        'Si votre serveur demande une connexion sûre (SSL)
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
        .Update
    End With

Je positionne ça avant

Function envoi_mail(i As Integer)       ' Fonction Permettant d'envoyer des mails

C'est bien ça?

Comment je fais pour trouver le serveur de mail de Lotus?

Cette ligne là .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 je ne modifie rien c'est bien ça?

Merci d'avance pour vos réponse

J'ignore son existence, mais si tu t'en sers, tu devrais connaître !