如何selectTextBox或ListBox中的数据，然后通过基于该数据的Outlook发送电子邮件

我有一个简单的VBA表单和一个Excel工作表。

我希望能够select列表框或文本框中的数据，然后select一个条目后，然后单击命令button，将允许我打开Outlook并发送电子邮件给我从ListBox或TextBox中select的人。

任何帮助将非常感激。

这里有一个截图： 截图

码

'Dim mySheet As Worksheet 'Dim myUser As Range Private Sub cmbRestDay_Change() 'Set mySheet = Sheets("Dashboard") 'Set myUser = mySheet.Range("D:D").Find(cmbRestDay.Value, , , xlWhole) ' 'If Not myUser Is Nothing Then ' 'ListBox1.Value = myUser.Offset(0, -3) 'Else 'ListBox1.Value = "No Match" ' 'End If Dim mySheet As Worksheet 'declaring mySheet as the Worksheet... Dim x Dim i As Long Dim str As String Set mySheet = Sheets("Dashboard") x = mySheet.Range("A1").CurrentRegion.Value If Application.CountIf(mySheet.Columns(2), cmbRestDay.Value) > 0 Then For i = 2 To UBound(x, 1) If x(i, 2) = cmbRestDay.Value Then If str = "" Then str = x(i, 1) Else str = str & vbNewLine & x(i, 1) End If End If Next i TextBox1.Value = str Else TextBox1.Value = "Match not found" End If End Sub Private Sub UserForm_Initialize() cmbRestDay.Clear With cmbRestDay .AddItem ("Mon") .AddItem ("Tue") .AddItem ("Wed") .AddItem ("Thu") .AddItem ("Fri") .AddItem ("Sat") .AddItem ("Sun") End With With cmbMyRD .AddItem ("Mon") .AddItem ("Tue") .AddItem ("Wed") .AddItem ("Thu") .AddItem ("Fri") .AddItem ("Sat") .AddItem ("Sun") End With End Sub