Outlook VBA вложения - PullRequest
       2

Outlook VBA вложения

0 голосов
/ 04 декабря 2018

У меня есть очень простой .net код для создания и отправки электронных писем с / без вложений.В последнее время вложения принимаются в виде электронного письма с электронным письмом, то есть получатель видит вложение электронного письма, которое необходимо открыть, чтобы увидеть реальные вложения!Такого никогда раньше не было, я могу только предположить, что такое поведение вызвано обновлением продукта / обновлением Windows.

Странно, когда я просматриваю отправленные элементы на компьютере отправителя, все в порядке - вложения отображаются, как и ожидалось.,Кроме того, когда я запускаю идентичный код отправки на другом ПК, электронное письмо принимается в порядке, а вложения отображаются, как и ожидалось.

Основной код электронной почты:

Dim oOutlook As New Outlook.Application
Dim olNs As Outlook.NameSpace
Dim oMail As Outlook.MailItem

oOutlook = CreateObject("Outlook.Application")
olNs = oOutlook.GetNamespace("MAPI")
olNs.Logon()
oMail = oOutlook.CreateItem(Outlook.OlItemType.olMailItem)
oMail.Subject = msgSubject
oMail.HTMLBody = msgBody
oMail.To = msgTo
oMail.CC = msgCC
oMail.BCC = msgBCC

If msgAttachment <> "" Then
    If InStr(msgAttachment, ";") > 0 Then
        For x = 0 To msgAttachment.Split(";").Count - 1
            Dim g As String = ""
            g = msgAttachment.Split(";")(x)
            If g <> "" Then oMail.Attachments.Add(g)
        Next
    Else
        oMail.Attachments.Add(msgAttachment)
    End If
End If

oMail.Send()
olNs.Logoff()
oOutlook = Nothing
olNs = Nothing
oMail = Nothing
oMail = Nothing

Проблема в сообщении oMail.Attachments.Add, который работал отлично на протяжении многих лет.

Это происходит в 99% случаев на этой машине, и это сводит меня с ума - у кого-нибудь есть идеи?

Заранее спасибо:)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...