VB 表单发送一封电子邮件，其中包含文本文件中的表单字段作为附件

Question

我是 VB 表单的新手，但需要一些建议以了解这是否可行。我想将表单字段作为单行管道分隔的文本文件附件通过电子邮件发送。因此，当您打开发送的电子邮件时，它会附加 *.txt 文件，并且第一行将如下所示

textbox1_value|textbox2_value|textbox3_value

这是我的电子邮件代码：

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Using message As New MailMessage()
            'set to the from, to and subject fields
            message.From = New MailAddress(TextBox2.Text.ToString())
            message.[To].Add(New MailAddress("steve@steve.com"))
            message.Subject = "Certificate alert"
            'code the message body
            Dim MsgBody As String
            MsgBody = TextBox2.Text.ToString() & vbCr & _
                      TextBox3.Text.ToString() & vbCr & _
                      TextBox4.Text.ToString()
            message.Body = MsgBody
            Dim client As New SmtpClient()
            client.Host = "mailhost"
            client.Send(message)
        End Using
        'display submitted box
        MessageBox.Show("Your Incident has been submitted!", "Congratulations!")
        'close form
        Me.Close()
    End Sub
End Class

任何想法将不胜感激

谢谢！

Answer 1

您可以将附件中的文本保存到文本文件中，然后：

message.Attachments.Add(New Attachment("filename"))
system.io.file.delete("filename") ' delete the file

Answer 2

在磁盘上创建文件

Dim filename as String = "C:\Somefile.txt"
My.Computer.FileSystem.WriteAllText(filename, "value1|value2|value3")

然后附加到您的邮件中：

Dim att as New System.Net.Mail.Attachment(filename)
message.Attachments.Add(att)

之后别忘了删除你的文件