各位:
做了一个发送邮件的函数,想在邮件重点的地方,用红颜色标记.请问如何实现?VB.NET
Public Function dsemail2(ByVal mail As String, ByVal file_no As String, ByVal file_name As String, ByVal file_session As String, ByVal file_path As String) As Integer
Dim subjectstr, demostr As String
subjectstr = file_name + "文件新发布"//此处为红色
demostr = "您好!" & Environment.NewLine
demostr = demostr & "新文件发布通知,请勿回复!" & Environment.NewLine"//此处为红色
demostr = demostr & "今天新上传了文件,请您查阅!" & Environment.NewLine
demostr = demostr & Environment.NewLine & "文件编号:" + file_no
demostr = demostr & Environment.NewLine & "文件名称 :" + file_name
demostr = demostr & Environment.NewLine & "文件版本号:" + file_session
demostr = demostr & Environment.NewLine & "文件路径:" + file_path
demostr = demostr & Environment.NewLine & "以上" & Environment.NewLine
demostr = demostr & " 希望您能抽时间查看!""//此处为红色
'---------------------------------------------------------将员工编号和姓名分开
Dim message As MailMessage = New MailMessage(stremail.ToString, mail, subjectstr, demostr) 'toemail
Dim client As SmtpClient = New SmtpClient(strsmtp.ToString)
client.UseDefaultCredentials = False
client.Credentials = New System.Net.NetworkCredential(stremailuser.ToString, stremailpassword.ToString)
client.DeliveryMethod = SmtpDeliveryMethod.Network
client.Send(message)
Return 1
End Function