vBA for exporting excel file from outlook 2016

[Browno]

Hi
I am after a code which will save my excel attachment into the c drive from outlook 2016

the email comes every hour and uses the same subject in the email header

the email goes into a folder in my inbox called internet

I am a total newbie so any help would be great

please note I get this email every hour so need this to save on the drive each hour or I can do it manually through a macro

thanks

 

[Diane Poremsky]

You can use a macro that watches the folder for new items added to it - this macro will save all attachments but lower on the page is a code sample that saves by file extension.

Save Attachments to the Hard Drive

The following code saves the attachments from selected messages but does not delete the attachments from the message(s). This VBA code is based on the

www.slipstick.com

 

[Browno]

Apologies
I am a total newbie....do I copy the code below into outlook by pressing alt+f11 then saving.
I need to save the excel files on my C drive ...email is inbox/internet...

sorry I'm confused

many thanks


Option Explicit

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.Session
' instantiate objects declared WithEvents
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
If Item.Attachments.Count > 0 Then

Dim objAttachments As Outlook.Attachments
Dim lngCount As Long
Dim strFile As String
Dim sFileType As String
Dim i as long

Set objAttachments = Item.Attachments
lngCount = objAttachments.Count
For i = lngCount To 1 Step -1

' Get the file name.
strFile = objAttachments.Item(i).FileName

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

' Combine with the path to the folder.
strFile = strFolderpath & strFile

' Save the attachment as a file.
objAttachments.Item(i).SaveAsFile strFile

Next i
End If

End Sub

 

[Browno]

Hi Dianne
I am u sure which code to use. The first one on the mail will save the file but over writes it when I run the macro again
I would like it to go in the folder

many help and instructions you can help me with would be appreciated

thanks in advance