码迷,mamicode.com
首页 > 其他好文 > 详细

发送邮件

时间:2015-08-17 11:45:13      阅读:118      评论:0      收藏:0      [点我收藏+]

标签:

发送邮件

Public Function SendMail(ByVal iSMTPServer As String, ByVal iUser As String, ByVal iPass As String, ByVal iAddressto As String, ByVal iAddressFrom As String, ByVal iSubject As String, ByVal iBody As String, Optional ByVal iFileName As String = "") As String On Error GoTo ERR_PROC Dim plReturn As String = String.Empty Dim plAttach As System.Net.Mail.Attachment = Nothing 送信元、送信先メールアドレスの設定。 Dim vlMessage As New System.Net.Mail.MailMessage(iAddressFrom, iAddressto) If File.Exists(iFileName) Then plAttach = New System.Net.Mail.Attachment(iFileName) End If メール設定 メールの件名。 vlMessage.Subject = iSubject メールの内容。本文。 vlMessage.Body = iBody If File.Exists(iFileName) Then vlMessage.Attachments.Add(plAttach) End If SmtpClientに、サーバとポート番号を指定。 Dim vlClient As New System.Net.Mail.SmtpClient(iSMTPServer) SMTPサーバの認証IDとパスワードを設定した場合のみ、SMTP認証を行う。 If iUser <> "" And iPass <> "" Then vlClient.Credentials = New System.Net.NetworkCredential(iUser, iPass) End If メールを送信します。 vlClient.Send(vlMessage) EXIT_PROC: If plAttach IsNot Nothing Then plAttach.Dispose() plAttach = Nothing End If If vlMessage IsNot Nothing Then vlMessage.Dispose() vlMessage = Nothing End If Return plReturn Exit Function

 

发送邮件

标签:

原文地址:http://www.cnblogs.com/jiningning/p/4735877.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!