creer un fichier excel à partir de données envoyées par mail (outlook)

C@thy

XLDnaute Barbatruc

• 8 Août 2011

• #16

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Bonne nouvelle!

J'arrive à un truc pas trop mal, remplir les cellules,
mais malgré le DisplayAlerts = False
il m'envoie un message :
Un programme essaie d'accéder aux adresses de messagerie enregistrées dans outlook. L'autorisez-vous à poursuivre?
Si cette action est inattendue, il se peut qu'il s'agisse d'un virus : dans ce cas, choisissez Non
case à cocher puis Autoriser l'accès pour liste déroulante 1 minute

donc à part ce message tutti va bene
On peut supprimer ce message???

Merci à tous, vous êtes Super!

Bises

C@thy

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 8 Août 2011

• #17

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

BrunoM45 à dit:

C@thy

Code:

Ns.Folders("Viviane")

Ne fonctione pas !?

Cliquez pour agrandir...

ben non 🙁

et c'est bien dommage car si je rajoute un dossier il faut changer le numéro...🙁

C@thy

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 8 Août 2011

• #18

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

re à tous,

à ce moment là, je dirais plutôt Ns.folders(5).folders("Viviane")

Tiens-nous au courant de ce que cela donne 🙂

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 8 Août 2011

• #19

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Oui, c'est exactement ce qui marche, mais c'est bête car je ne peux pas rajouter des dossiers sous peine de modifier cette instruction!!

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 8 Août 2011

• #20

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Re

Code:

Set FolderViviane = Ns.folders.Items("Viviane")

Essaye comme ça 😉

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 8 Août 2011

• #21

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Re,

Je rentre juste chez moi où j'ai Outlook installé et je te confirme que tu peux remplacer le 5 dans Folders(5) par son nom. Par exemple si Viviane est placé dans le répertoire Dossiers personnels, cette syntaxe fonctionne :

VB:

'...
    Set olApp = New Outlook.Application
    Set Ns = olApp.GetNamespace("MAPI")
    Set FolderViviane = Ns.folders("Dossiers personnels").Folders("Viviane")
'...

EDIT : Je viens de voir la proposition de BrunoM45, à tester aussi.
EDIT2 : Après test, je ne parviens pas à obtenir de résultat avec la proposition de BrunoM45. Peut-être une mauvaise manip de ma part ?
EDIT3 : Un

PHP:

MsgBox Ns.Folders(5).Name

t'aidera à trouver le nom du répertoire où s'est caché le sous répertoireViviane ^^
EDIT4 : Je te conseille de lire ce message en commençant par l'EDIT3 😛

 

Dernière édition: 8 Août 2011

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 9 Août 2011

• #22

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Merci Softmama et BrunoM45 pour tous vos efforts.

Bruno M45 :
message d'erreur
Propriété ou méthode non gérée par cet objet
Softmama :
Le msgBox me renvoie bien "Dossiers Personnels", mais le set sort en erreur :
impossible de trouver un objet

Damned!!

Bises

C@thy

 

Dernière édition: 9 Août 2011

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 9 Août 2011

• #23

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Re,

Je commence à pas comprendre ce qu'il se passe ???
As-tu bien respecté la casse ? A part ça, je ne vois pas ce qui cloche ...

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 9 Août 2011

• #24

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Ah oui, j'ai bien un problème :
Set RepViviane = Ns.Folders(5).Folders("Viviane") ne marche plus

alors j'ai testé ceci :
Set Dossier = Ns.Folders(5)
MsgBox Dossier.Name


For i = 1 To Dossier.Folders.Count
Set Dossier = Dossier.Folders(i)
With Dossier
MsgBox .Items.Count 'et là j'obtiens 1
MsgBox " ---- " & .Name ' et là j'obtiens Éléments supprimés
MsgBox .Parent 'et là j'obtiens Dossiers Personnels
End With
Next i

C@thy

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 9 Août 2011

• #25

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Softmama à dit:

Re,

Je commence à pas comprendre ce qu'il se passe ???

Cliquez pour agrandir...

moi pareil,

j'ai listé mes dossiers, j'en ai 8 :
Dossiers d'archivage, dossiers locaux, IMAP, BAL XXX (mon nom), Dossiers Personnels, ArchivOulookXXX (mon nom), Dossiers d'archives, Dossiers publics

ArchivOulookXXX est le dossier 6, et il est bien en-dessous, donc Dossiers Personnels est bien le 5

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 9 Août 2011

• #26

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Re,

Laisse moi un petit moment, le temps de rentrer chez moi, et je vais te pondre une macro fissa qui va t'afficher l'arborescence de ta boite outlook. Ainsi, s'il y' a un répertoire Viviane, tu pourras aisément repérer où il se trouve.
A toute donc.

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 9 Août 2011

• #27

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

OK les gars, j'ai un souci avec le dossier 5, j'ai mis Viviane dans le 6 et tout est OK

Set RepViviane = Ns.Folders(6).Folders("Viviane") est OK
Set RepViviane = Ns.Folders("ArchivOulookxxx").Folders("Viviane") est OK

Mille mercis pour votre aide,

je reviendrai sans doute vers vous, ou du moins vers ce post lorsque j'en saurai un peu plus sur le contenu du corps du message.

Effectivement on récupère tout dans une seule cellule et c'est pas très joli, donc j'imagine qu'il y aura une demande à ce niveau là.

Merci pour tout, vous êtes SUPER!!!

Bisous

C@thy

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 9 Août 2011

• #28

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Softmama à dit:

Re,

Laisse moi un petit moment, le temps de rentrer chez moi, et je vais te pondre une macro fissa qui va t'afficher l'arborescence de ta boite outlook. Ainsi, s'il y' a un répertoire Viviane, tu pourras aisément repérer où il se trouve.

Cliquez pour agrandir...

Ah ben ça, softmama, c'est encore plus SUPER,
le gâteau, la cerise sur le gâteau, et la chantilly en plus!!! Miam!....

Un grand MERCI Bises

C@thy

 

Dernière édition: 9 Août 2011

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 9 Août 2011

• #29

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

Re,

Donc, fait un peu en speed, teste ceci et tiens-nous au courant.

 

Pièces jointes

• OUTLOOK liste des dossiers.xls

  46 KB · Affichages: 69

Vote positif 0 Vote négatif

G

Guest

Guest

• 9 Août 2011

• #30

Re : creer un fichier excel à partir de données envoyées par mail (outlook)

bonjour tous,

une petite fonction de recherche par nom:

VB:

Sub test()
    Dim oApp As Outlook.Application
    Dim oSession As Outlook.NameSpace
    Dim oFolders As Outlook.Folders
    Dim oFolder As Outlook.Folder
    Dim ofindFolder As Outlook.Folder
 
    Set oApp = New Outlook.Application
    Set oSession = oApp.Session
    Set oFolders = Session.Folders
 
    For Each oFolder In oFolders
        GetFolderByName "Viviane", oFolder, ofindFolder
        If Not ofindFolder Is Nothing Then Exit For
    Next
    
End Sub
Sub GetFolderByName(strName As String, CurrentFolder As Outlook.Folder, Result As Outlook.Folder)
    Dim i As Integer
    If Not Result Is Nothing Then Exit Sub
    If CurrentFolder.Name = strName Then
        Set Result = CurrentFolder
    Else
        For i = 1 To CurrentFolder.Folders.Count
            GetFolderByName strName, CurrentFolder.Folders(i), Result
        Next
    End If
End Sub

A+

 

Vote positif 0 Vote négatif