Envoi e-mail

[Yann]

Bonjour à tous,

Je sais que ce sujet a été plusieurs fois traité mais je ne suis pas sûr que ce que cherche à faire soit possible:

Je voudrais via un commandbutton envoyer un e-mail (via outlook) à un seul destinataire avec un corps de message prédéfini et invariant, par exemple "Un constat d'anomalie a été renseigné".

Est ce possible ?

Merci bcp d'avance pour votre aide

Yann

 

[@+Thierry]

Salut Yann, le Forum

Une méthode simple est d'utiliser FollowHyperlink comme ceci :

Option Explicit

Const TheDest As String = "toto@toto.com"
Const TheSujet As String = "Un constat d'anomalie a été renseigné"

Sub MaillingAuto()
Dim TheLink As String
Dim TheMsg As String

'Système de STéphane pour les sauts de Ligne
TheMsg = "Bonjour" & vbCrLf & vbCrLf & "XLD le : " & Format(Now, "DD, MMMM YYYY HH:MM:SS") & vbCrLf & vbCrLf & TheSujet
TheMsg = Application.WorksheetFunction.Substitute(TheMsg, vbCrLf, "%0D%0A")

TheLink = "mailto:" & TheDest & "?Subject=" & TheSujet & " de la part de " & Application.UserName _
& "&Body=" & TheMsg
ActiveWorkbook.FollowHyperlink Address:=TheLink, NewWindow:=True
Activate

End Sub

Bien entendu au lieu d'utiliser des Constante pour l'adresse mail et/ou le Sujet, on pourrait prendre des variables...

Bon Week End
@+Thierry

 

[Yann]

Je n'avais pas vu ta réponse Thierry, je te remercie beaucoup, c'est exactement ce que je voulais.

Merci encore