get shared default folder

PENAIAH · #1 11-14-2016, 01:02 AM

Hi My below piece of code works perfectly but when i change

Code:

Fldr = olNs.GetSharedDefaultFolder(objOwner, OlDefaultFolders.olFolderInbox)

to

Code:

  Fldr = olNs.GetSharedDefaultFolder(objOwner, OlDefaultFolders.olFolderSentMail)

it doesnt work..

below is my full code.. please help me.

Code:

 Dim olApp As Outlook.Application
        Dim olNs As Outlook.NameSpace

        Dim olMail As Outlook.MailItem

        Dim i As Integer

        olApp = New Outlook.Application
        olNs = olApp.GetNamespace("MAPI")
        Dim Fldr As MAPIFolder
        Dim objOwner As Outlook.Recipient
        objOwner = olNs.CreateRecipient("HPI-API-IPGUS")
        objOwner.Resolve()

        If objOwner.Resolved Then
            MsgBox(objOwner.Name)
            Fldr = olNs.GetSharedDefaultFolder(objOwner, OlDefaultFolders.olFolderSentMail)



            i = 1

            For Each olMail In Fldr.Items




                If InStr(olMail.Subject, "Invoice to Post") <> 0 Then
                    With olMail.ReplyAll

                        .HTMLBody = "Hi" & vbCrLf & .HTMLBody
                        .Display()
                    End With

                End If
            Next


        End If

PENAIAH · #2 11-14-2016, 03:46 AM

Bump !!!!!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to constantly and automatically copy the contacts from a shared folder to my private folder?	Paulo	Outlook	0	08-16-2015 12:06 PM
History of a Shared Folder Task	thale829	Outlook	0	04-01-2014 10:03 AM
Unread Message Count in a Shared Folder Different for Users	BenU Technical Trainer	Outlook	0	07-15-2013 10:01 AM
Outlook 2003 - Using Folder Assistant on Shared mailbox	ChrisPro	Outlook	0	09-08-2011 07:18 AM
Detecting Who Opened in Email In Shared Folder	jerem	Outlook	0	03-20-2010 10:58 AM