Envoi tableau par OutLook

[gourdin]

Bonjour,
Soit un tableau en B8😀14
Avec la petite macro ci-dessous la contenu de la cellule B8 se met dans le corps du message d'Outlook.
Je souhaite que l'ensemble des cellules du tableau (B8😀14) se mette dans outlook (et que celà ressemble à peu près à un tableau).
Voir fichier joint.
Merci

Sub envoi_mail()
Dim Msg As String
Dim URLto As String
Msg = Range("B8")
URLto = "mailto:" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

 

[kjin]

Re : Envoi tableau par OutLook

Bonjour,
Ron l'explique beaucoup mieux que je ne pourrais le faire
Merci à lui
A+
kjin

 

[sousou]

Re : Envoi tableau par OutLook

Bonjour Ron et à tous
Ci-dessous une solution qui te permet de construire le corps du message
ici ton tableau est nommé dans la feuille sous le nom tableau
tu n'a plus qu'a envoyer la phrase dans le corps du message

Dim Msg As String
Dim URLto As String
largeurcolonne = 10
Set tableau = ThisWorkbook.Names("tableau").RefersToRange
For col = 1 To tableau.Rows.Count
For l = 1 To tableau.Columns.Count
phrase = phrase & tableau.Cells(col, l) & Space(largeurcolonne - Len(tableau.Cells(col, l)))
Next
phrase = phrase & Chr(10)
Next
MsgBox phrase

 

[gourdin]

Re : Envoi tableau par OutLook

Merci,

Mais je n'arrive pas à adapter ton code à mon code initial pour afficher le tableau dans outlook
Voici ce que j'ai fait en bidouillant mais cela m'affiche sur une seul ligne les données dans outlook (cf fichier joint) :

Sub envoi_mail()
Dim Msg As String
Dim URLto As String
largeurcolonne = 10
Set tableau = ThisWorkbook.Names("tableau").RefersToRange
For col = 1 To tableau.Rows.Count
For l = 1 To tableau.Columns.Count
Phrase = Phrase & tableau.Cells(col, l) & Space(largeurcolonne - Len(tableau.Cells(col, l)))
Next
Phrase = Phrase & Chr(10)
Next
MsgBox Phrase
Msg = Phrase
URLto = "mailto:" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

 

[sousou]

Re : Envoi tableau par OutLook

Voilà ta solution
remplacer lce chr(13) par "%0a"

bonne chance
Sub envoi_mail()
Dim Msg As String
Dim URLto As String
largeurcolonne = 10
Set tableau = ThisWorkbook.Names("tableau").RefersToRange
For col = 1 To tableau.Rows.Count
For l = 1 To tableau.Columns.Count
Phrase = Phrase & tableau.Cells(col, l) & Space(largeurcolonne - Len(tableau.Cells(col, l)))
Next
Phrase = Phrase & "%0a"
Next
MsgBox Phrase
Msg = Phrase

URLto = "mailto:" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

 

[gourdin]

Re : Envoi tableau par OutLook

Merci beaucoup