Log In
Register
Home
December 5, 2016
Offline
When try this Macro, I got same problem, pls advise how to fix 
October 5, 2010
Offline
Hi David,
What does that error say?
Have you created the reference to the Outlook library in the VBA editor?
Phil
December 5, 2016
Offline
Error Code meaning: Missing Microsoft Outlook Object Library 16.0
December 5, 2016
Offline
Thanks millions Philip, will try on this.
December 5, 2016
Offline
I tried but the extract data seems from my old Outlook.pst Inbox Folder.
Can we run the same macro but extract from Outlook.ost file Inbox Folder; or other folder, eg Send Items Folder/ self created private folder in Outlook 365.ost
October 5, 2010
Offline
Hi David,
Yes you can. Have you changed the Email Account Name in the VBA to look at the folders for the account you are referring to?
To help any further I need to know the structure of your email folders, a screeenshot will do, and the name of the account that you want to search.
Phil
December 5, 2016
Offline
Thanks Philip, pls refer attach Screen shot of my PC
Pls help modify macro for use
BTW , my 365 Outlook.Ost kept in : D:\GKJ00OH004\Email\….OST
October 5, 2010
Offline
Hi David,
Did you try changing the email account name in the VBA as I asked?
I also asked you to let me know the name of that account.
And that screenshot is not of Outlook 🙂
Phil
December 5, 2016
Offline
Sorry pls refer this attach.
December 5, 2016
Offline
Account Name : GKJ00OH004
October 5, 2010
Offline
Hi David,
I'll try asking again : Have you tried changing the name in the VBA code to your own email account name?
Phil
December 5, 2016
Offline
So sorry , but how to find Account name in the Outlook.ost, then update to the VBA?
October 5, 2010
Offline
Hi David,
In Reply #4 of this thread I explained how to change the VBA. Open the file I created, press ALT+F11 to open the VBA editor then make the change.
Can I just clarify something. The code I've written will read emails from an email account that is setup up inside Outlook. It will not go and read emails from inside an OST that is disconnected from Outlook.
As you've supplied a screenshot of an OST in a folder, rather than the folders of an account in Outlook, I'm suspecting that this is what you are trying to do? Please confirm.
Just to reiterate, to read info from emails, the account you are trying to read those emails from must be set up and working inside Outlook.
Phil
December 5, 2016
Offline
So sorry , where to find email account name?
As far as I know the Email account name is: GKJ00OH004
December 5, 2016
Offline
Yes.
But still not working
Dim Folder As Object
Dim Email As Variant
Dim i As Integer
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookNS = OutlookApp.GetNamespace("MAPI")
' Insert the NAME of your email account - NOT the email address
Set Folder = OutlookNS.Folders("GKJ00OH004").Folders("Inbox")
i = 1
For Each Email In Folder.Items
Range("A1").Offset(i, 0).Value = Email.SenderName
Range("B1").Offset(i, 0).Value = Email.Subject
Range("C1").Offset(i, 0).Value = Email.ReceivedTime
Range("D1").Offset(i, 0).Value = Email.To
Range("E1").Offset(i, 0).Value = Email.CC
'' Range("F1").Offset(i, 0).Value = Email.Location
i = i + 1
Next Email
Set Folder = Nothing
Set OutlookNS = Nothing
Set OutlookApp = Nothing
End Sub
October 5, 2010
Offline
David,
Is your OST file attached to Outlook and in use with an email address?
Or is it just a file in a folder?
Phil
December 5, 2016
Offline
just the file in the Folder
December 5, 2016
Offline
in use with email address :ng.david.wl@semhk.sharp-world.com
October 5, 2010
Offline
Hi David,
There seems to be some confusion which isn't helped by you not answering my questions.
The code I've written is to read emails from a folder from an account attached to Outlook. That account must be configured as a working account in Outlook.
I asked for a screenshot of your Outlook folders from inside Outlook but you sent a screenshot of folders in Windows Explorer on your hard drive.
The name of the folder in that screenshot was GKJ00OH004 - this is not the account name I am looking for. If you referred to the screenshots Marsil posted in the original thread this started in, you would see what I mean.
I have attached some samples below. You can see that the account name is John Smith and the email address is John.Smith@email.com.
If your OST file is not connected to Outlook and in use by an account then my VBA code will not work for you. OST files are offline stores and I do not know any way to open them from VBA. They are not the same as PST files. If you are trying to recover the emails because the OST file got disconnected from Outlook, you will probably need specialist recovery software to get them. I don't know any other way.
So you need to check in your Outlook what the name of the account is and that it is set up and working and that it is connected to the OST file pictured in your screenshot.
If you just want to read the Inbox then don't worry about a screenshot of the Outlook folders.
Regards
Phil
1 Guest(s)
