MAPI Outlook

Salut

Alors voila un petit bout de code qui te rendra peut etre service
tu le colle dans un module, il te faut un ctrl mapi msg et session



Function EnvoyerMessage(Destinataire$, Fichier$, Note$, Sujet$,
ValideEnvois, EnvoyerMsg)
On Error GoTo ErrEnvoyerMessage
'
Call ControleAdressDestinataire(Destinataire$, ValideAdress)
If ValideAdress = False Then Exit Function
'
ValideEnvois = False
' Si une session a déjà débutée,
' quitter la procédure.
DebutMessagerie:
If MDI1.MAPISession1.NewSession Then GoTo ContinuerSession ' connecter
'sinon on est pas connecter
MDI1.MAPISession1.DownLoadMail = False
MDI1.MAPISession1.LogonUI = True ' Utilise l'UI de connexion du système de
messagerie sous-jacent.
MDI1.MAPISession1.SignOn
MDI1.MAPISession1.NewSession = True
'
ContinuerSession: ' on est connecter on continue
MDI1.MAPIMessages1.SessionID = MDI1.MAPISession1.SessionID
'
' composition du message
MDI1.MAPIMessages1.Compose
'
MDI1.MAPIMessages1.MsgIndex = -1
'
MDI1.MAPIMessages1.MsgSubject = Sujet$
'
MDI1.MAPIMessages1.MsgNoteText = Note$
'
PositionAttache = -1
If Fichier$ <> "" Then
' si pas de fichier
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(Fichier$)) = False Then GoTo FichierMessageSuivant
'
For C = Len(Fichier$) To 1 Step -1
If Mid(Fichier$, C, 1) = "" Then Exit For
Next
X$ = Mid(Fichier$, C + 1, Len(Fichier$))
PositionAttache = PositionAttache + 1
MDI1.MAPIMessages1.AttachmentIndex = PositionAttache
MDI1.MAPIMessages1.AttachmentPosition = PositionAttache
MDI1.MAPIMessages1.AttachmentType = 0
MDI1.MAPIMessages1.AttachmentName = X$
MDI1.MAPIMessages1.AttachmentPathName = Fichier$
'
FichierMessageSuivant:
End If
'
If Destinataire$ <> "" Then
MDI1.MAPIMessages1.RecipIndex = 0
MDI1.MAPIMessages1.RecipDisplayName = Destinataire$
End If
'
' envois du message
MDI1.MAPIMessages1.Send EnvoyerMsg
'
DoEvents
' deconnexion
MDI1.MAPISession1.SignOff
'
NewMsgInBox = True
'
ValideEnvois = True
'
'***********************************
Exit Function
ErrEnvoyerMessage:
If Err = 32001 Then Exit Function
If Err = 32053 Then MDI1.MAPISession1.NewSession = False: GoTo
DebutMessagerie
If MDI1.MAPISession1.NewSession Then MDI1.MAPISession1.SignOff
MsgBox Error$(Err) & " N°=" & Str(Err), vbOKOnly, "Erreur messagerie"
End Function






"Michel" <michel69@logys.fr> a écrit dans le message de
news:eDBewQ8KGHA.536@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,

J'ai un gros problème dont je n'arrive pas à sortir !

J'utilise dans une appli VB6 les outils MAPI. Tout va bien avec Outlook
Express mais avec Outlook, j'ai de manière aléatoire une erreur "Une

erreur

inconnue s'est produite"; ça marche qqfois mais la plupart du temps j'ai
cette erreur !

Le fichier MSMAPI32.OCX date du 24/06/1998, mais je ne pense pas que ça
vienne de là !

Voilà mon code :

MsessBig.DownLoadMail = False
MsessBig.SignOn
MmessBig.SessionID = MsessBig.SessionID
MmessBig.MsgIndex = -1
MmessBig.Compose

MmessBig.MsgSubject = "le sujet"
MmessBig.RecipAddress = "e mail du client"
MmessBig.RecipDisplayName = "nom du client"

MmessBig.AttachmentIndex = 1
MmessBig.MsgNoteText = textn (champ texte de taille illimité de

type

mémo)
MmessBig.Send True
MsessBig.SignOff

Avec tous mes remerciements pour votre aide;

Michel