Outlook宏开发：如何从TXT填充Select Case或传递ComboBox值？

完全不需要硬编码Select Case，我们可以把TXT文件的内容加载到数组里，然后通过ComboBox的ListIndex直接从数组中取对应的值，完美实现动态更新：

步骤1：写一个读取TXT到数组的辅助函数 #

在ThisOutlookSession里添加这个函数：

Private Function GetReferenceList() As Variant
    Dim filePath As String
    Dim fileContent As String
    Dim refArray As Variant
    
    filePath = "C:\YourPath\RefNumbers.txt" ' 替换成你的TXT实际路径
    
    ' 读取整个文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 按换行符分割成数组
    refArray = Split(fileContent, vbCrLf)
    
    ' 移除文件末尾可能的空行（如果存在）
    If UBound(refArray) > 0 And refArray(UBound(refArray)) = "" Then
        ReDim Preserve refArray(UBound(refArray) - 1)
    End If
    
    GetReferenceList = refArray
End Function

步骤2：在ItemSend事件中使用数组动态取值 #

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim myForm As New UserForm1
    Dim refList As Variant
    
    ' 获取参考编号数组
    refList = GetReferenceList()
    
    ' 把数组加载到ComboBox（也可以移到UserForm的Initialize事件里）
    myForm.ComboBox1.List = refList
    
    ' 模态显示窗体
    myForm.Show vbModal
    
    ' 根据ListIndex从数组中取对应值
    If myForm.ComboBox1.ListIndex <> -1 Then
        Item.Subject = Item.Subject & " [" & refList(myForm.ComboBox1.ListIndex) & "]"
    End If
    
    Unload myForm
    Set myForm = Nothing
End Sub

这样一来，TXT文件新增/修改行后，数组和ComboBox都会自动同步，完全不需要修改代码里的硬编码逻辑，完美符合你用TXT存储动态列表的初衷。

内容的提问来源于stack exchange，提问作者user9821304