在Outlook中创建一个UserForm,从模板列表中进行选择以创建电子邮件

在Outlook中创建一个UserForm,从模板列表中进行选择以创建电子邮件,outlook,radio-button,userform,email-templates,Outlook,Radio Button,Userform,Email Templates,我在Outlook中创建了一个UserForm,允许我选择要创建的电子邮件模板。电子邮件模板的VBA可以很好地创建电子邮件,但是,当我在UserForm中使用下面的代码时,电子邮件不会被创建吗?我是否在UserForm中缺少一些额外的编码 专用子命令按钮1\u单击 如果选择按钮1,则 Call QueueTrackingemail 'Module 2 其他选项按钮2 Call DailyReportsEmail 'Module 3 其他选项按钮3则 Call

我在Outlook中创建了一个UserForm,允许我选择要创建的电子邮件模板。电子邮件模板的VBA可以很好地创建电子邮件,但是,当我在UserForm中使用下面的代码时,电子邮件不会被创建吗?我是否在UserForm中缺少一些额外的编码

专用子命令按钮1\u单击

如果选择按钮1,则

    Call QueueTrackingemail   'Module 2
其他选项按钮2

    Call DailyReportsEmail    'Module 3
其他选项按钮3则

    Call CaptureListingEmail  'Module 4
其他选项按钮4则

    Call EmmasEmail           'Module 5
其他选项按钮5则

    Call MondayAgingEmail     'Module 6
其他选项按钮6则

    Call Email672100          'Module 7
其他选项按钮7则

    Call Email672200          'Module 8
如果结束


End Sub

不确定是否已解决此问题,但需要在选项Buttonx和Then之间添加a=True,例如

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    Call QueueTrackingemail   'Module 2

ElseIf OptionButton2 = True Then
    Call DailyReportsEmail    'Module 3

等等。。单击OptionButton后,需要添加运行该命令的命令按钮。

是否尝试调试代码?是否调用宏子程序?所有宏运行正常,未报告任何错误。当我使用MsgBox验证流程时,我会得到显示操作的MsgBox,但仍然没有创建电子邮件?????