Subject du Mail lié à un label

Bonjour,

J'ai créer un fichier html qui me permet l'affichage de mon mail via une procédure lancé par une macro dans Outlook.

Cependant dans mon fichier html, j'aimerais définir mon Subject et uniquement l'objet du mail ! Qui lui une fois qu'on le modifie va alimenter un label présent dans ma page html (au niveau du sujet =') ) afin d'éviter de retapper la même chose et que aucune erreur de frappe soit commise.

Voici un bout de code html :

Code:

1
2
3
4
5
6
7
8
9
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  <body bgcolor="white" style="font-family: Verdana, Arial, Helvetica, sans-serif; margin: 0px;">
    <table bgcolor="white" width="752px" align="left">
      <tr>
      <td>Le mail s'affiche bien youhou!</td>
      </tr>
    </table>
</body>

Voici le code VBA de mon outlook (repris de Dolphy dans les tutos de ce site =) :

Code:

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
 
Sub CreationMailHTML()
'---------------------------------------------------------------------------------------
' Procédure : CreationMailHTML
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Date      : 01/05/2008
' Détail    : Récupère le contenu d'un fichier HTML et le charge en tant que corps du message du mail
'---------------------------------------------------------------------------------------
'
'Déclarations des objets et des variables
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim strBody As String
    Dim oFSO As Scripting.FileSystemObject
    Dim oFl As Scripting.File
    Dim oTxt As Scripting.TextStream
 
    'Instance des objets
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    'instance des objets Fso pour récupérer le contenu du fichier HTML
    Set oFSO = New Scripting.FileSystemObject
    Set oFl = oFSO.GetFile("C:\...\test.html")
    Set oTxt = oFl.OpenAsTextStream(ForReading)
 
    'récupère le contenu du fichier HTML
    strBody = oTxt.ReadAll
 
    'Objet mail
    With objMail
       .BodyFormat = olFormatHTML                           'définition du format du mail, ici HTML
       .Subject = ""   'sujet du mail
       .HTMLBody = strBody                                  'chargement du fichier HTML en tant que coprs du message
       .Display                                             'affichage du mail
    End With
 
End Sub

Tous fonctionne correctement pour l'affichage du Mail. Mais je suis perdu par rapport à l'objet et à son alimentation dans un label. Comment puis-je faire ?

:(

Merci.