วันอังคารที่ 19 กรกฎาคม พ.ศ. 2554

โปรแกรมส่ง E-Mail !!! ( vb.net ) O_o !

     สวัสดีครับทุกท่าน  วันนี้ผมมีบทความเกี่ยวกับโปรแกรมมาฝาก  มันคือ...โปรแกรมส่ง E-Mail  ครับ  ณ  เวลานี้คงไม่มีใครที่ไม่รู้จัก E-mail นะครับ  เพราะ E-Mail นั้นได้เข้ามามีบทบาทในชีวิตประจำวันของเรามากมาย  เช่น ส่งงานอาจาย์, ส่งงานที่ทำงาน, ระบบสมัครสมาชิก ฯลฯ  และอีกอย่างที่ทำให้ E-Mail ได้รับความนิยมเป็นอย่างมากคือ  ฟรี ครับ  และสามารถส่งให้ใครก็ได้ที่ไหนก็ได้ไม่จำกัด.....ผมก็เป็นหนึ่งในนั้นที่ใช้งาน E-Mail ค่อนข้างบ่อย  ส่งที่ผมนั้นรำคาญมากที่สุดคือ  การ Login  เข้าหน้าเว็ป ครับ  คือ  บางครั้งก็เข้า  บางครั้งก็ไม่เข้า  บางครั้งก็รอนานมาก.....  ผมจึงได้คิดพัฒนาโปรแกรมนี้ขึ้นมา  เพื่อตัดปัญหาที่กล่าวมาในข้างต้นนั้นนะครับ  ซึ่งผมก็ได้อาศัยความรู้พื้นฐานที่ได้เรียนมากับ อ.เกษม กมลชัยพิสิฐ( สามารถติดตามดูบล็อกของท่านได้ที่ http://kasem-mesak.blogspot.com/  ) และความรู้ในอิิินเตอร์เน็ต  มาพัฒนาต่อยอดขึ้นมา  จึงเป็นโปรแกรมส่ง E-Mail ที่จะทำต่อไปนี้ครับ
     มาดูขั้นตอนการทำเลยนะครับ  สำหรับคนที่เขียนโปรแกรมไม่เป็นหรือขี้เกียจเขียน  ผมก็มีตัวโปรแกรมให้ดาวน์โหลดที่นี่ครับ  ดาวน์โหลด  


    สำหรับการเขียนโปรแกรมในครั้งนี้เราใช้ภาษา  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  อิอิ  โปรดติดตามตอนต่อไป..สำหรับวันนี้..สวัสดีครัาบบ  













14 ความคิดเห็น:

  1. ข้อขั้นตอนการใส่ข้อมูลเวลา รัน ด้วยได้ไหมคับ

    ตอบลบ
  2. ผมลองงง รันแล้ววว มันติด ช่วยบอกชื่อของ เครื่องมือต่างด้วยได้ไหมคับ

    ตอบลบ
  3. ได้แล้วววว คับบบ ขอบคุนนน มากๆๆ เลยนะคับบบบบบบบบบ

    ขอบคุนนจิงงง

    ตอบลบ
  4. ขอโทษนะครับเนื่องจากผมไม่ค่อยได้มีเวลาเข้ามาดูบล๊อก มีปัณหาอะไรติดตรงไหนสอบถามได้ครับผม...

    ตอบลบ
  5. ความคิดเห็นนี้ถูกผู้เขียนลบ

    ตอบลบ
  6. อยากได้โค้ด ส่ง sms อ่ะคับ

    ตอบลบ
  7. พี่ครับ .. ผมขอโปรเจคเลยได้ไหมครับ .. โค๊ด VB ผมเอามาใส่ไม่เป็นอะครับ ++

    ตอบลบ
  8. ที่ว่าใส่ไม่เป็น ติดตรงใหนครับ

    ตอบลบ
  9. ผมมีแนวการส่งอีเมลคล้ายๆกันครับเชิญเยี่ยมชมได้ที่ http://projectsvbnet.blogspot.com/

    ตอบลบ
  10. ไม่ระบุชื่อ25 มกราคม 2559 เวลา 19:48

    พี่ยังอยูไหมครับ

    ตอบลบ
  11. ทำตามตัวอย่าง ดังนี้
    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

    ไม่เข้าใจว่าทำผิดตรงไหน อ่ะค่ะ

    ตอบลบ
  12. ทำตามตัวอย่าง ดังนี้
    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

    ไม่เข้าใจว่าทำผิดตรงไหน อ่ะค่ะ

    ตอบลบ
  13. ไม่ต้องมี user/password ของคนส่งเหรอ งึ้ก็ส่งกันเละเลยซิครับ

    ตอบลบ
  14. ไม่ต้องมี user/password ของคนส่งเหรอ งึ้ก็ส่งกันเละเลยซิครับ

    ตอบลบ