envoi de mail avec Outlook et Excel 2003

gosselien

XLDnaute Barbatruc
Bonjour,

j'ai un petit soucis d'envoi de mail (en entreprise) via Outlook (donc je ne sais pas tester avec outlook express :( )

il envoye bien le mail mai me donne le message suivant "un programme tente etc etc" voir image jointe. Hors il y a plus de 50 mails à envoyer :(
comment faire pour ne plus avoir ce message ? sendkey peut être ?
d'autre part, où mettre une seconde adresse en CC (si c'est possible) ?
merci à vous
' code venant de: http://www.rondebruin.nl/win/winmail/div/tips.htm

With wb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormatNum
On Error Resume Next
For i = 1 To 3
.SendMail Recipients:=Range("H1").Value ' _
SendKeys "~" ' ???????
If Err.Number = 0 Then Exit For
Next i
On Error GoTo 0
.Close SaveChanges:=False
End With
 

Pièces jointes

  • mail.jpg
    mail.jpg
    24.4 KB · Affichages: 52
  • mail.jpg
    mail.jpg
    24.4 KB · Affichages: 53
  • mail.jpg
    mail.jpg
    24.4 KB · Affichages: 57

Discussions similaires