Макрос Outlook для отправки электронной почты условно - PullRequest
Новая
       8

Макрос Outlook для отправки электронной почты условно

0 голосов
/ 14 июля 2009

Может ли кто-нибудь помочь мне в создании макроса Outlook, который выполняет следующие действия: Всякий раз, когда я отправляю почту на определенный почтовый идентификатор, автоматическая почта будет отправляться в указанную группу через почтовые идентификаторы или какую-либо группу контактов outlook.

Заранее спасибо !!

1 Ответ

1 голос
/ 14 июля 2009

Вот небольшой пример 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
...