vb.net - 通过vb中的Outlook发送电子邮件时出错？

Question

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in myprogram.exe

Additional information: Operation aborted (Exception from 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 = OutlookMessage.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)

但这对我来说有点不对劲。我想我可以尝试其中一种解决方案，如果不是这种情况，可以为用户提供一些设置的机会。