vba - 自動的に CC を追加する VBA を使用して Outlook の新しいメッセージに表示されませんか?

Question

新しいメール Outlook をクリックすると、自動的に cc メールが cc テキスト領域の VBA コードから表示されません 助けてください これを行うのを手伝ってください Application_ItemSend イベントで VBA を使用して CC を既に追加していますが、メッセージ送信後に表示されます CC を表示したいユーザーが Outlook リボンの [新しいメッセージ] をクリックしたとき..

Answer 1

これは、より明確にするためにコードを投稿するために探しているものだと思います。

    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`

Answer 2

ここで 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