DEBOGAGE mail excel

**yoyo77yo** · 25/03/2011, 14h36

Bonjour,

Je souhaite faire un mail en vba excel seulement j'ai remarque que si je fait une recherche dans l'annuaire outlook et que je laisse la fenêtre de propriété d'une personne choisi dans OUTLOOK : je lance mon appli VBA pour faire un mail automatique ==> erreur débogage au moment que le code lit :".display" .

enfin de compte l'erreur est provoque que si cette fenetre est ouverte : comment y remédier svp

voila le code :

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

**mayekeul** · 25/03/2011, 14h56

bonjour,
chez moi cela fonctionne

en rajoutant end with après l'instruction display bien entendu

**yoyo77yo** · 25/03/2011, 15h21

Envoyé par mayekeul

bonjour,
chez moi cela fonctionne

en rajoutant end with après l'instruction display bien entendu

oui mais avant de lancer la macro : ouvrez le carnet d'adresse OUTLOOK (pas les contact outlook => cherchez une personne et double cliquer dessus pour arriver sur la fenetre intitulé "propriété de <<CONTACT>>" => ensuite lancez la macro : moi j'ai :

Erreur d'execution '-1110425595 (bdd04005)':
une boite de dialogue est ouverte.Fermez cette boite de dialogue et recommancez.

Par avance merci de votre aide

DEBOGAGE mail excel [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager