Consulting

Results 1 to 7 of 7

Thread: Need Outlook mails information by Excel VBA

  1. #1
    VBAX Regular
    Joined
    Sep 2012
    Posts
    8
    Location

    Need Outlook mails information by Excel VBA

    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

  2. #2
    Have a look at/search for CDO message fields/property tags.

  3. #3
    VBAX Regular
    Joined
    Sep 2012
    Posts
    8
    Location
    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

  4. #4

  5. #5
    VBAX Regular
    Joined
    Sep 2012
    Posts
    8
    Location
    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.

  6. #6
    Knowledge Base Approver VBAX Wizard
    Joined
    Apr 2012
    Posts
    5,645
    I found these properties:

    [VBA]
    c49 = .ReplyRecipientNames
    c50 = .ReplyRecipients.Count

    [/VBA]

  7. #7
    VBAX Regular
    Joined
    Sep 2012
    Posts
    8
    Location
    Hi snb,

    I have also found those codes in below links:
    [vba]
    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

    [/vba]

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

    MsgBox msg

    Set msg = Nothing
    End Sub
    [/vba]

    Thanks
    taps

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •