Email Template Fires Each Time You Receive a Fresh Email

[georgiboy]

How about:

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