条件付きでメールを送信するためのOutlookマクロ

Question

誰でも次のことを行うOutlookマクロの作成をガイドできますか： 特定のメールIDにメールを送信するたびに、自動メールが指定されたグループに送信されます。いくつかのOutlook連絡先グループ。

ありがとうございます！

Answer 1

ここでは、あなたのThisOutlookSessionモジュールに追加するためのVBAの素早い部分があります。

ルールを使用してツールメニューからCCを実行するか、ルールを作成するコードを記述する必要があります。

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 
       ''SendNotification 
       SendNotificationWithCopy Item 
      End If 

     Next 

    End If 

End Sub 


Sub SendNotification() 
    Set objMail = Application.CreateItem(olMailItem) 
    objMail.Recipients.Add "<EMAIL ADDRESS/GROUP TO SEND NOTIFICATION>" 
    objMail.Recipients.ResolveAll 
    objMail.Subject = "NOTIFICATION" 
    objMail.Body = "Body Text" 
    objMail.Send 
End Sub 



Sub SendNotificationWithCopy(obj As Object) 

    Set objMail = Application.CreateItem(olMailItem) 
    objMail.Recipients.Add "<EMAIL ADDRESS TO SEND NOTIFICATION>" 
    objMail.Recipients.ResolveAll 
    objMail.Attachments.Add obj, OlAttachmentType.olEmbeddeditem 
    objMail.Subject = "NOTIFICATION with attachment" 
    objMail.Body = "Body Text" 
    objMail.Send 
End Sub