Envoyer un mail en VBA

Bonjour à tous,

Je suis en train de créer un fichier avec macro pour mon association, mais j'ai un soucis avec la VBA. J'ai créer un code derrière le bouton afin d'envoyer un mail avec une pièce jointe. je vous met ici le code, quand je le lance il va jusqu'au bout de la macro mais lorsque je regarde si j'ai reçu le mail avec la pièce jointe je ne trouve rien. Pouvez-vous m'aider s'il vous plaît. le code se cahe derriere le bouton du userform "reçu"

Bonjour,

Il y a belle lurette que le port 25 non sécurisé n'est plus utilisé pour l'envoi de mail. Il faut utiliser le port 465 avec un cryptage SSL

mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

De plus, il vous faut modifier la sécurité de votre compte Google pour autoriser l'application tierce CDO.

NB : Accueil et non Acceuil