私は、特定のテキスト文字列のTo:リストをスキャンし、1つ(または2つなど)のアドレスを除くすべてのアドレスにそれがある場合、メッセージを吐き出すOutlookでマクロを作成しようとしています。これを行う簡単な方法はありますか?Outlook - 電子メールアドレスの種類を確認する
本質的に、アドレスに文字列「xyz」を持つ複数の人に制限付きメッセージを送信できないようにするためのものを書くことを試みています。オートコンプリートを使用すると、1つ1つ確認することなく、これを難しくします。
私は、特定のテキスト文字列のTo:リストをスキャンし、1つ(または2つなど)のアドレスを除くすべてのアドレスにそれがある場合、メッセージを吐き出すOutlookでマクロを作成しようとしています。これを行う簡単な方法はありますか?Outlook - 電子メールアドレスの種類を確認する
本質的に、アドレスに文字列「xyz」を持つ複数の人に制限付きメッセージを送信できないようにするためのものを書くことを試みています。オートコンプリートを使用すると、1つ1つ確認することなく、これを難しくします。
これはOutlook VBAを使用して行うことができます。
ユーザーがメールを送信するときにイベントフックを書き込む必要があります。これは、Application_ItemSend(ByVal Item As Object、Cancel As Boolean)を使用して行われます。Itemは送信されるアイテム(電子メールまたは予定)であり、cancelは電子メールの送信を停止するために設定できるブール値です。
あなたのコードでは、Itemオブジェクトの受信者コレクションを参照して、誰が電子メールを受信するのかを確認したいと思うでしょう。たとえば :
Dim CurrRecip As Recipient
For Each CurrRecip in Item.Recipients
If InStr(1, CurrRecip.Address , "your search text here" , vbCompareText) Then
debug.print "Message here..."
End If
Next CurrRecip
うまくいけば、助け...