visual basic将信息保存为txt

Question

我写了一个小工具，所以我不必每天都写一封电子邮件。 我不得不说，不幸的是我在VB方面没有太多的经验，但它勇敢地挥舞着，可能有人 非常好，帮助我，我真的很高兴。

问题是：

我在活动结束前不久每天发送一封电子邮件给运输服务提供商GLS，并附上印章号码 和托盘的数量。我会喜欢一种托盘帐户，无论是文本还是偶数 随着小桂。只要将电子邮件作为txt文件发送到文件并发送，就必须发送它 已保存（将附加到新行中）以及相关日期。 不幸的是，我真的不明白。如果您使用整体而不是使用Excel或编辑器，那将是非常好的 还在迷你程序中读出来。

这是我的源代码：

Imports System.Net.Mail

Public Class Form1

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

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "*********"
myCredentials.Password = "*********"

Msg.IsBodyHtml = False

Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.EnableSsl = True 'SSL aktivieren
mySmtpsvr.Host = "smtp.strato.de"
mySmtpsvr.Port = 587

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
Msg.From = New MailAddress("*********")
ProgressBar1.Value = 10
Msg.To.Add("*********")
Msg.CC.Add(ccempfaender.Text)
ProgressBar1.Value = 20
Msg.Subject = "Plombennummer für Wechselbrücke Kundennummer: *********"
ProgressBar1.Value = 30
Msg.Body = "Hallo, wir möchten Ihnen die heutige Plombennummer mitteilen, diese lautet: " & (Plombennummer.Text) & ". Außerdem haben wir auf der Wechselbrücke folgende Anzahl an Paletten: " & "Europaletten: " & (Euro.Text) & ", Einwegpaletten: " & (Einweg.Text) & " verladen. Über eine schnelle Abwicklung würden wir uns sehr freuen und verbleiben mit den besten Grüßen! Panorama24 Lagerteam. Für dringliche Fragen, stehen wir Ihnen gerne unter folgender Rufnummer zur Verfügung: *********"
ProgressBar1.Value = 80
mySmtpsvr.Send(Msg)
ProgressBar1.Value = 100
MsgBox("Erfolgreich - schönen Feierabend", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try

End Sub

End Class

提前致谢：）

Answer 1

使用Microsoft的流编写器类记录您的数据StreamWriter