Bonjour,
je dois envoyer un mailing avec des infos issues d'une feuille excel.
Les addresses des destinataires ainsi que d'autres infos sont des contenus de cellules.
Le pb c'est que mon code fonctione une seule fois ( un mail envoyé ) puis j'ai l'erreur : 91 Variable d'objet ou variable de bloc with non définie.
Ci-dessous mon 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53 Sub Mailing() Dim appOutlook As Outlook.Application Set appOutlook = CreateObject("outlook.application") Dim oMail As Outlook.MailItem Set oMail = appOutlook.CreateItem(olMailItem) Dim EMailSendTo As String, EMailCCTo As String, EMailBCCTo As String Dim cpt As String Dim nblignes As Long cpt = 0 'Compte le nbre de lignes pour le nbre d'enregistrements ActiveWorkbook.Sheets("Echeances_contrats").Select Range("O2").Select nblignes = Range("O2").CurrentRegion.Rows.Count - 1 Do While cpt < nblignes EMailSendTo = ActiveCell.Offset(cpt, 0).Value EMailCCTo = ActiveCell.Offset(cpt, 2).Value MsgBox cpt & nblignes ' affichage test MsgBox EMailSendTo ' affichage test MsgBox EMailCCTo ' affichage test With oMail .To = EMailSendTo .CC = EMailCCTo .Subject = "AVIS DE FIN DE CONTRAT" .BodyFormat = olFormatHTML .Body = "A l'attention du Responsable Informatique" & Chr(13) & "Cher(e) client(e) ," .Send Set oMail = Nothing End With cpt = cpt + 1 Loop End Sub
Partager