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.
06/02/2012, 14h18
Subject du Mail lié à un label
00
