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

但是，我们也希望将电子邮件的附件（如果有附件）也发送到共享点列表，而如何实现这一点我们不知所措。经过一番谷歌搜索后，我们发现可以将文件上传到文档库，然后在共享点列表中使用超链接到该文档。但是对我们来说，一封电子邮件中可能有多个文件...有人知道实现此目的的方法吗？

将Outlook附件发送到Sharepoint列表

0 个答案: