envoi de mail via excel

[xtor]

Bonjour à tous ...
J'y suis presque arrivé ... J'ai maintenant un tarif personnalisé, mais lors de m'envoi vers excel, par moment ca va ... par moment pas !

j'obtiens cette erreur sur la ligne .SEND

RUN TIME ERROR 287 - Application defined - Or object defined error

je fais alors DEBUG F8 puis run ... et c'est bon jusqu'au client suivant ... même cinéma.

Auriez vous une idée ??

Set outlookDossier = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set outlookMessage = outlookDossier.Items.Add
SendKeys "w"

With outlookMessage
.Subject = vObjet
.Recipients.Add vMail
.Attachments.Add vPj
.Body = vMessage
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
ActiveCell.Offset(0, 4) = "x"

Set outlookMessage = Nothing
Set outlookDossier = Nothing

ActiveCell.Offset(1, 0).Select


Loop



D'avance merci !!

Michaël