มีปัญหาเรื่องการส่งเมล์ จาก VB.NET 2008
ตอนนี้ผมมีปัญหาเกี่ยวกับการส่ง email โดยผมเขียนใน VB.net 2008 แต่ไม่ทราบว่ามันติดอะไรก็ไม่รู้ วอนผู้รู้ช่วยดูโค๊ดให้ทีครับ เพื่อเป็นวิทยาทานให้กับคนต่อ ๆ ไปครับสามวันติดแล้วครับฝากหน่อยนะครับ โค๊ดตามด้านล่างนี้นะครับ
Imports System.Net Imports System.Net.Mail Imports System.Net.Mail.MailMessage
Public Class TestSendMail
Private Sub btnsendmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Call SendEmail1() End Sub
Private Sub sendMail_SendCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Dim userToken As Object = e.UserState 'This is how you know which send has completed, you pass some identifier in usertoken
If e.Cancelled Then 'Operation was cancelled Debug.WriteLine("Email cancelled.") End If
If e.Error IsNot Nothing Then 'An error occured MsgBox("Error: " & e.Error.ToString()) ส่งค่า Error ออก message box
Else 'No error occured Debug.WriteLine("Email sent!") End If
End Sub
Private Sub SendEmail1() Dim SendMessage As New Net.Mail.SmtpClient Dim userToken As New Object Dim EmailMessage As New MailMessage
With EmailMessage .From = New MailAddress("ชื่อเมล์") .To.Add("ชื่อเมล์") .Subject = "Hello World" .Body = "Hello World" End With
AddHandler SendMessage.SendCompleted, AddressOf sendMail_SendCompleted
With SendMessage .Host = "smtp@gmail.com" 'Port = 465 'Port use by gmail to send mail .UseDefaultCredentials = False '.Credentials = New Net.NetworkCredential("username", "password") 'ชื่อ account กับ password ผ่านเข้า email (Email user นี้ทำการผูกติดกับ Active Directory Server)
.EnableSsl = False End With
SendMessage.SendAsync(EmailMessage, userToken)
End Sub
End Class
|