Невозможно передать значение из пользовательской формы в модуль

Question

Все, я пытаюсь передать значение выбранного элемента (или элементов) из пользовательской формы в ThisOutlookSession, но не могу передать строку.Благодарен за мысли о том, где я могу пойти не так.

Идея состоит в том, чтобы заполнить список списком ссылок из текстового файла (который работает нормально), пользователь выберет элемент из списка, и этот элемент будет добавлен в конецстрока темы исходящего письма.(Часть кода, которая изменяет строку темы, опущена ниже).

Внутри ThisOutlookSession:

Public subString As String

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

SubjectAdd.Show
[CODE OMITTED,  but the gist of it is item.subject = item.subject & strstring]

End Sub

Внутри пользовательской формы SubjectAdd:

Private Sub Append_Click()

Dim i As Long
Dim lngCount As Long

  lngCount = 0
  For i = 0 To MatterList.ListCount - 1
    If MatterList.Selected(i) = True Then
      lngCount = lngCount + 1
      If lngCount = 1 Then
        StrPicks = MatterList.List(i)
      Else
        StrPicks = StrPicks & " " & MatterList.List(i)
      End If
    End If
  Next i

subString = StrPicks
Me.Hide

lbl_Exit:
  Exit Sub

End Sub

Answer 1

Переменная Public должна работать

В качестве альтернативы использовать Tag свойство UserForm объекта

В Append_Click() добавить последнюю строку перед Me.Hide

Me.Tag = StrPicks

Затем в Application_ItemSend(), перед любым

Unload SubjectAdd

, поместите следующее

subject = item.subject & SubjectAdd.Tag