emial shared folder

[kamakshi]

could you guys help me
i am trying to do related the subjct from shared email export into excel matches with sender's name.
but i am getting error getShareddefaultfoder has run time error 424 object not found
support, Mailbox has the shared email
/

Sub GetFromInbox()
Dim olApp As Outlook.Application
Dim olNS As Namespace
Dim fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer
Dim MyName
Dim MyTime
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set fldr = olNS.GetSharedDefaultFolder(olFoldersSupport, Mailbox) .Folders("Inbox")

For Each olMail In fldr.Items
If olMail.Subject = "confirmation the reports)" Then
'ActiveSheet.Cells(i, 1).Value = olMail.Subject
MyName = olMail.To
MyTime = olMail.ReceivedTime

Sheets("Sheet1").Activate
With ActiveSheet.Range("C6:C50")
Set c = .Find(MyName, LookIn:=xlValues)
If Not c Is Nothing Then
Cells(c.Row, 6).Value = MyTime
End If
End With

End If
i = i + 1
Next olMail

Set fldr = Nothing
Set olNS = Nothing
Set olApp = Nothing

End Sub]

[akhileshbc]

Hi kamakshi...

In your code,

Set fldr = olNS.GetSharedDefaultFolder(olFoldersSupport, Mailbox) .Folders("Inbox")

what is Mailbox ? Have you declared it anywhere ? Or, is it supposed to be in double quotes ?

Set fldr = olNS.GetSharedDefaultFolder(olFoldersSupport, "Mailbox") .Folders("Inbox")

Good luck..

[kamakshi]

no it is a shared emailbox

[akhileshbc]

Hi again...

I haven't tried those before. And I don't know much about it. But I googled about the GetSharedDefaultFolder() method and found this: http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

That MSDN help is for VBA, but give it a try. The second parameter of that GetSharedDefaultFolder() method is FolderType. So, the Mailbox in your code should be a folder type.

....

[Siddharth Rout]

Change

Set fldr = olNS.GetSharedDefaultFolder(olFoldersSupport, Mailbox) .Folders("Inbox")

to

Set fldr = olNS.GetSharedDefaultFolder(myRecipient, olFolderInbox)

Where myRecipient represents a user or resource in Outlook, generally a mail message addressee...

An Example of it's use is as follows

Dim myRecipient As Outlook.Recipient

Set myRecipient = myNamespace.CreateRecipient("koolsid")
myRecipient.Resolve

If myRecipient.Resolved Then
    Set fldr = olNS.GetSharedDefaultFolder(myRecipient, olFolderInbox)
End If

[kamakshi]

thanks Koolsid.
but i m trying to get sharedemail
Default folder is our personal email inobox
how do i get shared email
olNS.GetDefaultFolder(olFoldersSupport, Mailbox) .Folders("Inbox")

[kamakshi]

Koolsid
i am trying to get shared mailbox folder.
i used getshared folder it does not support microsoft. could you help me how to get shared emailbox folder.
below code i have it

Sub GetFromInbox() 
Dim olApp As Outlook.Application
Dim olNS As Namespace
Dim fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer
Dim MyName
Dim MyTime
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set fldr = olNS.GetSharedDefaultFolder(olFoldersSupport, Mailbox) .Folders("Inbox") 

For Each olMail In fldr.Items
If olMail.Subject = "confirmation the reports)" Then
'ActiveSheet.Cells(i, 1).Value = olMail.Subject
MyName = olMail.To
MyTime = olMail.ReceivedTime

Sheets("Sheet1").Activate
With ActiveSheet.Range("C6:C50")
Set c = .Find(MyName, LookIn:=xlValues)
If Not c Is Nothing Then
Cells(c.Row, 6).Value = MyTime
End If
End With

End If
i = i + 1
Next olMail

Set fldr = Nothing
Set olNS = Nothing
Set olApp = Nothing

End Sub]