Send mail , body dans une autre feuille

[BAZ]

BOnjour, j'utlise une macro sendmail mais je n'arrive pas à ce que une partie du corps du message soit dans des feuilles différentes (dans ce cas les données sont la feuille "Champs".

Voici la macro ;

Sub SendMail()
Dim addressString As String
addressString = "mailto:" & baz@baz.fr" & "?subject=" & "Lettre code courtier expédié" & "&body=" & "Bonjour , une lettre de demande de documents concernant" & Range("B3") <==== C LA LE PB, Je VEUX cellule B3 de la feuille "champs"


ActiveWorkbook.FollowHyperlink Address:=addressString
End Sub

Merci

 

[LaurentTBT]

Bonjour, essaye tout simplement de remplacer
...demande de documents concernant" & Range("B3") par
...demande de documents concernant" & worksheets("champs").Range("B3")

Bonne chance.

Laurent.

 

[BAZ]

Merci parfais Génial encore merci

 

[BAZ]

Encore un petite question a toi génie.

Est 'il possile de sauter des lignes ? par ex: pour BOnjour, je voudrais sauter une ligne mettre mon texte, resauter une ligne et mettre mes coordonnés.

Merci

 

[BAZ]

Personne ?

 

[LaurentTBT]

Essaye de remplacer
... "Bonjour , une lettre de demande de documents concernant" ...
par
..."Bonjour," & chr(13) & "une lettre de demande de documents concernant"...

Mais je ne suis pas sûr que ça marche. (essaye aussi Chr(10) au lieu de 13)

@+, Laurent.

 

[BAZ]

Bonjour et merci pour ta reponse

J'ai essyé t'es 2 solutions mais cela ne fonctionne pas.


d'autre proposition ?

 

[chris]

Bonjour
essayes en mettant les deux chr(13)&chr(10)
(peut-être en inversant)
Chris

 

[BAZ]

Bonjour, cela ne fonctionne pas.

J'ai essayé les 2 sens.

Le code que j'ai est :

Sub SendMail()
Dim addressString As String
addressString = "mailto:" & test@test.fr" & "?subject=" & "Lettre code courtier expédié" & "&body=" & "Bonjour ," & Chr(10) & Chr(13) & "Une lettre de demande de documents concernant le courtier " & " " & Worksheets("champs").Range("B3") & " " & "pour l'affaire" & " " & Worksheets("champs").Range("S3") & " " & "à été expédier ce jour."
ActiveWorkbook.FollowHyperlink Address:=addressString
End Sub

 

[BAZ]

toujours personne ?