Create a Userform in Outlook to select a macro for an email template.

[snickerbart]

I have already created several macros that create an email Template. I am tryingto incorporate these into one UserForm that will allow me to select which email I want to send. However, when I test the macro, nothing is created? Am I missing some additional coding?



Private Sub CommandButton1_Click()
If OptionButton1 Then
Call QueueTrackingEmail 'Module 2
ElseIf OptionButton2 Then
Call DailyReportsEmail 'Module 3
ElseIf OptionButton3 Then
Call CaptureListingEmail 'Module 4
ElseIf OptionButton4 Then
Call EmmasEmail 'Module 5
ElseIf OptionButton5 Then
Call MondayAgingEmail 'Module 6
ElseIf OptionButton6 Then
Call Email672100 'Module 7
ElseIf OptionButton7 Then
Call Email672200 'Module 8
End If
End Sub

Thank you in advance for any advice on this matter.

[gmayor]

There is nothing in the form that would prevent it from working (though you should unload the form before ending the macro). You can test that by replacing the call statements with message boxes.

If the command button doesn't work correctly, then that reflects more on the individual macros called by the process, the nature of which we know nothing about.

[snickerbart]

I've updated the code to reduce the script and included the code for the email macro so it can be tested by itself. The macro runs fine except no email is created.

Again, thank you for any advice on this.

Private Sub Email_Click()
End Sub
Private Sub CommandButton1_Click()
If OptionButton1 Then
MsgBox "OptionButton 1 was selected"
Call Email672200 ' Module 2
End If
If OptionButton2 Then
MsgBox "OptionButton 2 was selected"
'Sub Email672200()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "672200"
.CC = "672200 CC"
.BCC = ""
.Subject = "672200 - Escrow Shortage Account"
.HTMLBody = "Hello Everyone"
.Attachments.Add ""
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
'End Sub
End If
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub

[gmayor]

If you are running the userform in Outlook, there is no need to create an Outlook application. You already have one and you are using it.

Option Explicit

Private Sub CommandButton1_Click()
    If Me.OptionButton1.Value = True Then
        Me.Hide
        MsgBox "OptionButton 1 was selected"
        Call Email672200        ' Module 2
    End If
    If Me.OptionButton2 Then
    Me.Hide
        MsgBox "OptionButton 2 was selected"
    End If
    Unload Me
End Sub
Sub Email672200()
Dim Outmail As Outlook.MailItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
    Set Outmail = CreateItem(olMailItem)
    With Outmail
        .BodyFormat = olFormatHTML
        .To = "672200"
        .CC = "672200 CC"
        .BCC = ""
        '.Attachments.Add ""
        .Display
        .Subject = "672200 - Escrow Shortage Account"
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range(0, 0)
        oRng.Text = "Hello Everyone"
        
    End With
    On Error GoTo 0
    Set Outmail = Nothing
End Sub
Private Sub CommandButton2_Click()
    Unload Me
End Sub

[snickerbart]

Thank you for that tip. I updated the code accordingly and the useform work great. I just needed a better pair of eyes to look at it.