Bonjour à tous,
J'ai fait un code sur VBA, qui permet d'envoyer des Mails automatiquement.
Le mail est envoyé aux contacts qui sont dans le champ "Contacts" de ma table "Table2"
Voici le code:
Le problème est que le mail est envoyé au premier contact uniquement, le code ne parcours pas tous les enregistrements. Je recois un message d'erreur disant: Erreur d'exécution' L'élement a été déplacé ou supprimé .
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
36
37
38
39
40
41 Private Sub Commande16_Click() Dim oEmail As Outlook.MailItem Dim appOutLook As Outlook.Application Set appOutLook = New Outlook.Application Set oEmail = appOutLook.CreateItem(olMailItem) StrSQL = "SELECT * FROM [Table1]" _ & " WHERE [Contacts] IS NOT NULL" Set rst = CurrentDb.OpenRecordset(StrSQL, dbOpenSnapshot) While Not rst.EOF If rst("Nom").Value = "ISNE" And rst("Date Retour").Value = "" Then oEmail.To = rst("Contacts") oEmail.Subject = "Relance 1 au 31.12.2016 -" oEmail.Body = "Bonjour," _ & vbCrLf & vbCrLf _ & "blablablabalablabalabalbalbalba." & vbLf _ & "blblblblbblb." & vbLf _ & vbCrLf & vbCrLf _ oEmail.Send End If rst.MoveNext Wend MsgBox ("Les mails ont étaient envoyés") End Sub
Quelqu'un pourrez m'aider, s'il vous plait?
Partager