Getting all my emails from Outlook Sent Items folder

H

hyperchondriac

New Member
Joined
Jun 25, 2017
Messages
16
I'm trying to do some operations on the emails in my Sent Items folder, so I'm using the following code (copied from elsewhere) to get the emails in the folder.

VBA Code: 
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFolder = olNs.GetDefaultFolder(olFolderSentMail)

For i = olFolder.Items.Count To 1 Step -1
'Do stuff
Next i

However, when I run the code it only picks up the emails that are stored on my computer. I have several more years of emails stored on the Exchange server. Is there any way to get VBA to access every email on the Exchange server?

I'd eventually like to do it on my Inbox and sub-folders too, so a generic solution would be great. Thank you!
 

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.
Sort by date Sort by votes
Well I solved this by just getting Outlook to download all my emails, although I'd be interested to know if there's a way of doing it in VBA.
 
Upvote 0
Like this via VBA:
But you probably need to change some cache settings (under "account settings")to get access to emails which are not stored locally yet.

VBA Code: 
Sub jec()
 Dim it, x As Long
 ReDim ar(30000, 2) As Variant

 For Each it In CreateObject("outlook.application").GetNamespace("MAPI").Getdefaultfolder(5).items
    ar(x, 0) = x + 1
    ar(x, 1) = it.Subject
    ar(x, 2) = it.body
    x = x + 1
 Next
 
 Sheets(1).Cells(1, 1).Resize(x, 3) = ar
End Sub

Better would be to use power query if you are able to use the exchange connector: get data --> from other sources --> from microsoft exchange
 
Upvote 0
Thanks for the reply, though my problem isn't the code so much as the fact I can't access the emails on the Exchange server that aren't on my machine. As I said, I did just change my settings to download all my historic emails.

Didn't think about using Power Query, that's an interesting idea. I've got a lot of folder though, so will need to look at how easy it is to pull them all out in one query.
 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Question
VBA query - not opening outlook email but one drive
Replies
0
Views
221
Liverlee
L
H
  • Question
Mcto to close all emails (Outlook) without Saving
Replies
1
Views
330
howard
H
V
  • Question
Email Check
Replies
1
Views
282
vmjan02
V
L
  • Question
VBA Email extract problem
Replies
0
Views
435
Liverlee
L
D
  • Question
Delete all emails from all folders in Outlook by Sender
Replies
1
Views
465
nguyendang
N

Forum statistics

Threads
1,216,503
Messages
6,131,020
Members
449,615
Latest member
Nic0la

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top