3

受信者に応じて、送信メールにテキストを自動的に挿入する必要があります。有望に見える別の質問（76Melへのクレジット）への回答でいくつかのコードを見つけました。ThisOutlookSessionのItemSendにコードを添付できるようです

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   If Item.MessageClass = "IPM.Note" Then
       For Each myRecipient In Item.Recipients
           If myRecipient.Address = "<EMAIL ADDRESS TO FIND>" Then 
           <code to add text>
           End If
       Next
   End If
End Sub

電子メールの本文にテキストを追加するコードは何でしょうか？これも機能しますか？このコードは、電子メールが送信される前に起動しますか、それともすでに手遅れですか？

自動化する必要があります（ボタンを作成したり、マクロを手動で実行したりすることは実際にはオプションではありません。これは記憶に残ることです。マクロを実行することを覚えていれば、テキストを手動で追加できます）

4

1 に答える 1

2

これはあなたがしようとしていることですか？コメントを追加したので、理解に問題はありません:) それでも質問がある場合は、単に尋ねてください...

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    '~~> Check if it is an email
    If TypeName(Item) <> "MailItem" Then Exit Sub

    Dim srchString As String, NewText As String
    
    '~~> Email Address which you want to search for
    srchString = "abc@gmail.com"
    
    '~~> New text that you want to add
    NewText = "Blah Blah"
    
    '~~> Search To, CC, BCC Fields
    If InStr(1, Item.To, srchString, vbTextCompare) Or _
    InStr(1, Item.CC, srchString, vbTextCompare) Or _
    InStr(1, Item.BCC, srchString, vbTextCompare) Then
        '~~> Add the relevant text to the body
        Item.Body = Item.Body & vbNewLine & NewText
    End If
End Sub

この MSDN リンクをお勧めします。

トピック: MailItem オブジェクトのメンバー

リンク: http://msdn.microsoft.com/en-us/library/bb176688%28v=office.12%29.aspx

上記リンクより引用

受信トレイ フォルダー内のメール メッセージを表します。

MailItem オブジェクトのすべてのメソッド / プロパティを一覧表示します

于 2012-06-29T16:19:12.603 に答える