Vba 自动回复注释、电子邮件正文和添加抄送

我试图抄送第二个人，但在运行时遇到错误13

类型不匹配

Option Explicit
'// Auto Replay with notes and email body- run Action Script
Public Sub ReplywithNote(Item As Outlook.MailItem)
    Dim olInspector As Outlook.Inspector
    Dim olDocument As Word.Document
    Dim olSelection As Word.Selection
    Dim olReply As MailItem
    Dim olRecipient As Outlook.Recipient


    Set olReply = Item.ReplyAll
    olReply.Display

    Set olRecipient = myItem.Recipient.Add("omar")
        olRecipient.Type = olCC

    Set olInspector = Application.ActiveInspector()
    Set olDocument = olInspector.WordEditor
    Set olSelection = olDocument.Application.Selection

    olSelection.InsertBefore "Received, Thank you."

    '// Uncomment to send
    olReply.Send

End Sub

谢谢。

Recipients类的方法在Recipients集合中创建一个新的收件人。参数为收件人的名称；它可以是表示收件人的显示名称、别名或完整SMTP电子邮件地址的字符串

如果在Outlook中运行以下示例代码，则无需创建新的应用程序实例，请使用VBA开箱即用中提供的应用程序属性

 Set myOlApp = CreateObject("Outlook.Application") // Application
 Set myItem = myOlApp.CreateItem(olMailItem)
 Set myRecipient = myItem.Recipients.Add ("Jon Grande")
 myRecipient.Type = olCC

添加新类后，不要忘记调用Recipient类的Resolve方法。或者仅使用Recipients类的ResolveAll方法根据通讯簿解析收件人

---

有关详细信息，请参阅。

尝试收件人而不是收件人

 Dim olRecipient As Outlook.Recipient

---

我在运行时遇到错误13类型不匹配

Set olRecipient=myItem.Recipients.Add（“omar@test.com“

我已经更新了我的问题。任何建议：-）如我所写，您应该使用Application属性获取正在运行的Outlook应用程序实例，而不是创建新实例。我以前尝试过，没有语法错误，但从您的评论中完全没有抄送，然后问题得到了回答。这应该解决未问的问题。设置olRecipient=olReply.Recipients.Add（“omar@test.com"). 不是我的项目。