◀ Previous Next ▶ Up ▲


witpoko.com


รบกวนแปลง vb.net เป็น vb 6 ให้หน่อยค่ะ เดือนร้อนมากๆ ช่วยทีค่ะ

แปลงให้ทีค่ะ จะ ทำรายละเอียดให้ลูกค้าสอบถามทั่วไปค่ะ
เดือนร้อนมากเลยคะ รบกวนด้วยนะคะ

โค้ต :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim msg As String = ""
Try
Dim strAddress As String = "[email protected]"
Dim sm As New System.Net.Mail.SmtpClient("smtp.gmail.com", 541)
sm.EnableSsl = True
sm.Credentials = New System.Net.NetworkCredential("Email", "password-email") 'เมลคุณ
Dim fom As System.Net.Mail.MailAddress = New System.Net.Mail.MailAddress(strAddress)
Dim _to As System.Net.Mail.MailAddress = New System.Net.Mail.MailAddress(strAddress)
Dim mMsg As New System.Net.Mail.MailMessage(fom, _to)
mMsg.Subject = "สวัสดีจ้า ลองส่งเมล์"
mMsg.IsBodyHtml = True
If TextBox1.Text <> "" Then
mMsg.Body = TextBox1.Text
Else
Dim ms As String
While ms = ""
ms = InputBox("ข้อความที่จะส่ง")
End While
mMsg.Body = ms
End If
'sm.Timeout=4000
sm.Send(mMsg)
msg = "แบบสอบถามได้ส่งเรียบร้อยแล้วค่ะ!"
Catch ex As Exception
msg = ex.Message
End Try
TextBox1.Text = msg
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox1.Text = "กรุณากรอกรายละเอียด และเบอร์ติดต่อกลับค่ะ"
End Sub
End Class
End Class


จากคุณ : ฟ้า -[ 1 ส.ค. 52 - 23:04:02 A:192.168.0.17 X:124.122.73.28 ]






กระทู้ยอดนิยม