PDA

View Full Version : Need Outlook mails information by Excel VBA



taps
09-05-2012, 01:32 AM
Dear All,

I am stuck in a serious VBA related problem since last one month. Tried searcing throuout the net but unable to get any solution. Please help me.

My problem is....
I am trying to get information from Outlook mails items by Excel VBA. I need to get whether reply has sent or not for each mails (Yes/No only) from a particular mail folder. If "Yes" then when (the reply date) and sent to whom (Receiver of that mail).

Any suggestion or clue or solution gratefully accepted. Thanks in advance for your support.

Regards
taps

Crocus Crow
09-07-2012, 09:40 AM
Have a look at/search for CDO message fields/property tags.

taps
09-11-2012, 01:12 AM
Dear Crocus Crow,

Thanks for your support.

I have searched the msdn site for CDO message. This is for Microsoft Exchange Server and I am not able to find any help from here. Please guide me if this can be implemented in MS outlook mail system. Because I am using MS outlook in my system.

Regards,
taps

snb
09-11-2012, 02:46 AM
Have a look over her:

http://www.snb-vba.eu/VBA_Outlook_external_en.html#H8

taps
09-13-2012, 08:11 AM
Hi snb,

Thanks a ton.
It is a very useful site. I have learnt lot of things from here. Thanks again.
I have read throughout the page but I did not find my answer over here.: pray2:

snb
09-13-2012, 09:29 AM
I found these properties:


c49 = .ReplyRecipientNames
c50 = .ReplyRecipients.Count

taps
09-14-2012, 01:56 AM
Hi snb,

I have also found those codes in below links:

codeforexcelandoutlook . com / outlook-vba / mailitem-object / properties /
[vba/]
and also tried to get the information but failed. Could you please try this and please let me know how should I use the codes.

[vba]
Function GetMsgReplyRecipientNames(msg As Outlook.MailItem) As Outlook.MailItem
GetMsgReplyRecipientNames = msg.ReplyRecipientNames
End Function




Sub CallMsg()
Dim msg As MailItem
On Error Resume Next
Set msg = GetMsgReplyRecipientNames(Application.ActiveInspector.currentItem)

MsgBox msg

Set msg = Nothing
End Sub


Thanks
taps