E
emptyover
Guest
Bonjour,
J'ai un fichier excel avec une adresse email, un sujet, un corps de texte et surtout un lien vers une pièce jointe.
Mon problème vient du faite que parfois la pièce jointe n'existe pas et j'ai donc une erreur sur mon code et donc cela stop tout le processus. Le problème vient de la ligne .Attachments.Add (pj) qui lorsqu'il n'y a pas de pièce jointe fait arrêter toute la macro, ce que je voudrais serait un fonction qui fasse continuer la macro meme si il n'y pas de pièce jointe(du genre if pj est fausse continuer quand meme la macro).
Voila ma macro:
Merci beaucoup
J'ai un fichier excel avec une adresse email, un sujet, un corps de texte et surtout un lien vers une pièce jointe.
Mon problème vient du faite que parfois la pièce jointe n'existe pas et j'ai donc une erreur sur mon code et donc cela stop tout le processus. Le problème vient de la ligne .Attachments.Add (pj) qui lorsqu'il n'y a pas de pièce jointe fait arrêter toute la macro, ce que je voudrais serait un fonction qui fasse continuer la macro meme si il n'y pas de pièce jointe(du genre if pj est fausse continuer quand meme la macro).
Voila ma macro:
VB:
Sub SendMail_Outlook()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Dim objOutlookAttach As Attachment
i = 1
Do While i < 4
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
pj = Cells(i, 4)
.To = Cells(i, 2).Value
.subject = Cells(i, 1).Value
.Body = Cells(i, 3).Value
.Attachments.Add (pj)
.Display
i = i + 1
'.Send
End With
Loop
End Sub
Dernière modification par un modérateur: