Accessing emails in Outlook - can I specify a sub-folder?

[Officer_Bierschnitt]

Hi,



I have a macro accessing the emails in the Outlook_inbox and parsing them to identify a specific one and process it.
Currently, I'm using the constant > olFolderInbox < (corresponding to the nr. 6) to specify the Inbox.

=> Is there a way to specify another folder (in this case that would be a subfolder that we created in the Inbox?

Thanks a lot!

Best regards,

Officer_Bierschnitt

[Officer_Bierschnitt]

Hi,

there is another problem leading back to this one: The guys in the dpt. where that macro is supposed to run all have two inboxes: The personal one and a team_inbox.
When I ran a code that I found online to test for the ID of Outlook_sessions and display it in a MsgBox, however, only one session was found. Thus, I cannot have them run the macro unless someone logs on to the team_account.
It would be much more practical, however, if I was able to specify that the macro should not search the personal inbox, but the team_inbox.
I just don't know how to find out the constant I have to use to do so.
Can anybody help me with that?
Thanks a lot!

Best regards,

Officer_Bierschnitt

[charlesdh]

HI,
As before I don have Outlook. But, See if this code helps.

Sub launchpad()
 
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim MyFolder As Outlook.MAPIFolder
    On Error Resume Next
    
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    Set MyFolder = objNS.PickFolder
    Call ProcessFolder(MyFolder)
    Set objNS = Nothing
 
Set MyFolder = Nothing
Set olApp = Nothing
Set objNS = Nothing
 
End Sub
 
 
Sub ProcessFolder(StartFolder As MAPIFolder)
Dim objFolder As Outlook.MAPIFolder
Dim objItem As Object
Dim mai As mailitem
    On Error Resume Next
'    MsgBox StartFolder.Path, , "testing"
    
    ' process all the items in this folder
'    For Each objItem In StartFolder.Items
'        If TypeName(objItem) = "MailItem" Then
'            Set mai = objItem
'        End If
'    Next
        
    ' process all the subfolders of this folder
    For Each objFolder In StartFolder.Folders
        Call ProcessFolder(objFolder)
    Next
 
Set mai = Nothing
Set objFolder = Nothing
Set objItem = Nothing
End Sub

[Graham Griggs]

Cant see quite what you are trying to do, but attach the code and fixing it should be simple