조건부로 전자 메일을 보내는 Outlook 매크로

Question

다음을 수행하는 Outlook 매크로를 만드는 사람을 안내해 줄 수 있습니까? 특정 메일 ID로 메일을 보낼 때마다 자동 메일이 지정된 그룹에 보내집니다. 일부 Outlook 연락처 그룹.

미리 감사드립니다.

Answer 1

여기 VBA의 간단한 조각을 사용하여 ThisOutlookSession 모듈에 추가 할 수 있습니다.

도구 메뉴에서 규칙을 통해 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