Log In
Register
Home
Active Member
March 31, 2019
Offline
Hello my friends,
I use Microsoft Outlook 2010/2013.
I created a rule that copies each sent/received appointment that contains the words “CCB Meeting” to the folder “CCB Meetings”.
Now, I would like to create a Macro in VBA in Excel, that runs throw “CCB Meetings” folder in the mail, and creates a list for each row of all the following information: From, Subject (Including the prefix ‘Accepted’/’Declined’ etc.), Received, To, CC, Start, End, Duration, Recurrence Range Start, Meeting Status, Conversation, Location.
(Exactly as it is in the print screen).
Later on I could continue writing that code, in order to analyze these report of appointments.
I tried to do so, but I got stuck, because I don't familiar very well with Outlook objects...
Could anyone help me?
October 5, 2010
Offline
Hi,
Attached is some code to get your most of the way there. I don't have a folder full of appointments to test this with so try it with yours and see how you get along.
To get this to work you need to set a reference in the VBA Editor to the Microsoft Outlook 15.0 Object Library
Regards
Phil
Active Member
March 31, 2019
Offline
Thanks! It works! well, sort of... I get run-time error in lines 'To','CC' & 'Location' that says "Object doesn't support this property or method". The other properties are perfectly printed in Excel.
What can I do to solve that error?
Also, where can I read more about the Objects 'Start'/'End' in order to print them also?
October 5, 2010
Offline
Your appointments do not have that particular property. Edit/Remove/Comment Out those lines. You can read up on Appointment Items here
https://docs.microsoft.com/en-.....ntmentitem
Regards
Phil
Active Member
March 31, 2019
Offline
Of course I can remove/comment these lines, but I am trying to print these properties... Why it doesn't work?
Also, 'Email' is defined as "Variant", how can I turn it into "Appointment Item"? I read in the documentary that there are the some properties I would like to print. However, the commend "Range("D1").Offset(i,0).Value = Email.StartOn" doesn't compile for some reason.
Is there any other way to just "copy" a String for each email of all the required properties?
1 Guest(s)
