Outlook ответ на несколько писем по запросу

Question

Просто интересно, возможно ли это, и может ли кто-нибудь помочь мне?

В этом случае мы используем электронную почту, которая входит в общую папку. Затем мы будем сортировать эти электронные письма.

После сортировки мы начнем отправлять письма в утвержденную папку. Мне бы хотелось сделать макрос VBA в Outlook, который сможет генерировать настраиваемый ответ на все электронные письма в одобренной папке.

Например, если мы поместим 5 электронных писем в папку и запустим скрипт, он должен отправить электронные письма этим 5 отправителям.

электронной почты будет что-то общее, например, как «Вы утверждены, пожалуйста, выход из системы„время“.

Answer 1

Я хотел бы предложить, начиная с Getting Started with VBA in Outlook 2010 статьи в MSDN. Это объясняет основы программирования VBA макросов.

ItemAdd событие вызывается, когда один или несколько элементов, добавляются в коллекцию Items (т.е. папки). Имейте в виду, это событие не срабатывает, когда большое количество элементов, которые добавляются в папку сразу.

Таким образом, вы можете обрабатывать событие ItemAdd одобренной папки для создания и отправки сообщения LY. Метод Reply элементов Outlook создает ответ, предварительно отправленный исходному отправителю, из исходного сообщения. Метод Send отправляет сообщение электронной почты. Например:

Public WithEvents myOlItems As Outlook.Items 

Public Sub Initialize_handler() 
    Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items 
End Sub 

Private Sub myOlItems_ItemAdd(ByVal Item As Object) 
    Dim myOlMItem As Outlook.MailItem 
    Dim myOlAtts As Outlook.Attachments 

    Set myOlMItem = myOlApp.CreateItem(olMailItem) 
    myOlMItem.Save 
    Set myOlAtts = myOlMItem.Attachments 
    ' Add new contact to attachments in mail message 
    myOlAtts.Add Item, olByValue 
    myOlMItem.To = "Sales Team" 
    myOlMItem.Subject = "New contact" 
    myOlMItem.Send 
End Sub 

Answer 2

Перспективы ответ на несколько писем по требованию

Вставьте следующий код в "ThisOutlookSession"

Outlook, автоматически отправляет ответ, когда вы перемещаете письма на " утвержденный " Папка

Option Explicit 
'// items in the target folder to events 
Dim WithEvents TargetFolderItems As Items 

Private Sub Application_Startup() 
    Dim olNamespace As Outlook.NameSpace 

    Set olNamespace = Application.GetNamespace("MAPI") 
    Set TargetFolderItems = olNamespace.GetDefaultFolder(olFolderInbox) _ 
             '// Set your folder here 
             .Folders.Item("approved").Items 

End Sub 

'// ItemAdd event code 
Sub TargetFolderItems_ItemAdd(ByVal Item As Object) 
    Dim olReply As MailItem 

    Set olReply = Item.Reply 
     olReply.HTMLBody = "You are approved " & vbCrLf & olReply.HTMLBody 
     olReply.Send 

    Set TargetFolderItems = Nothing 
    Set olReply = Nothing 

End Sub