Lire les mails Outlook
Fonky83
Messages postés
12
Date d'inscription
vendredi 14 février 2003
Statut
Membre
Dernière intervention
11 décembre 2003
-
18 févr. 2003 à 16:05
devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008 - 9 déc. 2003 à 00:58
devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008 - 9 déc. 2003 à 00:58
A voir également:
- Lire mail outlook
- Activer macro outlook - Forum Visual Basic
- Les macros sur Outlook ne fonctionnent plus et ne sont plus accessibles ! - Forum VBA Office (Excel, Word ...)
- Gestion signature outlook ✓ - Forum VB.NET
- Impossible de lire la propriété vlookup - Forum Visual Basic
- Flash mail - Forum Flash
4 réponses
Dachup
Messages postés
7
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
21 février 2003
20 févr. 2003 à 16:52
20 févr. 2003 à 16:52
Vous trouverez une mine d'informations dans l'aide en ligne d'Access
Les messages peuvent être lus dans un formulaire contenant des contrôles indépendants qui reçoivent les différentes données du message sous forme de variables.
Code de l'événement Sur ouverture du formulaire
Private Sub Form_Open(Cancel As Integer)
'Déclaration des variables objets Outlook
Dim appOutlook As New Outlook.Application
Dim nspOutlook As NameSpace
Dim mpfMail As MAPIFolder
Dim olkMail As MailItem
'Affectation des variables objets
Set nspOutlook = appOutlook.GetNamespace("MAPI")
Set mpfMail = nspOutlook.GetDefaultFolder(olFolderInbox)
'Déclaration des variables données du message
Dim strEmetteur, strObjet, strMessage As String
'strEmetteur reçoit le contenu de la propriété SenderName
'strObjet reçoit le contenu de la propriété Subject
'strMessage reçoit le contenu de la propriété Body
Dim intNbItems As Integer 'Nombre de messages dans la boîte de réception
Dim intNoItem As Integer 'Numéro d'ordre du message
'Affectation des variables de la boucle d'exploration de la boîte de réception
intNbItems = mpfMail.Items.Count
intNoItem = 1
End Sub
Ensuite il faut créer un bouton de commande qui incrémente le numéro d'ordre du message, sans oublier de contrôler que le dernier message est atteint.
Les messages peuvent être lus dans un formulaire contenant des contrôles indépendants qui reçoivent les différentes données du message sous forme de variables.
Code de l'événement Sur ouverture du formulaire
Private Sub Form_Open(Cancel As Integer)
'Déclaration des variables objets Outlook
Dim appOutlook As New Outlook.Application
Dim nspOutlook As NameSpace
Dim mpfMail As MAPIFolder
Dim olkMail As MailItem
'Affectation des variables objets
Set nspOutlook = appOutlook.GetNamespace("MAPI")
Set mpfMail = nspOutlook.GetDefaultFolder(olFolderInbox)
'Déclaration des variables données du message
Dim strEmetteur, strObjet, strMessage As String
'strEmetteur reçoit le contenu de la propriété SenderName
'strObjet reçoit le contenu de la propriété Subject
'strMessage reçoit le contenu de la propriété Body
Dim intNbItems As Integer 'Nombre de messages dans la boîte de réception
Dim intNoItem As Integer 'Numéro d'ordre du message
'Affectation des variables de la boucle d'exploration de la boîte de réception
intNbItems = mpfMail.Items.Count
intNoItem = 1
End Sub
Ensuite il faut créer un bouton de commande qui incrémente le numéro d'ordre du message, sans oublier de contrôler que le dernier message est atteint.
Fonky83
Messages postés
12
Date d'inscription
vendredi 14 février 2003
Statut
Membre
Dernière intervention
11 décembre 2003
21 févr. 2003 à 09:51
21 févr. 2003 à 09:51
Ok merci bcp.
J'ai oublié de préciser que le serveur de messagerie que je dois consulter est sous protocole IMAP (et non POP3).
Du coup les MAPI control ne fonctionnent pas.
Votre exemple est compatible avec IMAP ?
J'ai oublié de préciser que le serveur de messagerie que je dois consulter est sous protocole IMAP (et non POP3).
Du coup les MAPI control ne fonctionnent pas.
Votre exemple est compatible avec IMAP ?
Dachup
Messages postés
7
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
21 février 2003
21 févr. 2003 à 11:59
21 févr. 2003 à 11:59
Aucune idée. Mes connaissances ne vont pas jusque là
devsurf
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
9 déc. 2003 à 00:58
9 déc. 2003 à 00:58
A mon avis ce n'est pas le protocol pop3 qui bloque la.
MAPI est une fonctionalité à utiliser avec Microsoft outlook (de office) et non pas outlook express.
MAPI est une fonctionalité à utiliser avec Microsoft outlook (de office) et non pas outlook express.
