Envoyer des mails via Gmail depuis Excel par VBA

Bonjour,

Pour l'avoir expérimenté, je sais qu'il existe un library permettant de configurer des mails et de les envoyers depuis Excel via Outlook.

Mais est-il possible via un fichier Excel et du VBA d'envoyer des mails via son compte Gmail ?

Merci par avance pour votre aide,

Gloutoni.

Bonjour

regarde si ce sujet peut t'aider

https://forum.excel-pratique.com/viewtopic.php?f=2&t=108110

Cordialement

Bonsoir,

Tout à fait, en utilisant la classe CDO. Il faut l'ajouter via l'éditeur VBA --> outils --> référence

Ci-dessous exemple de code.

 Sub EnvoiMail()
    'Ajout référence  Microsoft CDO WINDOWS FOR 2000
    Dim cdo_msg As New CDO.Message

    '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) = "xxxxxxxxxx@gmail.com"
    cdo_msg.Configuration.Fields(cdoSendPassword) = "ppppppppp"
    cdo_msg.Configuration.Fields.Update

    'remplissage et envoi message
    cdo_msg.To = "adresse1"
    cdo_msg.From = "adresse2"
    cdo_msg.Subject = "filename Sent to www.???.com "
    cdo_msg.TextBody = "File FTP LOG ATTACHED."
    cdo_msg.AddAttachment ("C:\Users\nnnnnn\Documents\classeur1.xls")
    cdo_msg.Send

    'libération objet message
    Set cdo_msg = Nothing
End Sub

Bonjour,

J'ai activé la library + configurer mais il me marque le message d'erreur ci-dessous :

Run-time error '-2147220973 (80040213)':

The transport failed to connect to the server.

Savez-vous d'où vient cette erreur, je n'arrive pas à solutionner cela ?

Gloutoni

Bonjour,

Je viens de retester ce code et chez moi, ça fonctionne sans problème.

Vous devez avoir un paramètre incorrect au niveau de la configuration

    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

ou alors votre adresse d'envoi + mot de passe est erronée..

Bonjour,

Merci, le blocage est dût en réalité au firewal ....

cdlt, Gloutoni