มาดูขั้นตอนการทำเลยนะครับ สำหรับคนที่เขียนโปรแกรมไม่เป็นหรือขี้เกียจเขียน ผมก็มีตัวโปรแกรมให้ดาวน์โหลดที่นี่ครับ ดาวน์โหลด
สำหรับการเขียนโปรแกรมในครั้งนี้เราใช้ภาษา vb.net เหมือนเดิมนะครับ เมื่อเปิดโปรแกรมแล้ว ก็ทำการสร้างหน้า Form อย่างในรูปเลยนะครับ.....
แล้วก็ทำการก๊อปโค๊ตข้างล่างนี้ไปไส่ในหน้า vb นะครับ.....
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked Then
If TextBox3.Text = "" Then
MsgBox("Name, Subject and Comment are required fields", vbCritical, "Error")
Else
Try
Dim Mail As New MailMessage
Mail.From = New MailAddress(TextBox5.Text)
Mail.To.Add(TextBox5.Text)
Mail.Subject = TextBox2.Text
Mail.Body = TextBox3.Text
Dim smtp As New SmtpClient("smtp.live.com")
smtp.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(txtemail1.Text, txtPass.Text)
smtp.Send(Mail)
MsgBox("ทำการส่ง E-Mail เรียบร้อย", vbInformation, "ขอบคุณ")
txtemail1.Text = ""
txtPass.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Catch ex As Exception
MsgBox("ข้อมูลผิดพลาด กรุณาตรวจสอบข้อมูลอีกครั้ง", MsgBoxStyle.Critical + MsgBoxStyle.ApplicationModal, "การทำงานผิดพลาด")
End Try
End If
Else
If TextBox3.Text = "" Then
MsgBox("Name, Subject and Comment are required fields", vbCritical, "Error")
Else
Try
Dim Mail As New MailMessage
Mail.From = New MailAddress(TextBox5.Text)
Mail.To.Add(TextBox5.Text)
Mail.Subject = TextBox2.Text
Mail.Body = TextBox3.Text
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(txtemail1.Text, txtPass.Text)
smtp.Send(Mail)
MsgBox("ทำการส่ง E-Mail เรียบร้อย", vbInformation, "ขอบคุณ")
txtemail1.Text = ""
txtPass.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Catch ex As Exception
MsgBox("ข้อมูลผิดพลาด กรุณาตรวจสอบข้อมูลอีกครั้ง", MsgBoxStyle.Critical + MsgBoxStyle.ApplicationModal, "การทำงานผิดพลาด")
End Try
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class
แค่นี้เองครับสำหรับโค๊ตการส่ง E-Mail ......
สำหรับคนที่โหลดโปรแกรมที่ผมทำไว้นั้น..มาดูวิธีการติดตั้งกันครับ.....
ดาวน์โหลด
วิธีการติดตั้งก็จะเหมือนโปรแกรมทั่วๆไปนะครับ Next ครับ
หน้านี้ก็เป็นการประกาศเกี่ยวกับโปรแกรมครับ Next....เหอะๆ..มีเบอร์โทรเราด้วย....อิอิ..กำ...
ยอมรับข้อตกลงของโปรแกรมครับ เลือก I agree แล้ว Next ครับ
เลือกที่ลงโปรแกรมแล้วคลิก Next ครับ
เริ่มขั้นตอนการลงโปรแกรมคลิก Start ครับ
คลิก Next ครับ
เสร็จสิ้นการลงโปรแกรมครับ คลิก Next
รูป icon โปรแกรมครับ
หน้าตาโปรแกรมครับ
เป็นไงครับ ไม่ยากเลยใช่ไหนครับกับการเขียนโปรแกรมส่ง E-Mail และเรายังสามารถนำไปต่อยอดทำเป็นโปรแกรมตอบรับลูกค้าในเว็ปได้อีกด้วยนะครับ สำหรับวันนี้ผมก็ขอจบบทความเพียงเท่านี้ สำหรับท่านที่มีข้อสงสัย สามารถโพสถามได้ในหน้านี้นะครับ แล้วเจอกันในบทความหน้าในเรื่องของโปรแกรมส่ง SMS อิอิ โปรดติดตามตอนต่อไป..สำหรับวันนี้..สวัสดีครัาบบ
ข้อขั้นตอนการใส่ข้อมูลเวลา รัน ด้วยได้ไหมคับ
ตอบลบผมลองงง รันแล้ววว มันติด ช่วยบอกชื่อของ เครื่องมือต่างด้วยได้ไหมคับ
ตอบลบได้แล้วววว คับบบ ขอบคุนนน มากๆๆ เลยนะคับบบบบบบบบบ
ตอบลบขอบคุนนจิงงง
ขอโทษนะครับเนื่องจากผมไม่ค่อยได้มีเวลาเข้ามาดูบล๊อก มีปัณหาอะไรติดตรงไหนสอบถามได้ครับผม...
ตอบลบความคิดเห็นนี้ถูกผู้เขียนลบ
ตอบลบอยากได้โค้ด ส่ง sms อ่ะคับ
ตอบลบพี่ครับ .. ผมขอโปรเจคเลยได้ไหมครับ .. โค๊ด VB ผมเอามาใส่ไม่เป็นอะครับ ++
ตอบลบที่ว่าใส่ไม่เป็น ติดตรงใหนครับ
ตอบลบผมมีแนวการส่งอีเมลคล้ายๆกันครับเชิญเยี่ยมชมได้ที่ http://projectsvbnet.blogspot.com/
ตอบลบพี่ยังอยูไหมครับ
ตอบลบทำตามตัวอย่าง ดังนี้
ตอบลบDim Mail As New MailMessage
Mail.From = New MailAddress(CStr(TextBox1.Text & DropDownList1.SelectedItem.Text))
Mail.To.Add(TextBox3.Text)
Mail.Subject = TextBox4.Text
Mail.Body = TextBox5.Text
If DropDownList1.Text = "0" Then
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.Port = 465
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text & DropDownList1.SelectedItem.Text, TextBox2.Text)
smtp.Send(Mail)
Else
Dim smtp As New SmtpClient("smtp.live.com")
smtp.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text & DropDownList1.SelectedItem.Text, TextBox2.Text)
smtp.Send(Mail)
End If
MsgBox("ส่งเมล์เรียบร้อยแล้ว", CType(MsgBoxStyle.Critical & MsgBoxStyle.ApplicationModal, MsgBoxStyle), "ส่งเมล์")
แต่พอ run แล้วมัน error ค่ะ
ถ้าส่งด้วย hotmail จะ error ว่า:
Mailbox unavailable. The server response was: 5.7.3 Requested action aborted; user not authenticatedonse was: 5.7.3
Requested action aborted; user not authenticated
ถ้าส่งด้วย gmail จะขึ้น error ว่า:
Failure sending mail
ไม่เข้าใจว่าทำผิดตรงไหน อ่ะค่ะ
ทำตามตัวอย่าง ดังนี้
ตอบลบDim Mail As New MailMessage
Mail.From = New MailAddress(CStr(TextBox1.Text & DropDownList1.SelectedItem.Text))
Mail.To.Add(TextBox3.Text)
Mail.Subject = TextBox4.Text
Mail.Body = TextBox5.Text
If DropDownList1.Text = "0" Then
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.Port = 465
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text & DropDownList1.SelectedItem.Text, TextBox2.Text)
smtp.Send(Mail)
Else
Dim smtp As New SmtpClient("smtp.live.com")
smtp.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text & DropDownList1.SelectedItem.Text, TextBox2.Text)
smtp.Send(Mail)
End If
MsgBox("ส่งเมล์เรียบร้อยแล้ว", CType(MsgBoxStyle.Critical & MsgBoxStyle.ApplicationModal, MsgBoxStyle), "ส่งเมล์")
แต่พอ run แล้วมัน error ค่ะ
ถ้าส่งด้วย hotmail จะ error ว่า:
Mailbox unavailable. The server response was: 5.7.3 Requested action aborted; user not authenticatedonse was: 5.7.3
Requested action aborted; user not authenticated
ถ้าส่งด้วย gmail จะขึ้น error ว่า:
Failure sending mail
ไม่เข้าใจว่าทำผิดตรงไหน อ่ะค่ะ
ไม่ต้องมี user/password ของคนส่งเหรอ งึ้ก็ส่งกันเละเลยซิครับ
ตอบลบไม่ต้องมี user/password ของคนส่งเหรอ งึ้ก็ส่งกันเละเลยซิครับ
ตอบลบ