我正在创建电子邮件实体记录并尝试下载 pdf 并使用组织服务附加到电子邮件。
//orgNIZtionaervice 与 crm 建立连接
Dim service As IOrganizationService = Crm_GetOrganizationService()
Dim xrmContext As New CrmServiceContext(service)
Dim filepath = C:\Development\OpenWorks\owreports\PayAdviceAttachments
// webclient 下载文件并存储在本地
Dim webclient As System.Net.WebClient = New System.Net.WebClient
webclient.UseDefaultCredentials = True
webclient.Credentials = New System.Net.NetworkCredential(My.Settings.WebClientUserName, My.Settings.WebClientPassword)
webclient.DownloadFile(uri, filePath)
// 创建电子邮件
Dim email As New Email
email.RegardingObjectId = New EntityReference("account", x)
email.MimeType = "pdf"
email.Subject = "test"
email.To = New ActivityParty() {toParty}
**_emailId** = service.Create(email)
要附加附件，我不确定如何从本地附加文件 下面是我尝试过的代码，但它不起作用。
Dim attachList As List(Of ActivityMimeAttachment) = New List(Of ActivityMimeAttachment)
Dim attach As New ActivityMimeAttachment
attach.ObjectId = New EntityReference(email.EntityLogicalName, **_emailId**)
attach.ObjectTypeCode = email.EntityLogicalName
attach.FileName = filePath
attach.FileName = "test"
service.Create(attach)
有关如何附加下载的pdf的任何帮助？