Outlook VBA问题：无法将用户窗体值传递至ThisOutlookSession模块

看起来你遇到的核心问题是公共变量的作用域引用错误，再加上一些未声明变量的隐患，导致选中的ListBox项目无法正确传递到ThisOutlookSession模块。我来帮你梳理并修正代码：

问题分析 #

1. 公共变量引用不明确：你在ThisOutlookSession里声明了Public subString As String，但在用户窗体中直接写subString = StrPicks时，VBA会默认认为这是窗体的局部变量（即使没声明），而不是指向ThisOutlookSession里的公共变量。
2. 未显式声明变量：StrPicks没有声明，属于隐式变体变量，容易引发不可预期的错误。
3. 变量名拼写混淆：代码注释里写的是strstring，但变量名是subString，虽然VBA不区分大小写，但统一命名能避免混淆。

修正后的代码 #

1. ThisOutlookSession模块代码 #

' 重命名变量为更清晰的名称，避免混淆
Public SelectedItems As String

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    ' 显示用户窗体
    SubjectAdd.Show
    
    ' 只有当选中项不为空时，才追加到主题
    If SelectedItems <> "" Then
        Item.Subject = Item.Subject & " " & SelectedItems
    End If
End Sub

2. SubjectAdd用户窗体代码 #

Private Sub Append_Click()
    Dim i As Long
    Dim StrPicks As String ' 显式声明变量
    
    ' 遍历ListBox选中项
    For i = 0 To MatterList.ListCount - 1
        If MatterList.Selected(i) = True Then
            ' 拼接选中项，避免第一个项前有空格
            If StrPicks = "" Then
                StrPicks = MatterList.List(i)
            Else
                StrPicks = StrPicks & " " & MatterList.List(i)
            End If
        End If
    Next i
    
    ' 明确引用ThisOutlookSession的公共变量
    ThisOutlookSession.SelectedItems = StrPicks
    
    Me.Hide
End Sub

关键修改点说明 #

• 明确公共变量引用：用ThisOutlookSession.SelectedItems替代直接写subString，确保赋值的是模块级的公共变量。
• 显式声明变量：添加Dim StrPicks As String，避免隐式变体变量带来的问题。
• 优化拼接逻辑：去掉了lngCount变量，直接通过判断StrPicks是否为空来控制空格，代码更简洁。
• 变量名语义化：把subString改成SelectedItems，更直观表达变量用途。

这样修改后，用户选中的ListBox项目就能正确传递到ThisOutlookSession，并追加到邮件主题末尾了。

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