UserForm dans corps de mail - Insertion variable dans tableau HTML

**Wolfrann** · 26/06/2019, 09h07

Bonjour,
Pour mon projet, je dois réaliser un système de ticketing sur Outlook. Un standardiste reçoit un appel et doit créer un ticket au service technique.
Jusque là, j'ai pu créer un ticket à partir d'un UserForm et extraire les données pour les mettre dans les bons champs du rendez-vous Outlook.
Je rencontre le problème suivant, j'aurai besoin de soit faire un copier-coller du UserForm avec les champs remplis par l'utilisateur et l'intégrer dans le corps du rdv (solution de facilité).
J'avais également pensé à recréer le UserForm sous la forme d'un tableau HTML mais je ne trouve pas comment intégrer les variables des champs du UserForm dans les cellules du tableau (sans passer par Excel).
Merci d'avance à ceux qui pourront m'éclairer sur le sujet

.

**Oliv-** · 27/06/2019, 09h57

Bonjour ,
voici un exemple de la faq Excel modifié et commenté

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub createEmail_with_table()
    Dim strHTML As String
    strHTML = ""
    strHTML = strHTML & "<HEAD>"
    strHTML = strHTML & "<BODY>"
    strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
    strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>"
 
    'on crée le tableau
    strHTML = strHTML & "<TABLE BORDER>"
 
    'on crée une ligne
    strHTML = strHTML & "<TR halign='middle'nowrap>"
 
    'puis une cellule
    strHTML = strHTML & "<TD>PC</TD>"
 
    'un seconde
    strHTML = strHTML & "<TD>Date</TD>"
 
    'on ferme la ligne
    strHTML = strHTML & "</TR>"
 
    'on crée une seconde ligne
 
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    'puis une cellule
    strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" & Environ("username") & "</TD>"
 
    'une seconde
    strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" & Date & "</TD>"
 
    'on ferme la ligne
    strHTML = strHTML & "</TR>"
 
    'on ferme le tableau
    strHTML = strHTML & "</TABLE>"
 
    'suite du message
 
    strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Environ("username")
    strHTML = strHTML & "</BODY>"
    strHTML = strHTML & ""
 
    Dim olApp As Object, Msg As Object
    If StrComp(Application.Name, "Outlook", vbTextCompare) = 0 Then
        Set olApp = Application
    Else
        Set olApp = CreateObject("outlook.application")
    End If
 
    Set Msg = olApp.createitem(0)
    Msg.htmlbody = strHTML
    Msg.display
End Sub

pour les attributs de <Table><tr><td> consulte les sites web de tuto sur le HTML
https://j-willette.developpez.com/tu...bases-du-html/
https://developer.mozilla.org/fr/doc.../Element/table

**Wolfrann** · 27/06/2019, 11h29

Bonjour Oliv

Tout d'abord, un grand merci pour ta réponse.

J'avais effectivement vu cette solution avec ce code. Il fonctionne très bien pour la création de mail, mais je me suis un peu mal exprimé et je m'en excuse.
Je cherche à intégrer ce code dans un rendez-vous Outlook. En poussant mes recherches, j'ai vu que le code HTML n'était pas implémenté dans les rendez-vous Outlook, mais uniquement dans les mails. Seul le RTF est possible, mais je pense que c'est trop galère pour ce que je veux faire par la suite.
Du coup, je pense que je vais envoyer les valeurs des champs de l'USF dans Word puis importer la feuille Word dans le corps du rendez-vous Outlook (reste plus qu'à trouver comment envoyer les valeurs dans Word).

**Oliv-** · 27/06/2019, 14h18

ah oui

tu peux simplement mettre les infos en text avec une tabulation comme séparateur

UserForm dans corps de mail - Insertion variable dans tableau HTML [OL-2016]

VBA Outlook

Discussions similaires

Partager

Partager