ENVOI AUTOMATIQUE DE MAIL (AVEC PIÈCE JOINTE) EN VBA : EXCEL, WORD OU ACCESS PAR

Signaler
Messages postés
37
Date d'inscription
lundi 15 novembre 2004
Statut
Membre
Dernière intervention
3 juillet 2015
-
Messages postés
1
Date d'inscription
mercredi 3 août 2016
Statut
Membre
Dernière intervention
3 août 2016
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/31545-envoi-automatique-de-mail-avec-piece-jointe-en-vba-excel-word-ou-access-par-oulook-express-ou-modzilla-thunderbird-ou-d-autres

Messages postés
1
Date d'inscription
mercredi 3 août 2016
Statut
Membre
Dernière intervention
3 août 2016

Bonjour,

Ce code est très intéressant. Mais j'ai le même problème qu'agraeth. J'utilise Thunderbird et j'aimerais que le message s'envoi tout seul sans intervention de l'utilisateur, est-ce possible et comment faire ? Merci
Messages postés
3524
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
11 juillet 2020
1
Bonjour, à l'ouverture un message indique que le projet ou la bibliothèque est introuvable. Que dois-je activer comme bibliothèque sachant que j'utilise Thunderbird 38.6, soit la dernière version?
Genial ....!!!!!!! Vous etes des DIEUX......ca fait une semaine que je cherche le moyen de passer a la ligne suivante dans un client de messagerie DE VBA VERS Thunderbird...CE "%0A" m'a fait suer !!!!!
BRAVO !!!!
office et excel 2013 thunderbird 31.5.0
Bonjour, et merci pour ce code !

Petite question : est-il possible, plutôt que de créer un nouveau mail (pose pb chez moi du fait de la taille tu texte), de sélectionner un mail préalablement enregistré dans le dossier Modèles de Thunderbird, d'y joindre la PJ et d'y renseigner les destinataires (principaux et copies) ?

Par ailleurs, j'utilise ce code sur un command_button dans excel :
EnvoiEmail Adresse:=Range("F12").Value, _
Objet:="Mon sujet", _
Corps:="Test", _
PJ:=ThisWorkbook.Path & "\SAUVEGARDE\Un fichier.xls", _
Cc:=Range("G12").Value & ";" & Range("G13").Value

Pb, ma première adresse en copie se trouve affublée de " juste avant le @...
Mais aussi, le mail est prêt à partir, mais n'est pas envoyé...

Encore merci !
Afficher les 246 commentaires