Erreur MAPI

Amis du Forum, bonjours

J'envoi des mail avec Access via la méthode MAPI (code ci dessous, copié sur
un des site des MVP qui nous aident, qu'ils en soient remerciés, mais je ne
sais plus à qui)

la fonction SendMail retourne un numero d'erreur (le 2), mais je ne sais pas
à quoi cela correspond

Quelqu'un sait ou trouver les descriptions d'erreurs selon le numero?

Merci pour toute aide.


'Declare Special Types for use with MAPI
Type MAPIMessage
Reserved As Long
Subject As String
NoteText As String
MessageType As String
DateReceived As String
ConversationID As String
Flags As Long
RecipCount As Long
FileCount As Long
End Type

Type MapiRecip
Reserved As Long
RecipClass As Long
Name As String
Address As String
EIDSize As Long
EntryID As String
End Type

Type MapiFile
Reserved As Long
Flags As Long
Position As Long
PathName As String
FileName As String
FileType As String
End Type

Global Dialogue As MAPIMessage

'DLL Functions in MAPI module
Declare Function MAPISendMailOE _
Lib "C:\Program Files\Outlook Express\Msoe.dll" _
Alias "BMAPISendMail" _
(ByVal Session&, _
ByVal UIParam&, _
Message As MAPIMessage, _
Recipient() As MapiRecip, _
File() As MapiFile, _
ByVal Flags&, _
ByVal Reserved&) As Long

Declare Function MAPISendMail _
Lib "MAPI32.DLL" _
Alias "BMAPISendMail" (ByVal Session&, _
ByVal UIParam&, _
Message As MAPIMessage, _
Recipient() As MapiRecip, _
File() As MapiFile, _
ByVal Flags&, _
ByVal Reserved&) As Long

Global Const SUCCESS_SUCCESS = 0
Global Const MAPI_TO = 1
Global Const MAPI_CC = 2
Global Const MAPI_CCO = 3
Global Const MAPI_LOGON_UI = &H1
Global Const MAPI_DIALOG = &H8

' FUNCTION NAME: SendMail
'
' Usage:
' This is the front-end function to the MAPISendMail function. You
' pass a semicolon-delimited list of To and CC recipients, a
' subject, a message, and a delimited list of file attachments.
' This function prepares MapiRecip and MapiFile structures with the
' data parsed from the information provided using the ParseRecord
' sub. Once the structures are prepared, the MAPISendMail function
' is called to send the message.
'
' INPUT PARAMETERS:
' sSubject: The text to appear in the subject line of the message
' sTo: Semicolon-delimited list of names to receive the
' message
' sCC: Semicolon-delimited list of names to be CC'd
' sCCO: Semicolon-delimited list of names to be CCO'd
' sAttach: Semicolon-delimited list of files to attach to
' the message
' RETURN
' SUCCESS_SUCCESS if successful, or a MAPI error if not.
'*************************************************************

Function SendMail(sSubject As String, _
sTo As String, _
sCC As String, _
sCCO As String, _
sAttach As String, _
sMessage As String, _
Optional sImmediateSend As Boolean = True) _
As Long

Dim i, cTo, cCC, cCCO, cAttach ' variables holding counts
Dim MAPI_Message As MAPIMessage

' Count the number of items in each piece of the mail message
cTo = CountWords(sTo, ";")
cCC = CountWords(sCC, ";")
cCCO = CountWords(sCCO, ";")
cAttach = CountWords(sAttach, ";")

' Create arrays to store the semicolon delimited mailing
' .. information after it is parsed
ReDim rTo(0 To cTo) As String
ReDim rCC(0 To cCC) As String
ReDim rCCO(0 To cCCO) As String
ReDim rAttach(0 To cAttach) As String

' Parse the semicolon delimited information into the arrays.
ParseWords rTo(), sTo, ";"
ParseWords rCC(), sCC, ";"
ParseWords rCCO(), sCCO, ";"
ParseWords rAttach(), sAttach, ";"

' Create the MAPI Recip structure to store all the To and CC
' .. information to be passed to the MAPISendMail function
ReDim MAPI_Recip(0 To cTo + cCC + cCCO - 1) As MapiRecip

' Setup the "TO:" recipient structures
For i = 0 To cTo - 1
MAPI_Recip(i).Name = rTo(i)
MAPI_Recip(i).RecipClass = MAPI_TO
Next i

' Setup the "CC:" recipient structures
For i = 0 To cCC - 1
MAPI_Recip(cTo + i).Name = rCC(i)
MAPI_Recip(cTo + i).RecipClass = MAPI_CC
Next i

' Setup the "CCO:" recipient structures
For i = 0 To cCCO - 1
MAPI_Recip(cTo + cCC + i).Name = rCCO(i)
MAPI_Recip(cTo + cCC + i).RecipClass = MAPI_CCO
Next i

' Create the MAPI File structure to store all the file attachment
' .. information to be passed to the MAPISendMail function
ReDim MAPI_File(0 To cAttach) As MapiFile

' Setup the file attachment structures
MAPI_Message.FileCount = cAttach
For i = 0 To cAttach - 1
MAPI_File(i).Position = -1
MAPI_File(i).PathName = rAttach(i)
Next i

' Set the mail message fields
MAPI_Message.Subject = sSubject
MAPI_Message.NoteText = sMessage
MAPI_Message.RecipCount = cTo + cCC + cCCO

' Define Immediate_Sending Option
If sImmediateSend = True Then
Dialogue.Flags = MAPI_LOGON_UI
Else
Dialogue.Flags = MAPI_LOGON_UI + MAPI_DIALOG
End If
'Send the mail message

Select Case GetDefaultMailSoftware()

Case "Outlook Express"
SendMail = MAPISendMailOE(0&, 0&, _
MAPI_Message, _
MAPI_Recip(), _
MAPI_File(), _
Dialogue.Flags, 0)

Case "Microsoft Outlook", "Outlook"
SendMail = MAPISendMail(0&, 0&, _
MAPI_Message, _
MAPI_Recip(), _
MAPI_File(), _
Dialogue.Flags, 0)

Case Else
MsgBox "Votre client de messagerie n'est pas supporté"
End Select




End Function