vba - 自动添加 CC 在使用 VBA 的 Outlook 中的新消息中没有出现？

Question

当我单击新电子邮件 Outlook 时，自动抄送电子邮件不会出现在抄送文本区域中的 VBA 代码中，请帮助我这样做我已经在 Application_ItemSend 事件中使用 VBA 添加抄送，但它出现在消息发送后我想显示抄送当用户单击 Outlook 功能区中的新消息时..

Answer 1

在此处查看 NewInspector 事件示例

当用户创建新的空白邮件时触发 Outlook 2003 宏

Public WithEvents myOlInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Initialize_handler
End Sub

Public Sub Initialize_handler()
    Set myOlInspectors = Application.Inspectors
End Sub

Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Dim msg As Outlook.MailItem
    If Inspector.CurrentItem.Class = olMail Then
        Set msg = Inspector.CurrentItem

        If msg.Size = 0 Then
            MsgBox "New message"
        End If
    End If
End Sub

Answer 2

我认为这就是您要发布代码以更清晰的内容。

    strcc = "xxx@yyy.com"
    Dim objRecip As Recipient
    Set objRecip = Item.Recipients.Add(strcc)
    objRecip.Type = olCC
        If Not objRecip.Resolve Then
        strMsg = "Could not resolve the cc recipient. " & _
        "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
        "Could Not Resolve cc Recipient")
            If res = vbNo Then
            Cancel = True
            End If
        End If
    Set objRecip = Nothing`