Discussion :

[GENI36]

Bonjour
j'ai crée un simple formulaire,et je suis debutant dans le VBA & VBS,bon
j'ai besoi d'un programme qui permet de parcourir l'ensemble d'E-mails dans un dossier d'outlook pour charcher un sujet,puis renvoyer dans un champ du formulaire "corps" et dans un autre champ "nom d'expéditeur" ...
je vous remerci de votre aide,

[Dolphy35]

Salut,

as-tu consulté ceci Initiation au VBA d'Outlook


Dolphy

[GENI36]

salut,
oui Dolphy j'ai lu tout le cour d'initiation au VBA d'Outlook mais j'arrive pas amodifier ce code pour repondre a mes besoins car je suis débutant en programation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub EssaisCode()
'---------------------------------------------------------------------------------------
' Procédure : EssaisCode
' Auteur    : Dolphy35
' Site      : <a href="http://dolphy35.developpez.com/" target="_blank">http://dolphy35.developpez.com</a>
' Détail    : Permet de lister les noms d'expéditeur des Mails présent dans la
'             boîte de réception.
'---------------------------------------------------------------------------------------
'
    'Déclarations
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim mapDossier As Outlook.MAPIFolder
    Dim strResultat As String
    'Instancies
    Set olApp = Outlook.Application
    Set mapDossier = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    'Boucle parcourant les Emails de la boîte de réception
    For Each olMail In mapDossier.Items
        strResultat = strResultat & olMail.SenderName & vbCr
    Next
    'Affichage du résultat
    MsgBox strResultat, , "Liste de Noms des Mails reçus"
End Sub

[Oliv-]

Salut, tu dois être plus précis dans ton besoin.
quel sujet (fixe choix dans une liste,...)? quel dossier ? y a t'il des doublons possibles ? à quel moment la macro est lancée,...

[GENI36]

Salut
Pour le dossier :c'est un sous-dossier de la boite de réception,
J'ai créé un formulaire qui a pour objectif de faire la recherche dans tout les messages recu dans ce sous-dossier.
Ce formulaire est composé de +ieurs champs("Sujet","corps"....),Le macro doit se lancer automatiquement lors de saisie dans le champs" sujet" et il doit chercher dans tous ces messages ce sujet et remplir les autres champs automatiquement("nom d'expéditeur,corps...)

[Oliv-]

Tu peux t'inspirer de ce code là
http://outlook.developpez.com/faq/?p...A#VBA_Move_Exp
avec pour RESTRICT
"[Sujet] = 'Can''t'" ou "[Subject] = 'Can''t'"