VBA Outlook mailItem

im oApp As Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oFolder As MAPIFolder
Dim oWorkFolder  As MAPIFolder


    Set oApp = CreateObject("Outlook.Application")
    Set oNameSpace = oApp.GetNamespace("MAPI")
    Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
   

    Set oWorkFolder = oFolder.Folders("Name of folder goes here")

im = Dim

Hvis du ønsker at finde mappenavnet, på den mappe hvor den valgte mail ligger i så kan nedenstående kode bruges.


Sub getFolderNameOfSelectedMail()
    Dim oMail As MailItem
    Set oMail = Application.ActiveExplorer.Selection.Item(1)
   
    MsgBox oMail.Parent.Name
   
End Sub


/Christian
ck@officekonsulenterne.dk

mailen ligger i en undermappe der hedde Anne som er en undermappe under tilbud løst som er en undermappe under indbakke..

men ved at bruge parent.name får jeg kun navnet tilbud løst :(
er der en løsning på dette?

En lille løsning på det kunne være

Sub getFolderNameOfSelectedMail()
    Dim oMail As MailItem
    Dim fld As Folder
    Set oMail = Application.ActiveExplorer.Selection.Item(1)
   
    Set fld = oMail.Parent
    While Not fld.Parent.Name = "Inbox"
        Set fld = fld.Parent
        MsgBox fld.Name
    Wend
   
End Sub

/Christian