envoi de mail avec Outlook et Excel 2003

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