MAPI Message

bonsoir,
j'abuse je sais mais c'est comme cela que je progresse.
j'ai fais une petite fonction pour l'envoi de mail
d'abord par CDO, si ne répond pas, tentative par MAPI
sur CDO aucun soucis mais MAPI me donne du fil à retordre à savoir:
le .Send False me donne malgré tout la boîte de dialogue me
signalant l'envoi du message????

Auriez-vous la gentillesse de jeter un oeil à ce code et me dire le
pourquoi, mauvaise implémentation?

merci d'avance

Pascal

**********************************************************************
Private Function GoMail(sFrom As String, sTo As String, sSujet As String, _
sText As String, Relais As String, _
Optional Signature As String, Optional
PieceJointe1 As String, _
Optional PieceJointe2 As String)

Dim rep As String
With CreateObject("CDO.Message")
.From = sFrom
.To = sTo
.Subject = sSujet
.TextBody = sText & vbNewLine & Signature
.AddAttachment PieceJointe1
.AddAttachment PieceJointe2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= Relais
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Configuration.Fields.Update

On Error GoTo ErreurCdo
.Send
MsgBox "Message envoyé"
Exit Function 'l'envoi s'est bien passé on sort de la sub

ErreurCdo:
If Err Then
rep = MsgBox("Le message n'a pas pu être expédié" & vbCrLf & _
"Cliquez sur OK pour tenter un envoi MAPI" & vbCrLf & _
"l'expéditeur sera la première adresse valide de " &
vbCrLf & _
"votre messagerie", vbOKCancel + vbCritical, "Erreur
Relais SMTP")
If rep = vbCancel Then Exit Function
End If

'tentative d'envoi MAPI message
MAPISession1.SignOn
With MAPIMessages1

.AddressResolveUI = True 'verifie l'adresse de messagerie dans
la liste
.ResolveName 'des utilisateurs inscrit dans le
système de courrier électronique
.MsgIndex = -1 '
.RecipDisplayName = sTo 'l adresse du destinataire
.MsgSubject = sSujet 'le sujet
.MsgNoteText = sText 'le corps du message
.SessionID = MAPISession1.SessionID
If Len(PieceJointe1) > 0 Then .AttachmentPathName = PieceJointe1

On Error GoTo ErreurMapi
.Send False <<<--------ERREUR ICI (boite de dialogue
toujours présente)
MsgBox "Message envoyé"
End With
MAPISession1.SignOff
Exit Function

ErreurMapi:
If Err Then
rep = MsgBox("Le message n'a pas pu être expédié",
vbCritical, "Erreur Relais SMTP")
End If

MAPISession1.SignOff
End With
End Function