Macro Outlook vs Dossiers Publique

[nabmed]

salut;

j'ai besoin d'écrire une macro sur VBA Outlook que je lancerai à la fin de la journée, qui va chercher dans les e-mail sockés dans un sous dossier publique pour extraire des informations du corps et de l'objet de ses e-mails et les mettre dans un nouveau Mail à envoyer.

Merci de répondre par une solution le plus tôt possible

[Heureux-oli]

Où es-tu bloqué ?

[nabmed]

je ne comprend pas "Où es-tu bloqué ?"

peurriez vous m'expliquer d'avantage?

Merci

[Heureux-oli]

Où en es-tu dans ta macro, quel est la difficulté qui te bloque ?

[nabmed]

j'ai besoin de la partie du code qui parcours les mails du sous dossiers publique, et utiliser leur propriétées (date, objet, corps...)

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub BrowseFolder()
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim OMail As MailItem
 
Dim stNom As String
Dim stAdr As String
 
 
        Set objNS = Application.GetNamespace("MAPI")
        Set objFolder = objNS.PickFolder
        For Each OMail In objFolder.Items
            Debug.Print OMail.SenderName
            Debug.Print OMail.SenderEmailAddress
        Next OMail
 
 
End Sub

Voilà une piste, je viens de tester le code, il fonctionne, à toi de le modifier.

[nabmed]

merci pour le morceau de code;

j'ai encore deux question, :

1-ou pourrais je mettre le chemin de mon dossier ("\\Dossiers publics\Favoris\Direction\Service ABC") pour y pointer directement sans utiliser "pickfolder"?

2-le dossier que j'ai à traiter contient plus que 680 mails, est ce que vous me conseiller l'utilisation de la boucle comme il est noté sur le code ou autre méthode pour extraire les e-mail qui ont juste la date du jour en cours?

merci.