Discussion :

[jiamer]

Bonjour à tous,

Je développe actuellement un module qui récupère la totalité des mails dans la boite de réception outlook et qui insèrent les informations dans une table access.

Mon seul soucis c'est que les mails ne se trouveront pas dans la boite de réception mais dans un dossier créer appelé Formulaires.

mon code actuel pour ce point est

Code :

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

Set objOLfolder = olknamespace.GetDefaultFolder(olFolderInbox)

j'aimerai savoir s'il est possible de regarder dans un autre dossier ???

Merci par avance

[pgz]

Bonjour,

Oui, c'est possible.
Ca devrait ressembler à

Code :

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

Set objOLfolder = olApp.GetNamespace("MAPI").Folders("Dossiers personnels").Folders("Formulaires")

Bon courage,

PGZ

[jiamer]

jai un soucis avec le code que tu m'as donné
jai en réponse impossible de trouver un objet
dans outlook en réalité il y a un dossier parent (formulaires) dans lequel il y a d'autres dossiers clients candidatures
j'ai donc adapté ton code

Code :

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

Set objOLfolder = olkapp.GetNamespace("MAPI").Folders("formulaires").folders("candidatures")

mais ca ne marche pas , je t'nvoie un bout de mon code, peut etre trouvera tu lerreur

Code :

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

1
2
3
4
5
6
7
8
Set olkapp = CreateObject("Outlook.application")
'Set olknamespace = olkapp.GetNamespace("MAPI")
Set objOLfolder = olkapp.GetNamespace("MAPI").Folders("formulaires").Folders("candidatures")
 
 
'ouverture des dossiers de mails
'Set objOLfolder = olknamespace.GetDefaultFolder(olFolderInbox)
'Set objOLfolder = olknamespace.Folders("formulaires")

Merci beaocup de ton aide en tout cas

[pgz]

Re,

2 questions :
ton dossier "formulaires" n'est pas dans un autre dossier, genre "Dossiers personnels"?

Quel est le type de objOlFolder?

A+

PGZ

[Muhad'hib]

Salut,

Je mets en PJ le code que j'avais fais pour remplir une table temporaire avec l'arboraissance Outlook.
C'est plus orienté contact que mail, mais il te sera peut-être utile.

Cela servait a renseigner un treeview.


Bon courrage

[jiamer]

Re,

2 questions :
ton dossier "formulaires" n'est pas dans un autre dossier, genre "Dossiers personnels"?

Quel est le type de objOlFolder?

A+

PGZ

voila mon arboresnce (voir piece jointe)
formulaires se trouve bien dans Dossiers personnels en effet.

Par contre le type de objOlFolder, si je ne dis pas de bétise est outlook.application

[pgz]

Re,

Il faut déclarer ta variable comme un répertoire MAPI

Code :

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

Dim ObjOlFolder as Outlook.MAPIFolder

Vue ton arborescence, c'est bien

Code :

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

Set objOLfolder = olApp.GetNamespace("MAPI").Folders("Dossiers personnels").Folders("Formulaires")

Pour instancier le dossier formulaires.
Pour le dossier Candidatures, sous dossier de formulaires, c'est

Code :

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

Set objOLfolder = olApp.GetNamespace("MAPI").Folders("Dossiers personnels").Folders("Formulaires").Folders("Candidatures")

Bon courage,

PGZ

[jiamer]

Merci PGZ cela fonctionne
lors de mes premiers essais y a du des cafaouillages et des erreurs d'orthographes mais maintenant c bon

Merci à chacun de vous pour votre aide

[fet_ben]

Bonjour,
J'essaye de créer une macro sur Outlook qui me permettra de lire de mails (qui sont sur un certain format) et se trouvant dans un dossier spécifique, et récupérer les informations du mail dans un fichier excel.

Pour le moment j'en suis qu'au début (étant novice dans la programmation en VBA).

J'aurai besoin de votre aide.

Je voudrai lire chaque mail, récupérer les données et les sauvegarder dans un fichier excel formaté.
Je ne sais pas comment accèder au corps du mail et aussi accèder au dossier crée, qui se trouve dans le dossier Boite de réception

Merc pour votre aide.

Pour info, voici le bout de code que j'ai pu pondre jusqu'à présent

Public Sub test()
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")

On Error Resume Next

'pour le moment j'accède à la boite de réception vue que je n'ai pas pu accèder au répertoire crée

Set Myfolder = olns.GetDefaultFolder(6)
NumItems = Myfolder.Items.Count

Set MyItem = Myfolder.Items.GetFirst

For I = 1 To NumItems
If MyItem <> "Purchase Request Status" Then
Set MyItem = Myfolder.Items.GetNext

'Else

'End If
'Next

If Err.Number <> 0 Then
Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
End If

End Sub

Merci encore pour votre aide.