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

  • 相关阅读:
    wps excel表格里的数字批量加10%
    隐藏BAT运行时黑框的vbs
    家庭宽带接入的几种方法
    内存拆装方法
    网线水晶头制作
    博客园 公告处添加头像
    H3C路由器地址池租期时间H3CMSR830-6BHI-WiNet
    网维大师重装备份文件
    网维大师重建B盘方法
    m4a转mp3的方法有哪些?一个快速转换音频的方法
  • 原文地址:https://www.cnblogs.com/annabook/p/3628887.html
Copyright © 2011-2022 走看看