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