Hi everyone,

I'm trying to get my outlook to download only the email that I selected. I have zero coding exp but with the help of Google I was able to find a script that help me with the most part. The things that nor working for me are :
1) It downloads all the attachments in the folder , I only want to download attachments from the email that I selected
2) It downloads everything in the email, even the pictures in the signature.
Below is the script, please help me take out the unnecessary parts and keep the downloading attachments only:

Thank you

Public Sub SaveAttachments()
Dim OlApp As Outlook.Application
Dim Inbox As MAPIFolder
Dim item As Object
Dim ItemAttachments As Outlook.Attachments
Dim ItemAttachment As Object
Dim ItemAttCount As Long
Dim strFolderpath As String
Dim strFileName As String
Dim Counter As Long
Dim ItemsCount As Long
Dim ItemsAttachmentsCount As Long

strFolderpath = "C:\attachments"
If (Dir$(strFolderpath, vbDirectory) = "") Then
MsgBox "'" & strFolderpath & "' not exist"
MkDir strFolderpath
MsgBox "'" & strFolderpath & "' we create it"

MsgBox "'" & strFolderpath & "' exist"
End If

' Get the path to your My Documents folder
'strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)

strFolderpath = strFolderpath & "\"

'On Error Resume Next

' Instantiate an Outlook Application object.
Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.ActiveExplorer.CurrentFolder

Counter = 1
ItemsCount = 0
ItemsAttachmentsCount = 0

For Each item In Inbox.Items
ItemsCount = ItemsCount + 1

For Each ItemAttachment In item.Attachments
ItemsAttachmentsCount = ItemsAttachmentsCount + 1

' Get the file name.
strFileName = ItemAttachment.FileName

' Combine with the path to the Attachments folder.
strFileName = strFolderpath & Counter & "_" & strFileName

' Save the attachment as a file.
ItemAttachment.SaveAsFile strFileName

Counter = Counter + 1
Next ItemAttachment
Next item

Set ItemAttachment = Nothing
Set ItemAttachments = Nothing
Set item = Nothing
Set Inbox = Nothing
Set OlApp = Nothing
MsgBox "All Selected Folder Attachments Have Been Downloaded ..."
MsgBox "ItemsCount : " & ItemsCount
MsgBox "ItemsAttachmentsCount : " & ItemsAttachmentsCount
End Sub