7

このコードを使用して、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

しかし、どうすれば本文に複数の行を追加できますか?

4

6 に答える 6

9

Environment.NewLine文間または文間で使用できる通常のテキストオブジェクトのように扱ってくださいvbNewLine。

StringBuilderここで便利です：

Dim sb As New StringBuilder
sb.AppendLine("Line One")
sb.AppendLine("Line Two")

mail.Body = sb.ToString()
于 2012-04-23T15:23:25.313 に答える
4

body の変数を作成し、それを mail.Body に追加すると、次のようになります。

Try
    Dim strBody as string = ""
    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"
    strBody = "This is for testing SMTP mail from me" & vbCrLf
    strBody += "line 2" & vbCrLf
    mail.Body = strBody

    SmtpServer.Send(mail)

catch ex As Exception
    MsgBox(ex.ToString)
End Try

これにより改行が追加され、電子メールには各行が個別に表示されます。

于 2012-04-23T15:25:37.123 に答える
4

メッセージの本文を HTML 形式にする必要がある場合は<br>、文字列にタグを追加します。vbCrLf本文が HTML 形式の場合は機能しStringBuilderません。

Dim mail As New MailMessage
mail.IsBodyHtml = True
mail.Body = "First Line<br>"
mail.Body += "Second Line<br>"
mail.Body += "Third Line"

HTML 形式でない場合は、ここでの他の回答が適切に表示されます。

于 2016-05-12T20:50:23.587 に答える
1

このような？

Dim myMessage as String = "This is for testing SMTP mail from me" + Environment.NewLine
myMessage = myMessage + "Line1" + Environment.NewLine

それから

mail.Body = myMessage
于 2012-04-23T15:25:27.530 に答える
1

文字列で試してみてくださいsystem.environment.newline...動作するはずです

于 2012-04-23T15:30:48.433 に答える