如何在电子邮件中填充列表框/组合框

Question

我试图填充电子邮件中多个选定字段的值。它是这样工作的；有一个表单，类别字段之一可以从该字段的工具列表中选择多个值，然后在提交表单时它将生成一封电子邮件。生成电子邮件时，从多选字段（工具列表框）中选择的值不会显示在电子邮件中。

希望您能帮助我在电子邮件中生成多选列表框。

注意：在“属性工具-工具”列表框中，多选的设置：2-fmMultiSelectExtended和行源：工具（“工具”是工具列表所在的名称范围）

此代码使用户可以在单击时在“工具列表”框中选择多个项目：

 Private Sub Tools_Click()
    Tools.selected
 End Sub

此代码允许在生成的电子邮件中填充“工具”列表框的值：

 Private Sub UserForm_Initialize()
    With Me.Tools
        For x = 0 To Me.Tools.ListCount - 1
           If Me.Tools.Selected(x) Then
            Stop
           End If
        Next x
    End With
  End Sub