VB.NET 发送outLook邮件body基于Html样式

 

首先要添加

 .IsBodyHtml = True

 ''' <summary>
    ''' SFC系统发送邮件
    ''' </summary>
    ''' <param name="MailTitle">邮件标题</param>
    ''' <param name="MailContent">邮件正文</param>
    ''' <param name="SendTypeID">发送类型</param>
    ''' <returns>发送成功返回 True</returns>
    ''' <remarks></remarks>
    Public Function SendMail(MailTitle As String, MailContent As String, SendTypeID As Integer) As Boolean '发送邮件
        SendMail = False
        Try
            Dim client As System.Net.Mail.SmtpClient
            Dim Mailmsg As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
            ' Try
            Mailmsg.From = New System.Net.Mail.MailAddress("sfc@tsmt.com.tw")
           Dim Sql As String = "Select f002 from OP_EMail"
            Dim DT As DataTable = SFCGetDataTable(Sql)
            If DT.Rows.Count > 0 Then
                For i As Integer = 0 To DT.Rows.Count - 1
                    ''收件人列表
                    Mailmsg.To.Add(DT.Rows(i).Item(0).ToString)
                Next

            End If

            With Mailmsg
                .Subject = MailTitle
                .Body = MailContent
                .IsBodyHtml = True　　'不启用的话,Html格式不会显示
            End With
            client = New System.Net.Mail.SmtpClient("spam.tsmt.com.tw")

            client.Send(Mailmsg)
            SendMail = True
            client = Nothing
            Mailmsg.Dispose()
        Catch ex As Exception
            SendMail = False
        End Try
    End Function

调用方法:

Sub GetGQXX()
        Try
            Dim sql As String
            sql = "SELECT  t1.f002 as 工号,t2.f002 as 姓名,t2.f018 as 部门, t1.f003 as 教育岗位," &
            "to_char(t1.f009, 'yyyy/mm/dd') as 过期日 FROM op_info t1,OP_PERSL t2  where t2.f003= t1.f002    " &
           "and  t1.f009<SYSDATE +" & NumericUpDown1.Value & "order by t1.f009"

            Dim dt As DataTable = SFCGetDataTable(sql) '获得岗位证书过期的信息

            If dt Is Nothing Then
                Exit Sub
            End If
            Dim MsgInfox As String = "<table border='1' cellspacing='0' cellpadding='0'" & _
                                " style=""font-family:'微软雅黑',Helvetica,Arial,sans-serif;font-size:14px;text-align: center;"" width='100%'>"
            If dt.Rows.Count > 0 Then
                For Each o As DataColumn In dt.Columns
                    MsgInfox += "<td  style=""font-family:'微软雅黑',Helvetica,Arial,sans-serif;font-size:14px;text-align: center;color: white;background-color: blue;"">" + o.ColumnName + "</td>"
                Next
                Dim cols As Integer = dt.Columns.Count
                Dim rows As Integer = dt.Rows.Count

                For r As Integer = 0 To rows - 1 
                    MsgInfox += "<tr>"
                    For c As Integer = 0 To cols - 1
                        MsgInfox += "<td style=""font-family:'微软雅黑',Helvetica,Arial,sans-serif;font-size:14px;text-align: center;"">" + dt.Rows(r).Item(c).ToString() + "</td>"
                        If c = cols - 1 Then
                            MsgInfox += vbCrLf
                        End If
                    Next
                    MsgInfox = MsgInfox + "</tr>"
                Next
                MsgInfox = MsgInfox + "</table>"
                'For i As Integer = 0 To dt.Rows.Count - 1
                '    MsgInfox += "工号：" & dt.Rows(i).Item(1).ToString & "    姓名：" & dt.Rows(i).Item(2).ToString & "    岗位：" & dt.Rows(i).Item(7).ToString & "    过期日期：" & CDate(dt.Rows(i).Item(13).ToString) & vbCrLf
                'Next

                If SendMail("上岗证过期预警通知", "各位同仁，以下人员上岗证即将过期(提前" & NumericUpDown1.Value & "天预警)，请及时处理" & vbCrLf & vbCrLf & MsgInfox, 0) = True Then
                    Label2.Text = "发送上岗证过期预警成功，共发送 " & dt.Rows.Count & "条"
                End If
            Else
                Label2.Text = "发送上岗证过期预警成功，共发送 " & dt.Rows.Count & "条"


            End If
            TSJS = 0
            K += 1
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub