Totally new to using VBA but through searching through various search engines (mainly Google) I managed to come up with code to send an automated e-mail through a pop-up reminder (and subsequently dismiss it). What I'm hoping to be able to do is send different automated e-mails through different reminders but don't quite know how to set it up (where to put the code to send the different e-mail). My current code looks like so:

Private Sub Application_Reminder(ByVal Item As Object) 
    Dim wd As Object, editor As Object 
    Dim doc As Object 
    Dim oMail As MailItem 
    Dim outapp As Object 
    Dim outmsg As Object 
    Set olRemind = Outlook.Reminders 
     
    Set outapp = CreateObject("outlook.application") 
    Set outmsg = outapp.CreateItem(0) 
     
    If Item.MessageClass <> "IPM.Appointment" Then Exit Sub 
    If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub 
     
    Set wd = CreateObject("Word.Application") 
    Set doc = wd.Documents.Open(FileName:="C:\MyFile.docx") 
    doc.Content.Copy 
    doc.Close 
    Set wd = Nothing 
     
    Set oMail = Application.CreateItem(olMailItem) 
    With oMail 
        .BodyFormat = olFormatRichText 
        Set editor = .GetInspector.WordEditor 
        editor.Content.Paste 
        .Display 
        .To = Item.Location 
        .Subject = Item.Subject 
        .Send 
    End With 
End Sub 
Private Sub olRemind_BeforeReminderShow(Cancel As Boolean) 
     
    For Each objRem In olRemind 
        If objRem.Caption = Item.Subject Then 
            If objRem.IsVisible Then 
                objRem.Dismiss 
                Cancel = True 
            End If 
            Exit For 
        End If 
    Next objRem 
     
End Sub 

Formatting tags added by mark007
Any help is appreciated!

Xandler