Hi June,
is the mailbox is default one or Shared mailbox?
if its shared then you can try the below code (you need edit the code for "sent folder")
Dim app = CreateObject("Outlook.Application")
Dim _nameSpace = app.GetNameSpace("MAPI")
Dim folder
folder = _nameSpace.Folders(MailBoxName)
If SubFolder <> "" Then
For each name as string in SubFolder.Split("\")
folder = folder.Folders(name)
Next
End If
Dim dataTable As New Data.DataTable
dataTable.Columns.Add("EntryID", Type.GetType("System.String"))
dataTable.Columns.Add("To", Type.GetType("System.String"))
dataTable.Columns.Add("CC", Type.GetType("System.String"))
dataTable.Columns.Add("Subject", Type.GetType("System.String"))
dataTable.Columns.Add("Body", Type.GetType("System.String"))
dataTable.Columns.Add("Attachments", Type.GetType("System.String"))
dataTable.Columns.Add("ReceivedOn", Type.GetType("System.DateTime"))
dataTable.Columns.Add("SentOn", Type.GetType("System.DateTime"))
dataTable.Columns.Add("SenderName", Type.GetType("System.String"))
dataTable.Columns.Add("SenderEmailAddress", Type.GetType("System.String"))
dataTable.Columns.Add("Unread", Type.GetType("System.Boolean"))
Dim folderItems = If(Filter_Expression <> "", folder.Items.Restrict(Filter_Expression), folder.Items)
For Each item As Object In folderItems
If Not TypeOf item Is MailItem Then Continue For
Dim row As Data.DataRow = dataTable.NewRow
row("EntryID") = item.EntryID
row("To") = item.To
row("CC") = item.CC
row("Subject") = item.Subject
row("Body") = item.Body
Dim attachments As String = ""
For Each attachment As Object In item.Attachments
If attachment.Type = 1 Then
attachments = attachments & "|" & attachment.DisplayName
End If
Next
row("Attachments") = If (attachments.Length = 0, "", attachments.SubString(1))
row("SentOn") = item.SentOn
row("ReceivedOn") = item.ReceivedTime
row("SenderName") = item.SenderName
row("SenderEmailAddress") = If (item.SenderEmailType = "EX",item.Sender.GetExchangeUser.PrimarySmtpAddress,item.SenderEmailAddress)
row("Unread") = item.Unread
dataTable.Rows.Add(row)
Item_Count += 1
Next
Items = dataTable
------------------------------
Hanumanth Yemmetti
Senior Developer
Shell
Asia/Kolkata
------------------------------
Original Message:
Sent: 08-05-2022 19:41
From: June Siravo
Subject: Reading "Sent Items" from a shared mailbox
I have seen others ask this question but have not seen a response. I am able to read the inbox of a shared folder without issue (using action "get Received Items Basic") however I cannot do the same for "Sent Items" folder (using action "Get Sent Items Basic"). Getting this message (below), any ideas as to why this is happening?
Thanks You!
------------------------------
June Siravo
Analyst
FIAM
America/New_York
------------------------------