How can I save an attachment from an RSS Feed folder

Option Explicit
' Adapted from Daniel Dusek http://stackoverflow.com/questions/12457471/how-do-i-set-a-macro-to-launch-every-time-an-email-arrives-in-a-certain-subfolde

Private Const ITALIAN_MP3_FOLDER As String = "Italian Mags MP3"
Private WithEvents m_outlookFolderItems As Outlook.Items

Private Sub Application_Startup()
    Initialize_Handler
End Sub

Private Sub m_outlookFolderItems_ItemAdd(ByVal Item As Object)
' You have new mail in folder ITALIAN_MP3_FOLDER
' Add reference to Microsoft Scripting Runtime
Dim att As Attachment, attFolder As String
' Identifies folder and creates new one if required
attFolder = "C:\Users\Rob\Music\Italian\" & Mid(Item.Subject, InStr(1, Item.Subject, "-") + 1, 2) & "\"
CheckFolder attFolder
If Item.Attachments.Count > 0 Then
  For Each att In Item.Attachments
    att.SaveAsFile attFolder & att.DisplayName
    'MsgBox "RSS MP3 saved to : " & attFolder & att.DisplayName
  Next att
End If

End Sub

Private Sub Initialize_Handler()
    Dim outlookFolder As Outlook.MAPIFolder
    Dim defaultRSSFolder As Outlook.MAPIFolder
    Dim outlookNameSpace As Outlook.NameSpace

    Set outlookNameSpace = Outlook.GetNamespace("MAPI")
    Set defaultRSSFolder = outlookNameSpace.GetDefaultFolder(olFolderRssFeeds)
    Set outlookFolder = defaultRSSFolder.Folders(ITALIAN_MP3_FOLDER)
    Set m_outlookFolderItems = outlookFolder.Items
End Sub

Private Sub CheckFolder(folder_name As String)
'Adapted from http://www.devguru.com/technologies/vbscript/quickref/filesystemobject_folderexists.html
Dim FSO As FileSystemObject, newfolder
Set FSO = New FileSystemObject
If Not FSO.FolderExists(folder_name) Then
   newfolder = FSO.CreateFolder(folder_name)
End If
End Sub

Select all Open in new window