Need Help Extracting Email Content into Excel Specifically the Attachment Name

Status
Not open for further replies.

Johnny5sworld

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Hello All,

I am working on a project in Excel and need a list of all the attachments from my Sent Folder in my Outlook 2010. The attchments are all XLS. files so I am hoping this won't be to hard. thanks in advance for any help :)

Johnny
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Re: Need Help Extracting Email Content into Excel Specifically the Attachment

I don't have code handy, but this is a start - (taken from a macro another user posted in recent days) - it needs coded to work on a folder or selection of messages and get the attachment names. I won't have time before the week end to put anything together though.

Option Explicit
Sub CopyToExcel()
Dim olItem As Outlook.MailItem
Dim xlApp As Object
Dim xlWB As Object
Dim xlSheet As Object
Dim vText As Variant
Dim sText As String
Dim vItem As Variant
Dim i As Long
Dim rCount As Long
Const strPath As String = "C:\Users\username\Documents\test.xlsx" 'the path of the workbook
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err <> 0 Then
Application.StatusBar = "Please wait while Excel source is opened ... "
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0
'Open the workbook to input the data
Set xlWB = xlApp.Workbooks.Open(strPath)
Set xlSheet = xlWB.Sheets("Test")
' Process the message record
Set olItem = Application.ActiveExplorer().Selection(1)

'Find the next empty line of the worksheet
rCount = xlSheet.Range("B" & xlSheet.Rows.Count).End(-4162).Row
rCount = rCount + 1



' add code to get attachment names here

' assign to vText variable.
xlSheet.Range("B" & rCount) = vText
xlWB.Close 1
Set xlApp = Nothing
Set xlWB = Nothing
Set xlSheet = Nothing
End Sub
 

Johnny5sworld

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Re: Need Help Extracting Email Content into Excel Specifically the Attachment

I don't have code handy, but this is a start - (taken from a macro another user posted in recent days) - it needs coded to work on a folder or selection of messages and get the attachment names. I won't have time before the week end to put anything together though.

Option Explicit
Sub CopyToExcel()
Dim olItem As Outlook.MailItem
Dim xlApp As Object
Dim xlWB As Object
Dim xlSheet As Object
Dim vText As Variant
Dim sText As String
Dim vItem As Variant
Dim i As Long
Dim rCount As Long
Const strPath As String = "C:\Users\username\Documents\test.xlsx" 'the path of the workbook
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err <> 0 Then
Application.StatusBar = "Please wait while Excel source is opened ... "
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0
'Open the workbook to input the data
Set xlWB = xlApp.Workbooks.Open(strPath)
Set xlSheet = xlWB.Sheets("Test")
' Process the message record
Set olItem = Application.ActiveExplorer().Selection(1)

'Find the next empty line of the worksheet
rCount = xlSheet.Range("B" & xlSheet.Rows.Count).End(-4162).Row
rCount = rCount + 1



' add code to get attachment names here

' assign to vText variable.
xlSheet.Range("B" & rCount) = vText
xlWB.Close 1
Set xlApp = Nothing
Set xlWB = Nothing
Set xlSheet = Nothing
End Sub
This is definitely a good start for me! Hopefully someone might lend a hand in the meantime to finish this off for my needs. Thanks again!
 

MarkS

Member
Outlook version
Outlook 2007
Email Account
Exchange Server
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
C need help setting up outlook first time Using Outlook 1
N Need help syncing contacts to iPhone X Using Outlook 8
S Error using AddressEntry.GetContact - need help Outlook VBA and Custom Forms 2
EaglePI Outlook 2010 need help with rules Using Outlook 0
B Need Help - Willing to pay Outlook VBA and Custom Forms 10
J Need Help with Contacts VBA Outlook VBA and Custom Forms 1
H Need help setting up GetFolderPath-Makro with Vodafone IMAP Mail-Account Outlook VBA and Custom Forms 0
T Need help with finding/updating task Outlook VBA and Custom Forms 1
Denis Hi everyone!!! Need some help with Excel to Exchange Calendar??PLEASE>>> Using Outlook 1
E Need Help on Setting up a repeated Reminder on Task with Reoccurence Every Year Using Outlook 6
B Need Help Creating Email Based on Subject w Address in Body Outlook VBA and Custom Forms 1
G Need help configuring a PRF for Outlook 2010 and 2013 Using Outlook 0
K Excel Import Option: Need Help Updating Existing Records BCM (Business Contact Manager) 0
K Need help concerning emails linking to BCM. BCM (Business Contact Manager) 0
J Need help with installation of BCM in Outlook2013 BCM (Business Contact Manager) 5
F Outlook 2010 - Need help with a custom field. Using Outlook 3
D Need Help with Script. Keep getting Runtime Error 438 BCM (Business Contact Manager) 4
R Need help getting BCM to work with my Outlook 2014 Using Outlook 4
L Need help getting calendar/contacts/tasks/notes back! Using Outlook 3
R [VBA] complicated(?) outlook events - need help with code Using Outlook 15
P Need help/Gmail accounts show separately/Outlook 2013 Using Outlook 0
A Need Help with BCM2010 Sharing on outlook 2013 Scenario! BCM (Business Contact Manager) 1
C Need Help with Simple Code Correction Using Outlook 11
W I Need help with vb.net and outlook 2010 Using Outlook 2
A My move to MS is not going too well: Need Help !!! Using Outlook 14
M Need help with combo boxes in messages! Using Outlook 10
D Need help understanding which pst-file to use! Using Outlook 0
U Need a help please Outlook 2007 crashing Using Outlook 2
Z Need Help Outlook 2007 inbox and address book view Using Outlook 2
B Need help adding a background color to the compact list items in Month view. Calendar Printing Assistant 1
B Need help adding an image next to the Month Name in the header. Calendar Printing Assistant 1
B Ok - a complicated one - but really need help (auto formatting) Using Outlook 9
B OUTLOOK 2000, Need Help ! Outlook Wishlist 1
P To Use BCM or not...I need help BCM (Business Contact Manager) 1
T Need help making RULE to prepend email SUBJECT Using Outlook 3
V Need help on configuring Outook 2003 Rules and Alerts... Using Outlook 2
A Need Help Urgent !!!- Add Seconde Node To The DAG Exchange Server Administration 12
M Need help w/ Calendar Events not appearing in Outlook 2010 Using Outlook 1
D Need help bulk exporting mailboxes Exchange Server Administration 3
N Need Help with Outlook 2010 Using Outlook 1
G Need help in merging data from multiple .pst data files into one .pst file. Using Outlook 3
F Incoming email titles - i need them back (please help...) Using Outlook 2
B Need help with contact recovery, since trial of Office 2010 has ended. Using Outlook 2
M Need Help on Designing Exchange 2010 Email Solution for 4000 Users Exchange Server Administration 1
S OL2007/XP views will not retain settings. Really need some help here. Using Outlook 2
D Need help repairing Outlook 2010. Using Outlook 2
D Need help with word wrap in Outlook 2010. Using Outlook 5
L Windows Instant Search Indexing not working need help reading Event Log Using Outlook 2
N need help retrieving email from previous Outlook Profile Using Outlook 7
Similar threads


















































Top