imposer "destinataire et objet" en envoie mail

[nrdz83]

Bonjour à tous, voila j'utilise ce code, qui me permet d'ouvrir le programme d'envoie mail installé sur l'ordinateur.

Sub envoi_mail()
    On Error Resume Next
    Err = 0
    ActiveWorkbook.FollowHyperlink Address:="mailto:", NewWindow:=True
    If Err <> 0 Then MsgBox "Une Erreur s'est produite..."
End Sub

Je cherche à imposer l'objet et le destinataire au corps du message.

J'ai essaye d'apdapter les sujets qui traitent de ce sujet sur le forum mais j'y suis pas arrivé.

D'avance merci à tous, bonne journée amitiés😎

 

[Hulk]

Re : imposer "destinataire et objet" en envoie mail

Hello Mister Bean 😀

Tu peux essayer comme ceci.

Sub envoi_mail()
    
    On Error Resume Next
    Err = 0
    ActiveWorkbook.FollowHyperlink Address:="mailto:xxxxxxx@xxxxxxxx.xx" & _
    "?subject=Voici le Sujet du Message" & _
    "&body=Voici le Corps du Message"
    If Err <> 0 Then MsgBox "Une Erreur s'est produite..."

End Sub

T'as plus qu'à mettre l'adresse de l'expéditeur là où il y a des x.

Cdt, Hulk.

EDIT : Tu peux aussi faire comme ça en supposant que l'expéditeur est en A1, le sujet en A2, et le corps en A3.

Sub envoi_mail()
    
    On Error Resume Next
    Err = 0
    ActiveWorkbook.FollowHyperlink Address:="mailto:" & [A1] & "&Subject=" & [A2] & "&Body=" & [A3]
    If Err <> 0 Then MsgBox "Une Erreur s'est produite..."

End Sub

Cdt, Hulk.

 

[nrdz83]

Re : imposer "destinataire et objet" en envoie mail

Bonjour hulk, merci tout a fait ce dont je cherchais.
L'avantage de ce code c'est qu'il fonctionne avec tout les logiciels de courriers electronique.
Toutes mes amitiés , et bonne fin de journée😎