VB.Net发送G-Mail模块演示
时间:2014-07-17 17:36 来源: 我爱IT技术网 作者:山风
以GMail发送邮件的模块写法：
代码写法：
- Imports System.Net
- Module GMail
- ''' <summary>
- ''' 透过SMTP协定发送G-Mail邮件。
- ''' </summary>
- ''' <param name="Account">用来发送邮件的帐号</param>
- ''' <param name="Password">用来发送帐号的密码</param>
- ''' <param name="Sender">寄件者，Ex： Inndy＜Inndy.mail@gmail.com＞</param>
- ''' <param name="Recipients">寄件者，Ex： Inndy＜Inndy.mail@gmail.com＞</param>
- ''' <param name="Title">邮件标题</param>
- ''' <param name="Body">邮件内容</param>
- ''' <remarks></remarks>
- Public Sub SendGMail(ByVal Account As String, ByVal Password As String, ByVal Sender As String, ByVal Recipients As String, ByVal Title As String, ByVal Body As String)
- Dim MySmtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
- MySmtp.Credentials = New System.Net.NetworkCredential(Account, Password)
- MySmtp.EnableSsl = True
- MySmtp.Send(Sender, Recipients, Title, Body)
- End Sub
- End Module
讲以上代码存成模型使用，Gmail帐号请记得设定SMTP方式发信。
使用范例：
SendGMail("123.mail@gmail.com", "Password", "HAHAHA", "1234567635@kimo.com", "测试邮件标题", "邮件内容")
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-