如何加载组合框值CC字段在Outlook VBA?

Question

我有一个userform组合框，允许用户选择项目电子邮件。我希望能够选择这封电子邮件，并单击用户表单中的按钮，将电子邮件加载到抄送字段。我现在有这个代码，但它给了我一个错误。如有任何帮助，不胜感激。

Private Sub Attach_Click()
Set oMsg = Application.ActiveInspector.CurrentItem
Dim objRecip As Recipient

Set objRecip = oMsg.Recipients.Add(Me.cmbPC.column(0))
objRecip.Type = olCC

End Sub

错误提示:

操作失败。消息传递接口返回了未知错误。如果问题仍然存在，请重新启动Outlook。无法解析收件人。

Answer 1

使用收件人。解析方法，该方法尝试根据地址簿解析Recipient对象。

Sub CreateAssignedTask()  
Dim myItem As Outlook.TaskItem  
Dim myDelegate As Outlook.Recipient  
Set MyItem = Application.CreateItem(olTaskItem)  
MyItem.Assign  
Set myDelegate = MyItem.Recipients.Add("Eugene Astafiev")  
myDelegate.Resolve  
If myDelegate.Resolved Then  
myItem.Subject = "Test task"  
myItem.Display  
End If 

End Sub

您可能会发现如何:在Outlook中以编程方式填写收件人，抄送和密件抄送字段的文章很有帮助。