Outil mailing vba - erreur d'execution 5
Bonsoir j’ai besoin de votre aide en effet j’ai créé un fichier de mailing sur Vba sur mon pc ça fonctionne alors sur le pc de mon ami ça fonctionne pas :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Private Sub CommandButton1_Click()
Dim LeMail As Variant
Dim Ligne As Integer
For Ligne = 12 To 15
Set LeMail = CreateObject("Outlook.Application")
With LeMail.CreateItem(olMailItem)
.Subject = Range("d9") & " - " & Range("h" & Ligne)
.To = Range("i" & Ligne)
.Body = Range("d17")
.Display
End With
Next Ligne
End Sub |
Quand mon ami appuie sur le bouton il y’a écrit comme message d’erreur
Citation:
erreur d'exécution 5
