Отправить приложение Outlook в список Sharepoint

Question

Мы работаем над небольшим кодом VBA, который передает содержимое сообщения электронной почты в Outlook в SharePoint. Наш код читает электронную почту и отфильтровывает некоторые ключевые компоненты (которые хранятся в переменных). Затем мы используем ADODB для создания нового элемента в списке SharePoint.

Для этого мы используем следующий код:

Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim mySQL As String

Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset

mySQL = "SELECT * FROM [xxxx];"

With cnt
    .ConnectionString = _
    "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=xxxxxx;LIST={xxxxx};"
    .Open
End With

rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic

rst.AddNew
    rst.Fields("Titel") = TheName
    rst.Fields("ValidFrom") = ValidFrom
    rst.Fields("ValidUntil") = ValidUntil
    rst.Fields("VersionNr") = Version
rst.Update


If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing

Однако мы хотим отправить вложение электронной почты (если оно есть) также в список sharepoint, и мы затрудняемся с этим. После некоторого поиска в Google мы обнаружили, что можно загрузить файл в библиотеку документов, а затем использовать гиперссылку в списке sharepoint на этот документ. Но для нас возможно иметь несколько файлов в одном письме ... Кто-нибудь знает способ добиться этого?