VBA with Outlook - IMAP folder access

[kpfunf]

I have the following code that works in accessing my personal folder inbox and subfolders.

Option Explicit
Sub SaveAttachmentsToFolder()
On Error GoTo SaveAttachmentsToFolder_err
' Declare variables
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim SubFolder As MAPIFolder
Dim SubSubFolder As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Dim varResponse As VbMsgBoxResult
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Set SubFolder = Inbox.Folders("Fuel").Folders("Apache")
i = 0
If SubFolder.Items.Count = 0 Then
MsgBox "There are no messages in the Sales Reports folder.", vbInformation, _
"Nothing Found"
Exit Sub
End If
For Each Item In SubFolder.Items
For Each Atmt In Item.Attachments
If Right(Atmt.FileName, 3) = "pdf" Then
FileName = "P:\Fuel\Fuel Records 2008\Apache\" & Atmt.FileName
Atmt.SaveAsFile FileName
i = i + 1
End If
Next Atmt
Next Item
If i > 0 Then
varResponse = MsgBox("I found " & i & " attached files." _
& vbCrLf & "I have saved them into the Outlook Attachment Test folder." _
, vbInformation, "Finished!")
' Open Windows Explorer to display saved files if user chooses
If varResponse = vbYes Then
Shell "Explorer.exe /e,P:\Fuel\Fuel Records 2008\Apache\", vbNormalFocus
End If
Else
MsgBox "I didn't find any attached files in your mail.", vbInformation, "Finished!"
End If
' Clear memory
SaveAttachmentsToFolder_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Exit Sub
' Handle Errors
SaveAttachmentsToFolder_err:
MsgBox "An unexpected error has occurred." _
& vbCrLf & "Please note and report the following information." _
& vbCrLf & "Macro Name: GetAttachments" _
& vbCrLf & "Error Number: " & Err.Number _
& vbCrLf & "Error Description: " & Err.Description _
, vbCritical, "Error!"
Resume SaveAttachmentsToFolder_exit
End Sub
 

This works well, but is for the personal folder. I have now moved all fuel folders to an IMAP account called "Fuel", which has an Inbox, then subfolders. How do I access this account rather than my personal folder? I don't know how else to use GetDefaultFolder. Thanks.

[kpfunf]

Bump .

[Dököll]

Bump .

Hey there kpfunf! I believe to ahve added thi for you in the VBA forum, did it not work? Please let us know how further we can help.

In a bit!

Dököll

[kpfunf]

Dokoll,
I'm not sure what you're referring to. I search for IMAP and didn't find another thread.