邮件发送累

原创于 2004-12-29 21:22:00 发布 · 485 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #function #class

vb.net 专栏收录该内容

11 篇文章

订阅专栏

此博客展示了使用VB.NET实现邮件发送功能的代码。定义了一个名为sendmail的类，其中包含两个重载的共享函数sendmail和sendmail2，分别设置不同的发件人、服务器等信息，最终实现邮件发送并返回布尔值表示是否成功。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Imports myJmail

Public Class sendmail
    Public Overloads Shared Function sendmail(ByVal mailto As String, ByVal subject As String, ByVal body As String) As Boolean
        Dim mm As New myJmail.Message
        mm.Subject = subject
        mm.From = "nketd@163.com"
        mm.Body = body
        mm.Charset = "GB2312"
        mm.AddRecipient(mailto)
        mm.MailServerPassWord = "123456"
        mm.MailServerUserName = "nketd"
        Return mm.Send("smtp.163.com", False)
    End Function

    Public Overloads Shared Function sendmail2(ByVal mailto As String, ByVal subject As String, ByVal body As String) As Boolean
        Dim mm As New myJmail.Message
        mm.Subject = subject
        mm.From = "info@nketd.com"
        mm.Body = body
        mm.Charset = "GB2312"
        mm.AddRecipient(mailto)
        mm.MailServerPassWord = "84695545"
        mm.MailServerUserName = "info@nketd.com"
        Return mm.Send("mail.nketd.com", False)
    End Function
End Class