liaisons Excel Outlook Express

[glaine]

Bonjour à tous,
Je remercie d'avance tous ceux qui pourront m'apporter un peu d'aide.
Le problème:
Je voudrais à partir d'une liste d'email sous excel envoyer à tous les membres un fichier joint:

Sub message()
Dim titre, message, dest As String
Dim fichier As Variant
fichier = "C:\Documents and Settings\machin\Bureau\essai.rtf"
titre = InputBox("veuillez saisir un titre pour votre message")
message = "test"
Worksheets("feuil1").Select
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" Then
           dest = cell.Value
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & "?subject=" & titre & "& Body=" & message & ""
SendKeys "%I" & "p" & fichier, True
SendKeys "~" & "%s", True
End If
Next cell
End Sub

L’exécution du code donne des résultats fantaisistes.(Sur 4 personnes, 2 sont correctement envoyés, le reste bloque sans raison.)
Y-a-t-il un moyen plus sûr de travailler avec outlook express ?
Amicalement