4

重複の可能性:
Outlook VBA から BCC への電子メールが送信され、Outlook 2007 で機能しない

これまでのところ、outlookcode.com からこのコードを取得しました。これを使用して、送信するすべてのメールを BCC メールに送信できます。私は開発者ではないので、これを自分で編集したり、これを調査したりするためのコンテキストがあまりありません。件名の単語をこのようにチェックする方法、または件名が特定の文字列に等しいかどうかを確認する方法を誰かが知っていれば、本当に感謝しています。

Private Sub Application_ItemSend(ByVal Item As Object, _
                                 Cancel As Boolean)
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next

    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = "someone@somewhere.dom"

    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If

    Set objRecip = Nothing
End Sub
4

1 に答える 1

-1

VB に関与したくない場合は、次のようにルール ウィザードを使用してこれを行うことができます。

  1. ルールを 1 つ作成し、それを最後のルールにします。このルールは、名前が To または Cc フィールドにある場合に適用する必要があります。そして、後続のルールの処理を停止する必要があります。 ステップ 1: 条件を選択します。To または Cc ボックスに自分の名前がある場所。ステップ 2: アクションの選択: これ以上のルールの処理を停止します。
  2. 別のルールを作成し、上記の手順 1 で作成したルールの一番下に追加します。次のようにします。 ステップ 1: 条件の選択: To ボックスに自分の名前がない場合。ステップ 2: ここで BCC メッセージを処理します。

したがって、上記の手順では、ステップ 2 で作成したルールに達した場合は、To または Cc フィールドに名前がない、つまり Bcc フィールドにいるメッセージを受信したためです。

「To または Cc ボックスに私の名前がない場所」などの条件がないため、これら 2 つのルールだけが必要です。ただし、上記の回避策で同じことを行うことができます。

于 2011-11-28T12:45:02.220 に答える