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
|
Private Sub CommandButton7_Click()
Dim co As String
Dim co2 As String
UserForm11.Show
UserForm12.Show
If UserForm11.TextBox1.Value = "Oui" Then
co = "Green"
End If
If UserForm11.TextBox1.Value = "Non" Then
co = "Red"
End If
If UserForm12.TextBox1.Value = "Oui" Then
co2 = "Green"
End If
If UserForm12.TextBox1.Value = "Non" Then
co2 = "Red"
End If
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools /
'Reference / Cocher "Microsoft 'Outlook Library"
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = "adresse@email.fr"
.Subject = "Application non trouvée"
.HTMLBody = "<HTML><body><span style=""font-size: 13.5; font-family: Arial;"">Bonjour,<br><br>L'application <b><font color=Blue>" & TextBox1.Value & "</font></b> n'est pas disponible :<br><br>Disponible dans le référentiel applicatif : <b><font color=" & co & ">" & UserForm11.TextBox1.Value & "</font></b><br>Disponible dans BMC REMEDY : <b><font color=" & co2 & ">" & UserForm12.TextBox1.Value & "</font></b><br><br><br></span>" _
& "<HTML><body></font><span style=""font-size: 13.5; color:navy; font-family: Arial;"">Opérations - Agence <br>Informatique - Etablissement <br>Tél. : 01.58</span><br><span style=""font-size: 24; color:green""><font face='webdings'>ü</font></font></span><span style=""font-size: 10; color:green; font-family: Arial"">Jouons le jeu de l'environnement. Ne gaspillons pas ! N'imprimez ce mail que si nécessaire.</span><span style=""font-size: 24; color:green""><font face='webdings'>ü</font></font></span>"
.BodyFormat = olFormatHTML
.Display |
