D
daniel
Guest
Bonsoir le forum !
J'ai repris un des codes de Thierry (merci !!) pour pouvoir envoyer automatiquement un message en récupérant le contenu de deux textbox. Mais je n'arrive pas à insérer un retour chariot entre les deux... Est-ce possible de le faire ,
Merci et bonne soirée !
Daniel
Dim MailString As String
Dim Destinataire As String
Dim Sujet As String
Dim CorpsMessage As String
Destinataire = 'daniel@aol.com'
Sujet = 'Proposition'
CorpsMessage = 'Terme français : ' & TextBox1.Value & 'Proposition de traduction anglaise :' & TextBox2.Value
MailString = 'mailto:' & Destinataire & _
'?subject=' & Sujet & _
'&body=' & CorpsMessage
ActiveWorkbook.FollowHyperlink Address:=MailString, NewWindow:=True
J'ai repris un des codes de Thierry (merci !!) pour pouvoir envoyer automatiquement un message en récupérant le contenu de deux textbox. Mais je n'arrive pas à insérer un retour chariot entre les deux... Est-ce possible de le faire ,
Merci et bonne soirée !
Daniel
Dim MailString As String
Dim Destinataire As String
Dim Sujet As String
Dim CorpsMessage As String
Destinataire = 'daniel@aol.com'
Sujet = 'Proposition'
CorpsMessage = 'Terme français : ' & TextBox1.Value & 'Proposition de traduction anglaise :' & TextBox2.Value
MailString = 'mailto:' & Destinataire & _
'?subject=' & Sujet & _
'&body=' & CorpsMessage
ActiveWorkbook.FollowHyperlink Address:=MailString, NewWindow:=True