邮件标题添加换行符
开发语言:vb2003
问题:
我想在发送邮件的时候,邮件标题(Subject)添加换行符,请问如何处理?谢谢!
使用vbCrLf但还是不行。
发送邮件代码如下:
Public Sub sendmail()
Dim ERDate As String = ""
If dateERday.Text = "" Then
Exit Sub
End If
ERDate = dateERday.Text
Dim pubs As DataSet = Common.GetRateDay(ERDate)
Dim strSubject As String '邮件主题
Dim tb As DataTable
tb = pubs.Tables(0)
strSubject = "Ex-rate:"
Dim i As Integer
For i = 0 To tb.Rows.Count - 1
If i <> tb.Rows.Count - 1 Then
strSubject += String.Format("{0}/{1}({2}),", tb.Rows(i).Item("HKD"), tb.Rows(i).Item("USD"), tb.Rows(i).Item("Currency"))
If i Mod 3 = 0 Then
strSubject += vbCrLf
End If
Else
strSubject += String.Format("{0}/{1}({2})", tb.Rows(i).Item("HKD"), tb.Rows(i).Item("USD"), tb.Rows(i).Item("Currency")) + vbCrLf
End If
Next
Dim row As DataRow = pubs.Tables(0).Rows(0)
Dim objMessage As MailMessage = New MailMessage
objMessage.To = Common.GetEmailUser("Rate")
'objMessage.Cc = row("email")
objMessage.From = "XXX@XXX"
'objMessage.Subject = enc.hash("AlertEmail")
objMessage.BodyEncoding = System.Text.Encoding.UTF8()
objMessage.BodyFormat = MailFormat.Html
objMessage.Subject = strSubject
'Dim strBody As String = message
'strBody &= "<br>" & enc.hash("MoreDetail")
'strBody &= "<a href='http://XXX</a>"
'strBody &= "<br><br>" & enc.hash("AlertEmail")
'strBody &= "<br>" & row("dept_sc") & row("name_sc")
objMessage.Body = ""
"
SmtpMail.Send(objMessage)
End Sub