XL 2016 Excel et Outlook

joss56

XLDnaute Accro
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:
VB:
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

XLDnaute Occasionnel
Supporter XLD
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
 

Discussions similaires