Envoi mail par macro avec messagerie par défaut

  • Initiateur de la discussion Initiateur de la discussion locutus68
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

locutus68

XLDnaute Nouveau
Bonjour,

Je cherche à créer une macro pour envoyer un mail en utilisant la messagerie par défaut de l'utilisateur. Je me suis basé sur ce code trouvé sur le forum :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("A1") ' adresse mail du destinataire
Subj = Range("A2") ' sujet du message
Msg = Msg & Range("A3") ' corps du message
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
Msg.send
End Sub

Le hic c'est que le mail se crée mais ne s'envoie pas tout seul, il faut encore cliquer sur le bouton envoyer. Est-ce que quelqu'un à une idée ? J'utilise surtout Mozilla Thunderbird.

Cordialement.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
2
Affichages
809
Réponses
10
Affichages
547
  • Question Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
554
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
447
Retour