.net设置重点文字的颜色为红色

各位:

      做了一个发送邮件的函数,想在邮件重点的地方,用红颜色标记.请问如何实现?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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值