Download Attachment

Sub DownloadAttachmentFirstUnreadEmail1()

Dim oOlAp As Object, oOlns As Object, oOlInb As Object

Dim oOlItm As Object, oOlAtch As Object

'~~> New File Name for the attachment

Dim NewFileName As String

NewFileName = AttachmentPath & "FILE_NAME"

'~~> Get Outlook instance

Set oOlAp = GetObject(, "Outlook.application")

Set oOlns = oOlAp.GetNamespace("MAPI")

Set oOlInb = oOlns.GetDefaultFolder(olFolderInbox)

Set oOlInb = oOlInb.Folders("FOLDER_NAME") .Folders("SUBFOLDER_NAME")

'~~> Check if there are any actual unread emails

If oOlInb.Items.Restrict("[UnRead] = True").Count = 0 Then

MsgBox "NO Unread Email In Inbox"

Exit Sub

End If

'~~> Extract the attachment from the 1st unread email

For Each oOlItm In oOlInb.Items.Restrict("[UnRead] = True")

'~~> Check if the email actually has an attachment

If oOlItm.Attachments.Count <> 0 Then

For Each oOlAtch In oOlItm.Attachments

'~~> Download the attachment

oOlAtch.SaveAsFile NewFileName

Exit For

Next

Else

MsgBox "The First item doesn't have an attachment"

End If

Exit For

Next

'~~> Check if there are any actual unread emails

If oOlInb.Items.Restrict("[UnRead] = True").Count = 0 Then

MsgBox "NO Unread Email In Inbox"

Exit Sub

End If

'~~> Mark 1st unread email as read

For Each oOlItm In oOlInb.Items.Restrict("[UnRead] = True")

oOlItm.UnRead = False

DoEvents

oOlItm.Save

Exit For

Next

End Sub