Email Template Manager

Sub EmailTemplateManager()
    Dim templateName As String
    Dim emailBody As String
    Dim OutApp As Object
    Dim OutMail As Object

    ' Define email templates
    templateName = InputBox("Enter template name (welcome, followup, reminder):")

    Select Case LCase(templateName)
        Case "welcome"
            emailBody = "Welcome to our service! We are excited to have you on board."
        Case "followup"
            emailBody = "Following up on our previous communication. Please let us know if you have any questions."
        Case "reminder"
            emailBody = "This is a friendly reminder about your upcoming appointment."
        Case Else
            emailBody = InputBox("Enter custom email body:")
    End Select

    ' Create and send email
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .Subject = "Subject: " & templateName
        .Body = emailBody
        .Display ' Show email for review before sending
    End With
End Sub