XL 2016 Excel et Outlook

[joss56]

Bonjour à toutes et tous,

Je souhaite faire un mailing Outlook à partir d'Excel.
J'ai donc créé un feuille excel avec, en colonne B, de vraies adresses mail et en colonne C, le nom de la pièce jointe.
Le code:

Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Dim corps As String
Dim i As Integer

Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)


corps = "Vous trouverez en pièce jointe votre fiche d'appréciation."
i = 2

Do While Cells(i, 1) <> ""

With Olmail
    .To = Cells(i, 2).Value
    .Subject = "FICHE EVALUATION"
    .Body = "Bonjour, " & Chr$(10) & corps & Chr$(10) & Chr$(10) & "Bien cordialement" & Chr$(10) & "Aurélie"
    .Attachments.Add ThisWorkbook.Path & "\" & Cells(i, 3).Value & ".pdf"
    .Send
End With

i = i + 1
Loop

Le mail + PJ est envoyé à la première adresse en ligne 2 et message d'erreur "L'élément a été déplacé ou supprimé" lorsque mon compteur i vaut 3.

Merci de votre retour

Jocelyn

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @joss56
Il semblerait que pour i =3, ThisWorkbook.Path & "\" & Cells(i, 3).Value & ".pdf" ne renvoie pas un nom de fichier valide ... Vérifie bien l'orthographe du nom du fichier (et attention aux espaces qui pourraient traîner uen début ou en fin du nom.
Amicalement
Alain

 

[joss56]

Merci de ton retour.
En fait, il fallait mettre l'instruction :

Set Olmail = Ol.CreateItem(olMailItem)

dans la boucle pour créer un nouveau message...
Encore merci.
Jocelyn

 

[AtTheOne]

Re @joss56
Merci Jocelyn pour ton retour
Alain