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 FunctionEnd Class
