使用system.web.mail.SMTPmail发送邮件，处理smtp验证问题

最新推荐文章于 2020-02-26 10:51:36 发布

zero000

最新推荐文章于 2020-02-26 10:51:36 发布

阅读量4.2k

点赞数

分类专栏： VB.Net学习笔记文章标签： string authentication email module class exception

本文链接：https://blog.csdn.net/zero000/article/details/96842

版权

VB.Net学习笔记专栏收录该内容

22 篇文章 0 订阅

订阅专栏

无法对smtpserver进行设置，要对mailmessage进行设置。

http://systemwebmail.com/faq/3.8.aspx

Private Sub Page_Load(sender As Object, e As System.EventArgs)
   Dim mail As New MailMessage()
   mail.To = "me@mycompany.com"
   mail.From = "you@yourcompany.com"
   mail.Subject = "this is a test email."
   mail.Body = "Some text goes here"
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "my_username_here") 'set your username here
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "super_secret") 'set your password here
   SmtpMail.SmtpServer = "mail.mycompany.com" 'your real server goes here
   SmtpMail.Send(mail)
End Sub 'Page_Load

我的代码：

Imports System
Imports System.Web.mail

Namespace SendMail

    Public Class usage
        Public Sub DisplayUsage()
            ' Display usage instructions in case of error.
            Console.WriteLine("Usage SendMail.exe <to> <from> <subject> <body>")
            Console.WriteLine("<to> the addresses of the email recipients")
            Console.WriteLine("<from> your email address")
            Console.WriteLine("<subject> subject of your email")
            Console.WriteLine("<body> the text of the email")
            Console.WriteLine("Example:")
            Console.WriteLine("SendMail.exe SomeOne@contoso.com;SomeOther@contoso.com Me@contoso.com Hi hello")
        End Sub
    End Class

    Public Class Start
        ' The main entry point for the application.
        Public Shared Sub Main(ByVal sTo As String, ByVal sFrom As String, ByVal sSub As String, ByVal sBody As String)
            Try
                Try
                    Dim Message As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
                    Message.To = sTo
                    Message.From = sFrom
                    Message.Subject = sSub
                    Message.Body = sBody

                    Message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
                    Message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "jetz")
                    Message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "***")

                    Try
                        SmtpMail.SmtpServer = "smtp.263.net"
                        SmtpMail.Send(Message)
                    Catch ehttp As System.Web.HttpException
                        Console.WriteLine("0", ehttp.Message)
                        Console.WriteLine("Here is the full error message")
                        Console.Write("0", ehttp.ToString())
                    End Try
                Catch e As IndexOutOfRangeException
                    ' Display usage instructions if error in arguments.
                    Dim use As usage = New usage
                    use.DisplayUsage()
                End Try
            Catch e As System.Exception
                ' Display text of unknown error.
                Console.WriteLine("Unknown Exception occurred 0", e.Message)
                Console.WriteLine("Here is the Full Error Message")
                Console.WriteLine("0", e.ToString())
            End Try
        End Sub
    End Class

End Namespace
Module Module1
    Sub Main()
        'Dim k As New SendMail.usage
        'k.DisplayUsage()
        Dim m As New SendMail.Start
        m.Main("jetzwmx@126.com", "jetz@263.net", "hi", "hello")
        Console.ReadLine()
    End Sub
End Module

zero000

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
使用system.web.mail.SMTPmail发送邮件，处理smtp验证问题

无法对smtpserver进行设置，要对mailmessage进行设置。http://systemwebmail.com/faq/3.8.aspxPrivate Sub Page_Load(sender As Object, e As System.EventArgs) Dim mail As New MailMessage() mail.To = "[email protected]
复制链接

扫一扫