zoukankan      html  css  js  c++  java
  • 邮箱代码

    ''' <summary>
    ''' 邮箱代码
    ''' </summary>
    ''' <param name="toaddress">收件人地址</param>
    ''' <param name="toname">收件人名字</param>
    ''' <param name="caosongren">抄送人</param>
    ''' <param name="mimiren">密件抄送人</param>
    ''' <param name="subject">主题</param>
    ''' <param name="body">正文</param>
    ''' <returns> 不返回</returns>
    ''' <remarks></remarks>
    Public Shared Sub senderemail(ByVal toaddress As String, ByVal toname As String, ByVal caosongren As String, ByVal mimiren As String, ByVal subject As String, ByVal body As String)

    Dim client As SmtpClient = New SmtpClient("smtp.163.com")
    client.Host = "smtp.163.com"
    'client.Port="端口"
    client.UseDefaultCredentials = False
    client.Credentials = New System.Net.NetworkCredential("xxxxx@163.com", "密码")
    client.DeliveryMethod = SmtpDeliveryMethod.Network
    Dim addressfrom As MailAddress = New MailAddress("xxxxx@163.com", "我是test")
    Dim addressto As MailAddress = New MailAddress(toaddress, toname)
    Dim messages As MailMessage = New MailMessage(addressfrom, addressto)
    Dim cc As MailAddress = New MailAddress(caosongren) '抄送人
    messages.CC.Add(cc)
    Dim mim As MailAddress = New MailAddress(mimiren) '密人
    messages.Bcc.Add(mim)
    messages.Priority = MailPriority.High
    messages.Body = body
    messages.Subject = subject
    messages.BodyEncoding = System.Text.Encoding.UTF8
    messages.IsBodyHtml = True

    Try
    client.Send(messages)
    Catch ex As Exception
    Throw ex
    End Try

    End Sub

  • 相关阅读:
    [网络流24题]飞行员配对方案问题
    学习笔记——线性基
    HDU 4507 吉哥系列故事——恨7不成妻(数位DP求平方和)
    bzoj1415&洛谷P4206 [NOI2005]聪聪与可可
    后缀自动机(模板+例题)
    最小表示法(模板)poj1059
    求次小生成树(洛谷P4180&bzoj1977)
    KMP poj3942
    最小表示法(模板) CH1807
    数位dp 求山峰数(hill)
  • 原文地址:https://www.cnblogs.com/annabook/p/3628887.html
Copyright © 2011-2022 走看看