我可以使用此代码在Exchange服务器上发送电子邮件
Try
Dim SmtpServer As New SmtpClient
Dim mail As New MailMessage
SmtpServer.Credentials = New Net.NetworkCredential()
SmtpServer.Port = 25
SmtpServer.Host = "email.host.com"
mail = New MailMessage
mail.From = New MailAddress("myemail@email.com")
mail.To.Add("otheremail@email.com")
mail.Subject = "Equipment Request"
mail.Body = "This is for testing SMTP mail from me"
SmtpServer.Send(mail)
catch ex As Exception
MsgBox(ex.ToString)
End Try
Run Code Online (Sandbox Code Playgroud)
但是如何在身体上添加多条线?
只需将其视为可以使用Environment.NewLine或vbNewLine在句子之间使用的普通文本对象.
StringBuilder 在这里很有用:
Dim sb As New StringBuilder
sb.AppendLine("Line One")
sb.AppendLine("Line Two")
mail.Body = sb.ToString()
Run Code Online (Sandbox Code Playgroud)