Mettre tableau dans un mail lié a un formulaire

[JCMAAL]

Bonjour


J'ai réussi à créer (avec de l'info prise sur le web), un code VBA permettant d'envoyer automatiquement par mail le contenu d'un formulaire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Commande14_Click()
 
Dim Envol As New Outlook.Application
Dim Env As MailItem
 
' Création d'un objet de type message
Set Env = Envol.CreateItem(olMailItem)
 
'destinataires
Env.to = "jmaalouf@hotmail.com"
 
 
' sujet du message
Env.Subject = "Nouvelle communication Technique"
'le corps du message est récupéré sur le formulaire
Env.Body = Me![Compagnie] & Me![Contact] & Me![Sujet] & Me![Détail]
' envoi du message
Env.Send
 
' libération de l'objet
Set Env = Nothing
End Sub

Mon problème découle du fait que le corps du message, récupère de l'information contenu dans plusieurs champs, et la présentation est vraiment affreuse. Voici le code récupérant le message.

Code :

Env.Body = Me![Compagnie] & Me![Contact] & Me![Sujet] & Me![Détail]

Cela fait en sorte que l'information sorte de cette façon

KraftMr XImpotblablabla

Ce que je voudrais, c'est que cette information soit présenté dans un tableau, la première colonne prenant le nom du champ, et la 2eme présentant le contenu du champ.

Ex:


compagnie : kraft
Contact : Mr X
Sujet : Impot
Détail : blablabla




Je vous remercie

[Simplifi]

Hello
sans tracer les lignes du tableau, tu peux essayer:

Code :

1
2
3
4
Env.Body = "Compagnie : " &Me![Compagnie] & VbCrLf _
 & "Contact : " & Me![Contact] & VbCrLf _
 & "Sujet : " & Me![Sujet] & VbCrLf _
 & "Détail : " & Me![Détail]