MAPI session et MAPI messages en VB
vinnssou
-
cora -
cora -
Bonjour,
Je voudrais savoir si il faut inclure des références ou des composants dans mon projet VB pour pouvoir utiliser les MAPI dans le but d'envoyer 1 mail...
A l'éxécution du prog g 1 erreur 427(je crois) : le composant activeX ne peut créer l'objet.
Merci d'avance,
Vinnssou
/\/\/\/\/{:<
Je voudrais savoir si il faut inclure des références ou des composants dans mon projet VB pour pouvoir utiliser les MAPI dans le but d'envoyer 1 mail...
A l'éxécution du prog g 1 erreur 427(je crois) : le composant activeX ne peut créer l'objet.
Merci d'avance,
Vinnssou
/\/\/\/\/{:<
A voir également:
- Défaillance mapi
- Erreur 0x8000ffff défaillance irrémédiable ✓ - Forum Disque dur / SSD
- Erreur lors de l'extraction des fichiers de support défaillance irrémédiable ✓ - Forum Windows 10
- Wsl défaillance irrémédiable ✓ - Forum Debian
- Défaillance irrémédiable ???? ✓ - Forum Logiciels
- Défaillance irrémédiable 0x8000ffff - Forum Windows 10
7 réponses
Dans Outils->Références, la case Microsoft MAPI Controls et les cases correspondantes à ta
messagerie sont cochées?
PS
messagerie sont cochées?
PS
Moi j'ai pas utilisé les MAPI pour envoyer mes mails (me suis débrouillé autrement), mais il me semble qu'il faut que tu dises quel type de messagerie tu utilises et que tu aies les composants correspondants!
PS
PS
Un truc du genre:
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = adresseMailString
'#########################################################################################
'# Sujet: #
myItem.Subject = Range("C4")
'# #
'#########################################################################################
myItem.Body = Msg
Set myAttachments = myItem.Attachments
'#########################################################################################
'# #
myAttachments.Add "d:\Temp\suggestion\Suggestions.xls"
'# #
'#########################################################################################
myItem.Display
myItem.Send
Set ol = Nothing
PS
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = adresseMailString
'#########################################################################################
'# Sujet: #
myItem.Subject = Range("C4")
'# #
'#########################################################################################
myItem.Body = Msg
Set myAttachments = myItem.Attachments
'#########################################################################################
'# #
myAttachments.Add "d:\Temp\suggestion\Suggestions.xls"
'# #
'#########################################################################################
myItem.Display
myItem.Send
Set ol = Nothing
PS
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
vinnssou