VBA

Question

我设置了一个发送电子邮件的用户表单。有一个列表框，其中包含映射到 .To 属性的电子邮件地址列表。我不想在列表框中显示电子邮件地址，而是希望显示人名，然后将其映射到他们的电子邮件地址。我该怎么做？

这是我填充列表框的代码。

Private Sub UserForm_Initialize()
With ToBox
    .AddItem "john@business.com"
    .AddItem "bill@business.com"
    .AddItem "mary@business.com"
    .AddItem "adam@business.com"
    .AddItem "jane@business.com"
End With
End Sub

Answer 1

这是你正在尝试的吗？

Dim EmailArray(1 To 15, 1 To 15) As String
Dim i As Long

Private Sub UserForm_Initialize()
    '~~> Set your 15 names and email address here
    EmailArray(1, 1) = "Siddharth Rout": EmailArray(1, 2) = "Blah@Siddharthrout.Com"
    EmailArray(2, 1) = "Name1 Here": EmailArray(2, 2) = "Email1 Here"
    EmailArray(3, 1) = "Name2 Here": EmailArray(3, 2) = "Email2 Here"
    '
    ' And so on..
    '
    EmailArray(15, 1) = "Name15 Here": EmailArray(15, 2) = "Email15 Here"

    '~~> Add the names from Col 1 to listbox
    For i = 1 To 15
        ToBox.AddItem EmailArray(i, 1)
    Next i
End Sub

'~~> Match the value from listbox with array and retrieve the
'~~> corresponding column value
Private Sub CommandButton1_Click()
    If ToBox.ListIndex <> -1 Then
        For i = 1 To 15
            If ToBox.Value = EmailArray(i, 1) Then
                MsgBox "the name you selected is " & EmailArray(i, 1) & _
                " and the email address is " & EmailArray(i, 2)
                Exit For
            End If
        Next i
    End If
End Sub

Answer 2

这不是最优雅的解决方案，但我想出了这个方法来做我想做的事情。在实际发送电子邮件的 Sub 中，我这样做了。它采用 ComboBox 的值并通过 If 例程来获取电子邮件地址。

If Questions.ToBox.Value = "John" Then
    .To = "john@business.com"
    End If
If Questions.ToBox.Value = "Bill" Then
    .To = "bill@business.com"
    End If
If Questions.ToBox.Value = "Mary" Then
    .To = "mary@business.com"
    End If

VBA - 用户表单列表框中的别名

VBA - aliases in listbox in a userform

excel

listbox

userform