MS Outlook VBA для загрузки вложения электронной почты на Sharepoint с аутентификацией

Question

Я все еще новичок в использовании VBA, и я пытался выяснить, как загрузить файл через VBA в MS Outlook на Sharepoint. Я попытался подключить Sharepoint к моему сетевому диску и тому подобное, но безрезультатно.

Мой код выглядит следующим образом:

Public Sub saveAttachSentDate(MItem As Outlook.MailItem)

Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
Dim file As String
Dim DateFormat As String

sSaveFolder = "(URL of the sharepoint along with the folder to save it on)"


For Each oAttachment In MItem.Attachments
DateFormat = Format(MItem.SentOn - 1, "mm.dd.yy ")
file = sSaveFolder & DateFormat & oAttachment.DisplayName
oAttachment.SaveAsFile sSaveFolder & DateFormat & oAttachment.DisplayName
Next

End Sub

Имя моего файла обозначено так: «[My Department] - (Имя клиента) Сводка телефонии»

Я всегда получаю эту ошибку

«Ошибка времени выполнения« 2147024735 (800700a1) »: невозможно сохранить вложение. Имя файла или каталога недопустимо."

Я думаю, что вероятная причина заключается в том, что для разделяемой точки, на которую я загружаю, требуется имя пользователя и пароль при каждом доступе к нему. Я попробовал другой ресурс, используя тот же самый код, который не требует учетных данных для входа, и он работает просто отлично. Я не могу найти обходной путь, и я был бы признателен за любую помощь!

Answer 1

Путь, переданный методу SaveAsFile , не может быть представлен строкой URL или сетевым расположением. Вам необходимо указать локальную папку, из которой вы можете начать загрузку файлов. Объектная модель Outlook не предоставляет ничего для загрузки файлов на какие-либо веб-серверы, поэтому вам придется делать это самостоятельно. Чтобы это работало, я бы порекомендовал разработать надстройку COM. Например, надстройки на основе VSTO построены на основе .net framework и могут использовать классы BCL для решения этой проблемы. См. Пошаговое руководство. Создайте свою первую надстройку VSTO для Outlook , чтобы быстро начать работу.