Outlook VBA附件

Question

我有一些非常简单的.net代码，用于创建和发送带/不带附件的电子邮件。最近，附件正以电子邮件的形式随电子邮件一起接收，即收件人看到的电子邮件消息的附件必须打开才能看到真实的附件！这种情况以前从未发生过，我只能假定产品补丁程序/ Windows更新导致了这种现象。

很遗憾，当我查看发送方PC的已发送项目时，一切都很好-附件按预期显示。另外，当我在另一台PC上运行相同的发送代码时，可以正常接收到电子邮件，并显示预期的附件。

基本电子邮件代码：

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％的时间发生，这让我发疯了-有人知道吗？

预先感谢：）