Envoi de mails à suivre

[anber]

Bonjour le forum,

Ci-joint un exemple d'envoi de mails à suivre (1 mail par feuille), mon code plante sur l'envoi du 2e mail.
Un petit coup main, je ne vois pas ma bourde.

Merci

 

[pierrejean]

Re : Envoi de mails à suivre

bonjour anber

A 1ere vue , lorsqu'un message a été envoyé il faut recreer un olMailItem

teste

.......
 With wb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormatNum
      End With
 [COLOR=blue] Set message = appOutlook.CreateItem(olMailItem)
[/COLOR]    'Generation du mail
    With message
........

 

[anber]

Re : Envoi de mails à suivre

Bonsoir pierrejean,

C'est bien celà

Merci

Bonne soirée

 

[anber]

Re : Envoi de mails à suivre

Bonjour le forum,

Mon code fonctionne très bien sous excel 2007. Les pièces jointes arrivent normalement.
Sous excel 2003 (et outlook 2003), j'ai remplacé la library, les mails partent bien bien avec leur pièce jointe, du moins c'est ce que je vois dans éléments envoyés, par contre à l'arrivée chez tous mes correspondants la pièce jointe à disparue.
J'ai fait un test d'envoi d'une jointe pièce jointe via la messagerie tout est Ok, la pièce jointe est reçue.
J'en ai déduit que c'est peut-être le code.

Avez-vous déjà rencontré ce problème ?

Merci

Bon WE