|
|
|
ขอวิธี ทำไห้โปรแกรม ที่เราทำขึ้น ไปเปิดที่เครื่องอื่นได้หน่อยครับ ลง Net Framework ก็ยังเปิดไม่ได้อะครับ มีรูปได้ดูครับ |
|
|
|
|
|
|
|
คุณไม่ได้อ่าน Error เหรอครับ มันบอกว่าคุณไม่ได้ผ่านการ Authen ตัว SMTP ก่อนทำการส่งอีเมล์ครับ
|
|
|
|
|
Date :
2012-06-01 14:39:19 |
By :
mr.win |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Code (VB.NET)
Sub Page_Load(sender As Object, e As EventArgs)
Dim myMail As New MailMessage()
myMail.To = "[email protected]"
myMail.From = "[email protected]"
myMail.Subject = "My Subject"
myMail.BodyFormat = MailFormat.Text
myMail.Body = "My Body & Description"
Dim strSMTP,cdoSendUsingPort,cdoBasic,UserName,Password As String
strSMTP = "localhost"
cdoSendUsingPort = 2
cdoBasic = 1
UserName = "weerachai"
Password = "password"
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", strSMTP)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", cdoSendUsingPort)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", cdoBasic)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", UserName)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Password)
SmtpMail.SmtpServer = strSMTP
SmtpMail.Send(myMail)
myMail = Nothing
Me.lblText.Text = "Mail Sending."
End Sub
|
|
|
|
|
Date :
2012-06-01 14:45:03 |
By :
mr.win |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
แล้วจะส่งไปที่ไหนหรอครับ
|
|
|
|
|
Date :
2012-06-01 14:57:09 |
By :
AuNz1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
โปรแกรมคุณมีการเรียกส่งอีเมล์หรือเปล่าครับ
|
|
|
|
|
Date :
2012-06-01 15:41:08 |
By :
mr.win |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ส่งครับ
|
|
|
|
|
Date :
2012-06-01 15:55:32 |
By :
AuNz1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 05
|