Microsoft 365 Envoi de mail CDO compte GMail

Sub Envoi_via_CDO(Destinataire, Sujet, Corps_Mail, Expediteur, PJ, Serveur_SMTP, Port_SMTP, Nom_Utilisateur, Mot_De_Passe)
' Utilisation :
' Destinataire = adresse mail du destinataire
' Sujet = sujet du mail que verra le destinataire
' Corps_Mail = contenu du mail que verra le destinataire
' Expediteur = adresse mail de l'expéditeur
' PJ = chemin complet de la pièce jointe (peut rester vide)
'
' Serveur_SMTP : nom complet du serveur SMTP de la connexion active (ex : smtp.free.fr si le FAI actuel est Free)
' Port_SMTP : port utilisé pour l'envoi (généralement 465 si SSL/TLS)
' Nom_Utilisateur : nom seul du compte utilisateur de la BàL utilisé pour l'envoi (ex : si "toto@free.fr", utiliser "toto")
' Mot_De_Passe : mot de passe du compte utilisateur de la BàL utilisé pour l'envoi

    Set Message = CreateObject("cdo.Message")

    ' configuration de la messagerie
    With Message.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur_SMTP
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port_SMTP
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Nom_Utilisateur
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Mot_De_Passe
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        
        .Update
    End With

    ' configuration du message
    With Message
        .To = Destinataire
        .Subject = Sujet
        .TextBody = Corps_Mail
        .BodyPart.Charset = "UTF-8"
        .From = Expediteur

        If Len(PJ) > 0 Then .AddAttachment (PJ)

        .Send
    End With

    Set Message = Nothing

    MsgBox "Message envoyé... ou pas :-D"

End Sub

Return-Path: <expéditeur@gmail.com>
Delivered-To: destinataire@mondomaine.fr
Received: from hetre.o2switch.net
    by hetre.o2switch.net with LMTP
    id KP3sH/P4Lmntii4AD8Cgqg
    (envelope-from <expéditeur@gmail.com>)
    for <destinataire@mondomaine.fr>; Tue, 02 Dec 2025 15:34:27 +0100
Return-path: <expéditeur@gmail.com>
Envelope-to: destinataire@mondomaine.fr
Delivery-date: Tue, 02 Dec 2025 15:34:27 +0100
Received: from smtp5-g21.free.fr ([212.27.42.5]:52822)
    by hetre.o2switch.net with esmtps  (TLS1.3) tls TLS_AES_256_GCM_SHA384
    (Exim 4.98.2)
    (envelope-from <expéditeur@gmail.com>)
    id 1vQRSR-0000000DA67-1vwl
    for destinataire@mondomaine.fr;
    Tue, 02 Dec 2025 15:34:27 +0100
Received: from monpc (unknown [monip])
    (Authenticated sender: Nom_Utilisateur@free.fr)
    by smtp5-g21.free.fr (Postfix) with ESMTPSA id CE71D60143
    for <destinataire@mondomaine.fr>; Tue,  2 Dec 2025 15:33:45 +0100 (CET)
Thread-Topic: Test plain text message - 1 attachment
thread-index: AdxjmLDgd5XWdN+VQ+mu78/U5Jsv0A==
From: <expéditeur@gmail.com>
To: <destinataire@mondomaine.fr>
Subject: Test plain text message - 1 attachment
Date: Tue, 2 Dec 2025 15:33:56 +0100
Message-ID: <16556C50486D4571BDBFB27D4A92FF29@monpc>
MIME-Version: 1.0
Content-Type: multipart/mixed;
    boundary="----=_NextPart_000_0000_01DC63A1.12B1F810"
X-Mailer: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal
Priority: normal
X-MimeOLE: Produced By Microsoft MimeOLE
X-Spam-Status: No, score=-42.3
X-Spam-Score: -422
X-Spam-Bar: ------------------------------------------
X-Spam-Flag: NO

This is a multi-part message in MIME format.

------=_NextPart_000_0000_01DC63A1.12B1F810
Content-Type: text/plain;
    charset="UTF-8"
Content-Transfer-Encoding: 7bit

This is a test message to send a plain text email from Access with an attached file