SaveAs () Microsoft.Office.Interop.Outlook.MailItem - PullRequest
Новая
       86

SaveAs () Microsoft.Office.Interop.Outlook.MailItem

0 голосов
/ 22 марта 2020

Я делаю проект надстроек Outlook, используя Vb. net для загрузки электронной почты на сервер sharepoint. Ниже приведен мой код, когда он достигает функции «SaveAs (..)», а затем я получаю сообщение об ошибке «Операция не выполнена». Могу ли я узнать, как устранить эту ошибку

Publi c Функция SaveCustomerServiceEmail (электронная почта ByVal как Microsoft.Office.Interop.Outlook.MailItem, имя файла ByVal как строка, контактный идентификатор ByVal как целое число) как логическое значение 

    Dim strFilePath As String = "http://.../" & fileName & ".msg"
    'Dim strFilePath As String = "http://.../" & fileName & ".msg"

    If CheckFileExists(strFilePath) Then Exit Function
    'Try
    **email.SaveAs(strFilePath)**
    'Catch ex As Exception
    '    Dim str As String = ex.Message
    'End Try


    Return AttachToSharePoint(fileName, contactID)

End Function
...