Envoi email avec VB sous Excel

[ps]

Bonjour,

J'envoi un mail sous excel à l'aide des lignes suivantes:

addressString = "mailto:" & adresseMailString & "?subject=" & Range("C4") & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=addressString

Mon problème est qu'avec cette methode, la taille de mon message est limité en caractères.

Je voudrai savoir comment remedier à ce problème et pouvoir envoyer autant de caractères que je veux.

Par avance Merci

A+

PS

 

[JMG]

Bonjour PS,

Essaye ceci...


Envoi un Mail: l'adresse est dans la cellule D1, le sujet dans la D2 et le texte dans la D3

Sub EnvoiMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

A+ @ExcelementVotre JMG

 

[PS]

Merci pour ta réponse JMG.

Cependant, cela fonctionne de la même façon, c'est à dire que mon message est tronqué et que je n'arrive pas à envoyer plus de caractères qu'avant.

HELP

PS

 

[Stéphane]

Bonjour


j'ai mis en ligne ces codes là ou plus ou moins sur mon site depuis des lustres mais je n'avais pas éprouvé la longueur de la variable body.

une suggestion qui ne résoudra peut-être pas le problème, mais si tu transformais ta chaine en hexadécimal.

bye
stephane


http//xlbysteph.free.fr