VB中通过outlook发送邮件时出错？

Question

未处理的类型异常 “System.Runtime.InteropServices.COMException”发生在 myprogram.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("[email protected]")
        OutlookMessage.Subject = "Sending through Outlook"
        OutlookMessage.Body = "Testing outlook Mail"
        OutlookMessage.Send()
        OutlookMessage = Nothing
        AppOutlook = Nothing

    End Sub

错误出现在第 7 行，其中显示：

将食谱调暗为 Outlook.Recipients = OutlookMes​​sage.Recipients

如果不是太复杂，有没有办法在没有 Outlook 的情况下做到这一点？因为当用户没有安装 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("[email protected]", "password")
    Smtp.EnableSsl = True
    Smtp.Port = 587
    Smtp.Host = "smtp.gmail.com"
    Dim Email As New MailMessage()
    Email.From = New MailAddress("[email protected]")
    Email.To.Add("[email protected]")
    Email.Subject = "Test Mail"
    Email.Body = "SMTP server test"
    Smtp.Send(Email)

但这对我来说感觉有点不对劲。我想我可能会尝试其中一种解决方案，并让用户有机会为您提供一些设置（如果情况并非如此）。