Question

我正在尝试让ConsoleApplication将文件夹中的所有文件附加到电子邮件中并发送它。我知道如何用一个附件做到这一点，但对于我的生活，我无法弄清楚如何将所有项目附加到文件夹中。

当前代码：

Sub Main()
    Try
        Dim mail As New MailMessage("from", "to")

        Dim client As New SmtpClient()
        client.Port = 25
        client.DeliveryMethod = SmtpDeliveryMethod.Network
        client.UseDefaultCredentials = False
        client.Host = ""
        mail.Subject = "" + DateTime.Now.AddDays(-1).ToShortDateString()
        mail.IsBodyHtml = True
        mail.Body = "Test"

        Dim file As System.Net.Mail.Attachment
        file = New System.Net.Mail.Attachment("Path to single file")


        mail.Attachments.Add(file)


        client.Send(mail)

        Return
    Catch [error] As Exception

        MsgBox("error")

        Return
    End Try

End Sub

提前致谢

编辑：

我尝试了以下在其他帖子中找到的代码，但它只是出错（并且使用了ConsoleApplication，我不知道如何查看其给出的确切错误）

 For Each filePath As String In Directory.GetFiles(My.Settings.FileLoc1)
            Dim Attach As New Net.Mail.Attachment(filePath)
            mail.Attachments.Add(Attach)
        Next

Answer 1

我开始工作了！

 Sub Main()
    Try
        Dim mail As New MailMessage("from", "too")

        Dim client As New SmtpClient()
        client.Port = 25
        client.DeliveryMethod = SmtpDeliveryMethod.Network
        client.UseDefaultCredentials = False
        client.Host = ""
        mail.Subject = "" + DateTime.Now.AddDays(-1).ToShortDateString()
        mail.IsBodyHtml = True
        mail.Body = "Test"


        For Each filePath As String In Directory.GetFiles(My.Settings.FileLoc1)
            Dim Attach As New Net.Mail.Attachment(filePath)
            mail.Attachments.Add(Attach)
        Next


        client.Send(mail)

        Return
    Catch [error] As Exception

        MsgBox("error")

        Return
    End Try

End Sub

将文件夹中的所有文件附加到电子邮件中

1 个答案: