Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Envoi de mail avec Mapi

Envoi de mail avec Mapi

3 réponses
Avatar
Daniel AUBRY
Bonsoir à tous,

j'ai un souci d'envoi de mail avec VB6 et MAPI.
En mode IDE tout se passe très bien.
Une fois compilé, j'ai le message d'erreur :
Erreur d'exécution 5

?????????????????????

Mon code :
Depart.MAPISession.SignOn

With Depart.MAPIMessage
.MsgIndex = -1
.RecipType = mapBccList
For i = 0 To UBound(Adresse)
.RecipIndex = i
.RecipAddress = Adresse(i)
Next
.MsgSubject = SaisieSujet.Text
.MsgNoteText = SaisieMail.Text
If SaisiePieceJointe.Text <> "" Then .AttachmentPathName =
SaisiePieceJointe.Text
.SessionID = Depart.MAPISession.SessionID
.Send
End With

Depart.MAPISession.SignOff

Que je choississe un ou plusieurs destinataires, cela
ne change rien.

si quelqu'un a une p'tite idée...........
D'avance, merci.

dany
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel AUBRY
J'ai oublié de préciser que les messages partent
et arrivent bien !!!
Mais mon log est planté !!

"Daniel AUBRY" a écrit dans le message de news:
463f5fe9$0$28532$
Bonsoir à tous,

j'ai un souci d'envoi de mail avec VB6 et MAPI.
En mode IDE tout se passe très bien.
Une fois compilé, j'ai le message d'erreur :
Erreur d'exécution 5

?????????????????????

Mon code :
Depart.MAPISession.SignOn

With Depart.MAPIMessage
.MsgIndex = -1
.RecipType = mapBccList
For i = 0 To UBound(Adresse)
.RecipIndex = i
.RecipAddress = Adresse(i)
Next
.MsgSubject = SaisieSujet.Text
.MsgNoteText = SaisieMail.Text
If SaisiePieceJointe.Text <> "" Then .AttachmentPathName =
SaisiePieceJointe.Text
.SessionID = Depart.MAPISession.SessionID
.Send
End With

Depart.MAPISession.SignOff

Que je choississe un ou plusieurs destinataires, cela
ne change rien.

si quelqu'un a une p'tite idée...........
D'avance, merci.

dany



Avatar
Daniel AUBRY
GROSSE ERREUR DE MA PART.
ne pas tenir compte de ce post.
l'erreur vient d'ailleurs !!!!!!!

toutes mes excuses..........

Dany

"Daniel AUBRY" a écrit dans le message de news:
463f5fe9$0$28532$
Bonsoir à tous,

j'ai un souci d'envoi de mail avec VB6 et MAPI.
En mode IDE tout se passe très bien.
Une fois compilé, j'ai le message d'erreur :
Erreur d'exécution 5

?????????????????????

Mon code :
Depart.MAPISession.SignOn

With Depart.MAPIMessage
.MsgIndex = -1
.RecipType = mapBccList
For i = 0 To UBound(Adresse)
.RecipIndex = i
.RecipAddress = Adresse(i)
Next
.MsgSubject = SaisieSujet.Text
.MsgNoteText = SaisieMail.Text
If SaisiePieceJointe.Text <> "" Then .AttachmentPathName =
SaisiePieceJointe.Text
.SessionID = Depart.MAPISession.SessionID
.Send
End With

Depart.MAPISession.SignOff

Que je choississe un ou plusieurs destinataires, cela
ne change rien.

si quelqu'un a une p'tite idée...........
D'avance, merci.

dany



Avatar
Gloops
Salut,

Fais voir les déclarations de variables ?
___________________________________________
Daniel AUBRY a écrit, le 07/05/2007 19:21 :
J'ai oublié de préciser que les messages partent
et arrivent bien !!!
Mais mon log est planté !!

"Daniel AUBRY" a écrit dans le message de news:
463f5fe9$0$28532$
Bonsoir à tous,

j'ai un souci d'envoi de mail avec VB6 et MAPI.
En mode IDE tout se passe très bien.
Une fois compilé, j'ai le message d'erreur :
Erreur d'exécution 5

?????????????????????

Mon code :
Depart.MAPISession.SignOn

With Depart.MAPIMessage
.MsgIndex = -1
.RecipType = mapBccList
For i = 0 To UBound(Adresse)
.RecipIndex = i
.RecipAddress = Adresse(i)
Next
.MsgSubject = SaisieSujet.Text
.MsgNoteText = SaisieMail.Text
If SaisiePieceJointe.Text <> "" Then .AttachmentPathName =
SaisiePieceJointe.Text
.SessionID = Depart.MAPISession.SessionID
.Send
End With

Depart.MAPISession.SignOff

Que je choississe un ou plusieurs destinataires, cela
ne change rien.

si quelqu'un a une p'tite idée...........
D'avance, merci.

dany