Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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