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.

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.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

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

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.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

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.