在VB中通过Outlook发送电子邮件时出错？

Question

未处理的类型异常 'System.Runtime.InteropServices.COMException' 发生在 我的程序.exe

附加信息：操作中止（HRESULT 异常： 0x80004004 (E_ABORT))

以下代码是导致错误的原因：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim AppOutlook As New outlook.Application
        Dim OutlookMessage As outlook.MailItem = AppOutlook.CreateItem(outlook.OlItemType.olMailItem)
        AppOutlook = CreateObject("Outlook.Application")
        Dim Recipents As outlook.Recipients = OutlookMessage.Recipients
        Recipents.Add("oliverbroomhall1712@hotmail.co.uk")
        OutlookMessage.Subject = "Sending through Outlook"
        OutlookMessage.Body = "Testing outlook Mail"
        OutlookMessage.Send()
        OutlookMessage = Nothing
        AppOutlook = Nothing

    End Sub

在第 7 行发现错误：

Dim Recipents As outlook.Recipients = OutlookMes​​sage.Recipients

如果不是太复杂，有没有办法在没有前景的情况下做到这一点？因为当用户没有安装 Outlook 时会发生什么？如果有人可以帮助我，我需要一种从我的应用程序发送电子邮件的方法:)

Answer 1

我从未尝试过做你正在做的事情，但你的台词不应该：

   Dim OutlookMessage As outlook.MailItem = AppOutlook.CreateItem(outlook.OlItemType.olMailItem)
   AppOutlook = CreateObject("Outlook.Application")

被逆转？所以你的 OutlookMes​​sage 不是基于那个新实例？当然，是的，如果他们没有安装 Outlook，您会遇到这个问题。

我认为，如果无法从您的用户那里获取电子邮件设置信息，那么以一种始终有效的方式发送电子邮件可能会有些困难。考虑到端口 25 阻塞和 SMTP 过滤等。即使您使用控制面板中列出的用户输入的邮件设置，现在有这么多人使用基于 Web 的电子邮件，我无法想象这会起作用。我想您可以使用自己的电子邮件帐户，您知道该帐户可以发送。

    Dim Smtp As New SmtpClient()
    Smtp.Credentials = New Net.NetworkCredential("user@gmail.com", "password")
    Smtp.EnableSsl = True
    Smtp.Port = 587
    Smtp.Host = "smtp.gmail.com"
    Dim Email As New MailMessage()
    Email.From = New MailAddress("user@gmail.com")
    Email.To.Add("oliverbroomhall1712@gmail.com")
    Email.Subject = "Test Mail"
    Email.Body = "SMTP server test"
    Smtp.Send(Email)

但这对我来说有点不对劲。我想我可能会尝试其中一种解决方案，并让用户有机会为您提供一些设置，如果他们不是这样的话。