vb.net - 使用 vb .net 在 microsoft crm 中的电子邮件中添加本地 pdf 附件

Question

我正在创建电子邮件实体记录并尝试下载 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的任何帮助？

标签： vb.netdynamics-crmcrm