怎么实现outlook在发送邮件时，设置送达回执和已读回执

[Luo]

怎么实现outlook在发送邮件时，设置送达回执和已读回执，用什么控件

[Yaojian_Gao]

目前UiPath活动并不支持设置送达回执和已读回执。可以尝试采用模拟人工界面操作的方式进行设置发送邮件。

[ratata]

你可以使用Intero来达成要求，请看以下案列：
Dim application As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application()
Dim mailItem As Microsoft.Office.Interop.Outlook.MailItem = CType(application.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem),Microsoft.Office.Interop.Outlook.MailItem)
Try
mailItem.HTMLBody = “hello world!”
mailItem.OriginatorDeliveryReportRequested = True
mailItem.ReadReceiptRequested = True

Dim recipient As Microsoft.Office.Interop.Outlook.Recipient = mailItem.Recipients.Add(“收信人电邮”)
recipient.Resolve()

mailItem.Send()
Catch ex As System.Exception
Console.WriteLine(ex.Message)
Finally
If mailItem IsNot Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(mailItem)
End If

If application IsNot Nothing Then
	System.Runtime.InteropServices.Marshal.ReleaseComObject(application)
End If
mailItem = Nothing
application = Nothing

End Try