Email Template Fires Each Time You Receive a Fresh Email

Hi Guys,

I have put together some basic code. I am looking to create a macro so it fires an automated template reply (HTML Format) each time you receive a fresh email in a shared inbox.

I have tried to do this using Outlook VBA under newmailex and newmail events - to little success. Also get entry id. I've now started to look at Excel vba and I am still running into problems.

I would be eternally grateful if someone could please check and help.

Thanks so much

I don't think this will be best to do this in Excel VBA as it would be easier to have a listener inside Outlook, have a look at the below, it sends a template each time a new mail pops into a shared inbox. Once the code has been pasted into the 'ThisOutlookSession' module of Outlook, shut down Outlook and then reopen (and enable macro's), at this point it should be ready to spy mails dropping into the Inbox of shared folder.

Code:

---

Private WithEvents inboxItems As Outlook.ItemsDim outlookApp As Outlook.Application


Private Sub Application_Startup()
    Dim objectNS As Outlook.NameSpace
    Set outlookApp = Outlook.Application
    Set objectNS = outlookApp.GetNamespace("MAPI")
    Set inboxItems = objectNS.Folders("Shared Folder Name").Folders("Inbox").Items
End Sub


Private Sub inboxItems_ItemAdd(ByVal Item As Object)
    On Error GoTo ErrorHandler
    Dim Msg As Outlook.MailItem
    Dim MessageInfo
    Dim Sender_ As String
    Dim olmailtemp As Outlook.MailItem


    If TypeName(Item) = "MailItem" Then
        Set olmailtemp = outlookApp.CreateItemFromTemplate("Location Of Your Template\Test.oft")
        With olmailtemp
            .Display
            .To = Item.SenderEmailAddress
            .Subject = Item.Subject
            '.Send
        End With
    End If


ExitNewItem:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ExitNewItem
End Sub

---

Forever in your debt, This was bugging the heck out of me. Thank you so much for taking the time to respond, Georgiboy.

Is it possible to get the template to launch under HTML format? I've added .HTMLBody property to the With olmailtemp block as follows:

.HTMLBody = olmailtemp & .HTMLbody - but it still launches without the proper formatting?

Many thanks

How about:

Code:

---

Private WithEvents inboxItems As Outlook.ItemsDim outlookApp As Outlook.Application

Private Sub Application_Startup()
    Dim objectNS As Outlook.NameSpace
    Set outlookApp = Outlook.Application
    Set objectNS = outlookApp.GetNamespace("MAPI")
    Set inboxItems = objectNS.Folders("Shared Folder Name").Folders("Inbox").Items
End Sub

Private Sub inboxItems_ItemAdd(ByVal Item As Object)
    On Error GoTo ErrorHandler
    Dim Msg As Outlook.MailItem
    Dim MessageInfo
    Dim Sender_ As String
    Dim olmailtemp As Outlook.MailItem

    If TypeName(Item) = "MailItem" Then
        Set olmailtemp = outlookApp.CreateItemFromTemplate("location of oft file\Test.oft")
        With olmailtemp
            .Display
            .BodyFormat = olFormatHTML
            .To = Item.SenderEmailAddress
            .Subject = Item.Subject
            '.Send
        End With
    End If
   
ExitNewItem:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ExitNewItem
End Sub

---