Bạn Ghi Rõ Lại Mấy Từ Viết Tắt Dùm Nhé
Bạn Đang Sử Dụng Mail tên miền là gì?
Nói chung chung như thế khó hiểu lắm bạn ơi

Tặng LK đoạn VB code dưới đây nè, dùng thử đi hén :


Const frAdd = "lukhack@theCompany.com"

Private Function ReadFileContents(FileFullPath As String) As String
On Error GoTo ErrorHandler
Dim iFileNumber As Integer
Dim sAns As String

iFileNumber = FreeFile
Open FileFullPath For Input As #iFileNumber
sAns = Input(LOF(iFileNumber), #iFileNumber)
ReadFileContents = sAns

ErrorHandler:
Close #iFileNumber
End Function

Private Sub sendEMail(sAdd As String, sSubject As String)
Dim email
Set email = CreateObject("cdo.message")
With email
.to = sAdd
.subject = sSubject
.from = frAdd
.send
End With
End Sub

Private Sub CommandButton1_Click()
Dim FileFullPath As String
FileFullPath = "C:\My Documents\FileToCheck.txt"

If Dir(FileFullPath) = "" Then
MsgBox "File not found"
Exit Sub
End If

result = ReadFileContents(FileFullPath)
If InStr(UCase(result), "ERROR") = 0 Then
Call sendEMail("theBoss@theCompany", "OK boss, I did it")
Else
Call sendEMail("theWorlker@theCompany", "You failed, I'll kill you")
End If

End Sub

Tự viết chương trình gửI mail bằng VB 6.0

Ấn phẩm: TGVT A tháng 7/2002, trang 86

Khi phát triển hoặc lập trình một ứng dụng phần mềm, có thể bạn sẽ gặp yêu cầu gửi mẫu ghi (record) hoặc tập tin (file) đến một địa chỉ e-mail nào đó. Với yêu cầu này, nhất thiết bạn phải viết một mô-đun gửi mail chạy trực tiếp trong dự án phần mềm của mình, thay vì mở đường link đến một ứng dụng mail có sẵn (MS Outlook chẳng hạn). Bài viết này chia sẻ kinh nghiệm giải quyết vấn đề gửi tin hay file đính kèm đến mail server bằng VB.
Trước hết, bạn hãy khởi động VB phiên bản 6.0. Tại hộp thoại New Project, chọn Standard EXE.
Một project mới có tên ban đầu là Project1 và form có tên Form1 sẽ được thiết lập. Với Form1, bạn gán các thông số Height – Width phù hợp với cách nhìn của mình, sau đó tạo các TextBox, Label và CommandButton vào Form1 như giao diện Hình.
Bạn cần bổ sung thêm hai ActiveX có sẵn của Microsoft là Mswinsck.ocx và ComDLG32.ocx vào Project bằng cách mở hộp thoại Component (nhấn Ctrl+T), chọn Microsoft Winsock Control 6.0 và Microsoft Common Dialog Control 6.0.
Sau khi thiết kế xong phần giao diện người dùng, bạn bắt đầu viết mã ngay trong trang viết code của Form1. Trước hết, khai báo một số biến dùng chung trong phạm vi Form1:

Option Explicit

Private Enum SMTP_State

MAIL_CONNECT

MAIL_HELO

MAIL_FROM

MAIL_RCPTTO

MAIL_DATA

MAIL_DOT

MAIL_QUIT

End Enum

Private Mail_Signal As SMTP_State

Private strFileBase64 As String



Viết mã cho biến cố Form_Load như sau:

Private Sub Form_Load()

‘Làm sạch các TextBox và ‘ListBox dành cho User

ListFile.Clear

Dim Ctl As Control

For Each Ctl In Me.Controls

If TypeOf Ctl Is TextBox Then

Ctl.Text = “”

End If

Next Ctl

lblKetQua.Caption = “”

‘Gán tên máy chủ phục vụ mail. ‘Ví dụ: smtp.hcm.vnn.vn (với ‘account thuộc Vnn tại ‘TP.HCM)hoặc: omail.hcm ‘.fpt.vn (với account thuộc FPT tại TP. ‘HCM. Trường hợp bạn dùng Exchange Mail ‘Server thì gán IP Address cía máy chủ ‘cài đặt Exchange Mail Server

txtMailserver.Text = “smtp.hcm.vnn.vn”

txtSenderName.Text = “Huynh Thanh Long”

‘Gán tên người gửi

txtSenderEmail.Text =

“Datasoft@hcm.vnn.vn”

‘Gán Email người gửi

End Sub

Viết mã cho nút Chọn …

Private Sub cmdBrowse_Click()

With CommonDialog1

.ShowOpen

If Len(.FileName) > 0 Then

ListFile.AddItem .FileName

End If

End With

End Sub


Như đã biết, để gửi một file đính kèm trong mail thông qua mail server đến địa chỉ nào đó, bạn cần mã hóa file đó thành chuỗi ký tự ASCII-7 bit. Thay vì sử dụng một ActiveX miễn phí (như Base64.dll đã được giới thiệu trong PC World tháng 6-2002 chẳng hạn) bạn có thể viết một function như sau trong trang viết code của Form1:



Private Function MaHoaFileBase64 (DiaChiFile As String) As String

Dim KySoFile As Integer

Dim ChuoiASCII As String

‘Thu nhận kết quả mã hóa Base64 từ một ‘File

Dim TenFile As String

‘Tên File được mã hóa Base64

Dim KichThuocFile As Long

‘Nhận kích thước của File được mã hóa

Dim SoCauMaHoa As Long

‘Nhận số lượng câu mã hóa của 1 File. ‘Theo đó cứ mỗi 45 byte sẽ tạo thành ‘một câu

Dim DoanDuLieu As String



‘Một chuỗi thu nhận từng đoạn dữ liệu ‘trong file tương ứng với mỗi câu mã ‘hóa (45 byte)

Dim CauMaHoa As String

Dim i As Integer

Dim j As Integer

‘Cắt lấy tên File từ chuỗi DiaChiFile

TenFile = Mid$(DiaChiFile, InStrRev (DiaChiFile, “\”) + 1)

‘Gán kiểu định dạng cho chuỗi ASCII

ChuoiASCII = “begin 664 “ + TenFile + vbLf

‘Nhận kích thước của File bằng hàm ‘FileLen()

KichThuocFile = FileLen(DiaChiFile)

SoCauMaHoa = KichThuocFile \ 45 + 1

‘Tạo một khoảng trống có thể chứa 45 ‘byte cho mỗi DoanDuLieu

DoanDuLieu = Space(45)

KySoFile = FreeFile

Open DiaChiFile For Binary As KySoFile

For i = 1 To SoCauMaHoa

‘Đọc từng câu dữ liệu 45 byte

If i = SoCauMaHoa Then

‘Thông thường, câu cuối cùng trong ‘SoCauMaHoa có thể ít hoặc nhiều hơn ‘45 byte, do vậy cần định dạng lại ‘Space() cho DoanDuLieu cuối cùng

DoanDuLieu = Space(KichThuocFile Mod 45)

End If

Get KySoFile, , DoanDuLieu

‘Gán một ký tự vào đầu mỗi Câu mã hóa để ‘chương trình giải mã (Decode)nhận ‘biết. Với một DoanDuLieu đủ 45 byte, ‘ký tự đó sẽ là “M”

CauMaHoa = Chr(Len(DoanDuLieu) + 32)

If i = SoCauMaHoa And (Len(DoanDuLieu) Mod 3) Then

‘Khi xử lý đến Câu Mã Hóa cuối cùng, có ‘thể số byte trong câu không chia hết ‘cho 3 ta cần thêm 1 hoặc 2 ký tự trắng ‘vào Đoạn Dữ Liệu

DoanDuLieu = DoanDuLieu + Space(3 - (Len(DoanDuLieu) Mod 3))

End If

For j = 1 To Len(DoanDuLieu) Step 3

‘Tại vòng lặp này, ta chia mỗi cụm 3 ‘byte (8-bit) thành 4 phần, mỗi phần 6 ‘bit và dùng hàm Asc() để chuyển từng ‘phần thành các ký tự ASCII 7 bit.

‘Với phần thứ 1

CauMaHoa = CauMaHoa + Chr(Asc(Mid (DoanDuLieu, j, 1)) \ 4 + 32)

‘Với phần thứ 2

CauMaHoa = CauMaHoa + Chr((Asc(Mid( DoanDuLieu, j, 1)) Mod 4) * 16 + Asc(Mid( DoanDuLieu, j + 1, 1)) \ 16 + 32)

‘Với phần thứ 3

CauMaHoa = CauMaHoa + Chr((Asc(Mid( DoanDuLieu, j + 1, 1)) Mod 16) * 4+ Asc(Mid(DoanDuLieu, j + 2, 1)) \ 64 + 32)

‘Với phần thứ 4

CauMaHoa = CauMaHoa + Chr(Asc(Mid( DoanDuLieu, j + 2, 1)) Mod 64 + 32)

Next j

‘Tìm kiếm và thay thế các ký tự trắng ‘thành ký tự “`” - Chr(96)

CauMaHoa = Replace(CauMaHoa, “ “, “`”)

‘Lần lượt gán Câu Mã Hóa vào Chuỗi ASCII ‘cùng với dấu ngắt dòng

ChuoiASCII = ChuoiASCII + CauMaHoa + vbLf

‘Trả lại chuỗi rỗng cho Câu Mã Hóa để ‘tiếp tục vòng lặp

CauMaHoa = “”

Next i

Close KySoFile

‘Để kết thúc một chuỗi mã hóa File ‘Base64, gán thêm một ký tự 96, ngắt ‘dòng, cuối cùng là từ “end” và ngắt dòng

ChuoiASCII = ChuoiASCII & “Ụ” & vbLf + “end” + vbLf

‘Trả về giá trị cho hàm M·H̉aFileBase64

MaHoaFileBase64 = ChuoiASCII

End Function

Tiếp tục, viết thủ tục (Sub) nhằm xử lý tín hiệu trả về từ mail server, theo đó chuyển giao dữ liệu cho mail server nếu kết nối thành công.
Private Sub SendMailData(wsk As Winsock, ByVal TenNguoiGoi As String,ByVal EmailNguoiGoi As String, ByVal EmailNguoiNhan As String, ByVal ChuDe As String, ByVal NoiDung As String, ByVal lblStatus As Label, ByVal cmdEnable As CommandButton)

Dim strServerResponse As String

‘Biến nhận tín hiệu trả lời từ mail ‘server

Dim strResponseCode As String

‘Biến nhận ký số trong chuỗi tín hiệu ‘trả lời từ Mail server

Dim strDataToSend As String

‘Biến nhận chuỗi dữ liệu gửi cho mail ‘server Nhận chuỗi tín hiệu trả lời từ ‘Mail server

wsk.GetData strServerResponse

‘Cắt lấy ký số (3 số đầu) trong chuỗi ‘tín hiệu trả lời

strResponseCode = Left(strServerResponse , 3)

‘Các biến cố sau đây sẽ được thực hiện ‘khi có các ký số gồm 220 (nhận yêu cầu ‘kết nối); 250 (chấp nhận kết nối) và ‘354 (chuyển giao dữ liệu) được trả về ‘từ Mail server

If strResponseCode = “250”

Or strResponseCode = “220”

Or strResponseCode = “354”

Then

Select Case Mail_Signal

Case MAIL_CONNECT

Mail_Signal = MAIL_HELO

strDataToSend =

Trim$(txtSenderName .Text)

‘Gửi tín hiệu HELO cho mail server

wsk.SendData “HELO “ & strDataToSend & vbCrLf

lblStatus.Caption = “Đã kết nối thành công với Mail server !”

Case MAIL_HELO

Mail_Signal = MAIL_FROM

‘Gửi lệnh MAIL FROM cho Mail server

wsk.SendData “MAIL FROM:” & Trim$( EmailNguoiGoi)& vbCrLf

lblStatus.Caption = “Đang gửi mail ... Xin chờ.”

Case MAIL_FROM

Mail_Signal = MAIL_RCPTTO

‘Gửi lệnh RCPT TO cho Mail server

wsk.SendData “RCPT TO:” & Trim$( EmailNguoiNhan) & vbCrLf

Case MAIL_RCPTTO

Mail_Signal = MAIL_DATA

‘Gởi lệnh DATA cho Mail server

wsk.SendData “DATA” & vbCrLf

Case MAIL_DATA

Mail_Signal = MAIL_DOT

‘Tại Case này, chương trình sẽ bắt đầu ‘gửi toàn văn bức thư

Dim strHeader As String

Dim Data1 As String

Dim Data2 As String

Dim Data3 As String

Dim Data4 As String

Dim CurrentDate As String

CurrentDate = Format(Date,“Ddd”) & “,“ & _

Format(Date, “dd Mmm YYYY”) & “, “ & _

Format(Time, “hh:mm:ss”) & “ -200”

Data1 = “From:” & Chr(32) & TenNguoiGoi & vbLf

Data2 = “Date:” & Chr(32) & CurrentDate & vbLf

Data3 = “To:” & Chr(32) & EmailNguoiNhan & vbLf

Data4 = “Subject:” & Chr(32) & ChuDe & vbLf

strHeader = Data1 & Data2 & Data3 & Data4 & vbLf & vbCrLf

wsk.SendData strHeader

Dim varLines As Variant

Dim varLine As Variant

Dim strMessage As String

‘Gửi chuỗi ASCII của File đính kèm (nếu ‘có)

strMessage = NoiDung & vbCrLf & vbCrLf & strFileBase64

strFileBase64 = “”

varLines = Split(strMessage, vbCrLf)

strMessage = “”

For Each varLine In varLines

wsk.SendData CStr(varLine) & vbLf

Next

‘Gửi một dấu chấm câu để báo cho mail ‘server biết rằng toàn văn bức thư đã ‘được gửi hết

wsk.SendData “.” & vbCrLf

Case MAIL_DOT

Mail_Signal = MAIL_QUIT

‘Gửi lệnh QUIT đến mail server

wsk.SendData “QUIT” & vbCrLf

Case MAIL_QUIT

wsk.Close

cmdEnable.Enabled = True

End Select

Else

‘Nếu Winsock không nhận được tín hiệu ‘chấp nhận kết nối hoặc chuyển giao dữ ‘liệu với mail server

wsk.Close

cmdEnable.Enabled = True

If Not Mail_Signal = MAIL_QUIT Then

‘Thông báo không thể gửi thư được trong ‘trường hợp biến Mail_Signal không trả ‘về giá trị MAIL_QUIT

lblStatus.Caption = “Mail chưa gửi được. Ký số lỗi: ” & strServerResponse

Else

lblStatus.Caption = “Mail đã được gửi đi thành công.”

End If

End If

End Sub

Với biến cố DataArrival của Winsock1, bạn chạy thủ tục SendMailData vừa được tạo ở trên:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

SendMailData Winsock1, txtSenderName .Text, txtSenderEmail.Text, txtTo .Text, txtSubject.Text, txtMessage .Text, lblKetQua, cmdSend

End Sub

Cuối cùng, bạn viết mã xử lý biến cố nhấn chuột khi người dùng nhấn nút Gửi đi (Send):

Private Sub cmdSend_Click()

cmdSend.Enabled = False

Dim i As Integer

‘Kiểm tra File đính kèm trong ListBox ‘và mã hóa Base64 chúng

If ListFile.ListCount > 0 Then

For i = 0 To ListFile.ListCount - 1

strFileBase64 = strFileBase64

& MaHoaFileBase64(ListFile.List(i))

& vbCrLf

Next i

End If

‘Kết nối Winsock với mail server qua ‘cổng 25

Winsock1.Connect Trim$(txtMailserver .Text), 25

Mail_Signal = MAIL_CONNECT

End Sub

Private Sub cmdClose_Click()

Unload Me

End Sub

Như đã nói ở đầu bài viết, ứng dụng này có thể giúp bạn tự gửi một mẫu ghi (record) đến một địa chỉ e-mail. Để làm được điều này, đơn giản bạn chỉ cần gán giá trị của mẫu ghi lên TextBox txtMessage hoặc một biến chuỗi (As String). Tuyệt vời hơn, hàm MaHoaFileBase64 có thể làm việc ngay cả khi file đính kèm đang mở
Các bạn có thể liên hệ với tôi qua E-mail: Datasoft@hcm.vnn.vn để được cung cấp miễn phí mã nguồn của ứng dụng trên. Chúc các bạn thành công.ÿ

Huỳnh Thanh Long
Chủ tịch HĐTV Công ty Datasoft
Datasoft@hcm.vnn.vn

LuKhach xin chào KeDangGhet, và các bạn ,
Vừa rồi trong lúc chờ đợi sự hồi âm cũa mọi người nên LuKhach có viết code cho chương trình Email và Text, nhưng bị lỗi hòai. Đây là lỗi "Mail Error! The transport failed to connect to the server". Xin được post lên đây đễ các bạn chĩ dạy thêm.

***************************************VB CODE ********************************************
Const SMTP_SERVER As String = "smtp.mailserver.com"
Const SMTP_PORT As Long = 25
Const MAIL_SUBJECT As String = "Test Message"
Const MAIL_MESSAGE As String = "This is my message"
Const MAIL_FROM As String = "Me@Yahoo.com"
Const MAIL_TO As String = "You@Yahoo.com"

Private objMessage As CDO.Message

Private Sub Command1_Click()
Call SendMail
End Sub

Private Sub SendMail()
'// local declarations
Dim intFile As Integer
Dim strFile As String
Dim strText As String
'// set file to check
strFile = App.Path & "\text.txt"
'On Error GoTo Err:
'// if file exists
If Len(Dir$(strFile)) Then
intFile = FreeFile
Open strFile For Input As #intFile
'// read text
strText = Input$(LOF(intFile), #intFile)
Close intFile
'// if text exists in file
If Trim$(strText) <> vbNullString Then
'// if error found in text
If InStr(1, strText, "error", vbTextCompare) Then
'// send mail
Call MailBasic
End If
End If
End If
Exit Sub
err:
'// error handler
MsgBox "File Error!" & vbNewLine & _
err.Description
Exit Sub
End Sub



Private Sub MailBasic()

On Error GoTo err:
Set objMessage = New CDO.Message
objMessage.Subject = MAIL_SUBJECT
objMessage.From = MAIL_FROM
objMessage.To = MAIL_TO
objMessage.TextBody = MAIL_MESSAGE

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTP_PORT
objMessage.Configuration.Fields.Update
objMessage.Send
Set objMessage = Nothing

MsgBox "Email Sent!"
Exit Sub
err:
MsgBox "Mail Error!" & vbNewLine & err.Description <----- EROR RIGHT HERE (Mail Error! The transport failed to connect to the server)
Exit Sub
End Sub

Thứ nhất, CDO.Message là của ASP, hay VBScript, không phải của VB

Thứ hai, trên error message đã có ghi rỏ : program đã không thể connect vào mail server !
Không biết LK đã lượm được code này ở đâu, nhưng những địa chỉ (mail & server) đều có vẽ không thể dùng được mà...

Hehe,
Thứ nhất, CDO.Message là của ASP, hay VBScript thì cũng là một họ hàng với VB mà
Thứ hai: Bạn Lukhach bỏ cái hander lỗi đi. Chứ bạn để cái đấy lại thì làm sao biết chính xác dòng nào.
Tạm thời bạn bỏ dòng On Error GoTo err: và dòng
err:
MsgBox "Mail Error!" & vbNewLine & err.Description
Sau đó thông báo lại lỗi ở dòng nào nhé.
KDG giận bạn rồi đó. Bạn ấy đã mất công viết code gửi cho bạn. Bạn lại không dùng đi kiếm ở đâu đấy=> bị mắng là phải.
Hehe

Chào ban KDG, VNX cùng tất cã các bạn khác ,
LK rất vui mừng khi nhận được hồi âm cũa các bạn. Lk là người vừa mới học VB thôi nên thực sự không biết nhiều về VB, nếu trong code cũa LK có gì sai suất mong các bạn cứ việc chĩ dạy.
Tuy nhiên code LK đòi hõi phãi có SMTP mailserver nên LK phãi tìm code cho phù hợp với yêu cầu. Trong code cũa KDG lại không có SMTP nên LK không biết làm sao đễ chuyễn cho phù hợp voi yêu cầu trong sỡ làm. Nhưng LK rất mong sự giúp đỡ cua KDG và VNX rất nhiều.
Xin KDG va VNX có thễ sữa đỗi code cua LK đễ LK có thễ dùng SMTP.
Một lần nữa, LK rất cãm ơn sự giúp đỡ chân tình cua KDG, VNX rất nhiều.
Rất mong sự giúp đỡ cũa các bạn,
LK

Sau đây là code đã sữa theo yêu cầu cua VNX, nhưng LK vẫn nhận error message như sau:
"Run-time Error'-2147220975(80040211)': The message could not be sent to the SMTP server. The transport error code was 0x800ccc16. The server response was not available".
LK mark màu đõ tại khu vực có error cho VNX xem, rất mong sự chĩ dạy.

Const SMTP_SERVER As String = "smtp.mailserver.com"
Const SMTP_PORT As Long = 25
Const MAIL_SUBJECT As String = "Test Message"
Const MAIL_MESSAGE As String = "This is my message"
Const MAIL_FROM As String = "Me@Yahoo.com"
Const MAIL_TO As String = "You@Yahoo.com"

Private objMessage As CDO.Message

Private Sub Command1_Click()
Call SendMail
End Sub

Private Sub SendMail()
'// local declarations
Dim intFile As Integer
Dim strFile As String
Dim strText As String
'// set file to check
strFile = App.Path & "\text.txt"
'On Error GoTo Err:
'// if file exists
If Len(Dir$(strFile)) Then
intFile = FreeFile
Open strFile For Input As #intFile
'// read text
strText = Input$(LOF(intFile), #intFile)
Close intFile
'// if text exists in file
If Trim$(strText) <> vbNullString Then
'// if error found in text
If InStr(1, strText, "error", vbTextCompare) Then
'// send mail
Call MailBasic
End If
End If
End If
Exit Sub
err:
'// error handler
MsgBox "File Error!" & vbNewLine & _
err.Description
Exit Sub
End Sub



Private Sub MailBasic()

'On Error GoTo err:
Set objMessage = New CDO.Message
objMessage.Subject = MAIL_SUBJECT
objMessage.From = MAIL_FROM
objMessage.To = MAIL_TO
objMessage.TextBody = MAIL_MESSAGE

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTP_PORT
objMessage.Configuration.Fields.Update
objMessage.Send <----Error Run-time Error'-2147220975(80040211)': The message could not be sent to the SMTP server. The transport error code was 0x800ccc16. The server response was not available
Set objMessage = Nothing

MsgBox "Email Sent!"
Exit Sub
'err:
'MsgBox "Mail Error!" & vbNewLine & err.Description Exit Sub
End Sub

Trích đoạn: vuanoixao

Hehe,
Thứ nhất, CDO.Message là của ASP, hay VBScript thì cũng là một họ hàng với VB mà

Mèn, đúng thiệt chúng là cùng dòng họ nhà Microsoft, nhưng VNX thử dùng type CDO.Message này trong VB coi nó có hiểu hông !

KDG giận bạn rồi đó. Bạn ấy đã mất công viết code gửi cho bạn. Bạn lại không dùng đi kiếm ở đâu đấy=> bị mắng là phải.
Hehe

Trùi, mắc chi KDG đi giận người ta chớ ! KDG chỉ cho LK cách dể nhất, LK lại đi tìm cái khó khăn, rồi lại thêm vào đó những địa chỉ không đâu thì khó trách nó không chịu chạy chớ sao...

Thật cãm ơn sự giup cua KDG rất nhiều. Xin KDG có thễ giúp LK sữa đỗi code đễ có thễ dùng SMTP?
Thành thật cãm ơn,
LK

Ha ha, tất nhiên là không hiểu rồi. Mình đâu có nói là chạy được đâu. Mình chỉ nói chúng là họ hàng với nhau ah. Hehe, bạn để ý mà coi. Rất nhiều câu lệnh từ VB sang ASP thì phải thay đổi lại một chút mới chạy được đó thôi. Nhưng về cơ bản thì giống nhau. Chứ không khác nhau hoàn toàn kiểu như ASP và VC hay JV.
Hehe, công nhận mình có tài cãi, đáng nhẽ phải theo ngành Luật
Xin lỗi Lukhach vì bây giờ mới đọc của bạn. Bạn lấy đâu ra cái server (smtp.mailserver.com) đấy. Bạn xem lại cài đặt mail server xem có đúng thế không (Đây là test mail server trong mạng LAN). Còn bạn dùng server ngòai thì chắc không có server này đâu.
Theo mình bạn nên dùng lại code của KDG kẻo lần sau KDG không giúp đâu.
Ah, KDG ah, tôi kiện đấy. Sao mấy câu hỏi của mình bạn không trả lời vậy ah. Chẳng câu hỏi nào trả lời cả. Híc híc, câu hỏi của người khác thì bạn còn viết code gửi cho nữa. Kiện

Trích đoạn: vuanoixao

Ha ha, tất nhiên là không hiểu rồi. Mình đâu có nói là chạy được đâu. Mình chỉ nói chúng là họ hàng với nhau ah. Hehe, bạn để ý mà coi. Rất nhiều câu lệnh từ VB sang ASP thì phải thay đổi lại một chút mới chạy được đó thôi. Nhưng về cơ bản thì giống nhau. Chứ không khác nhau hoàn toàn kiểu như ASP và VC hay JV.
Hehe, công nhận mình có tài cãi, đáng nhẽ phải theo ngành Luật

Mèn, nói chuyện huề vốn... Uh, VNX đổi nghề, đi làm thầy cãi đi (nhưng lúc đó KDG sẽ tránh, không dám mướn đâu !)

Theo mình bạn nên dùng lại code của KDG kẻo lần sau KDG không giúp đâu.

VNX nói lố rồi, LK bảo cần phải xác định SMTP server trong code, muh cách KDG đưa ra chỉ là dùng default mail của máy thôi... Đợi KDG có giờ sẽ sửa lại cho LK...

Ah, KDG ah, tôi kiện đấy. Sao mấy câu hỏi của mình bạn không trả lời vậy ah. Chẳng câu hỏi nào trả lời cả. Híc híc, câu hỏi của người khác thì bạn còn viết code gửi cho nữa. Kiện

Uh, VNX kiện đi, làm đơn đưa cho Mod phòng này, người ta sẽ xử giùm cho VNX liền á !
Nói chớ, ai biểu VNX hỏi mấy cái KDG không biết làm chi !

Hehe, KDG hiểu nhầm ý của mình rồi. Mình bảo LK dùng code của bạn là không dùng cách smtp server nữa chứ mình đâu có bảo là dùng smtp server trong code của bạn đâu.
Đã lâu lắm rồi mình có viết cách dùng mail server nhưng lại viết bằng JSP. Hồi đó còn phải sử dụng mấy cái tool của java để vượt proxy nữa. Nhưng đó là chuyện quá khứ. Ban LK cứ yên tâm ngồi đợi KDG nhé
Hehe, nghĩ lại rồi kiện cũng bằng thừa vì KDG đang ở trong mod thì ai xử

Đây là một diễn đàn của tình bạn ! Mong các bạn vui vẻ và hoà nhã với nhau.

Đây là một diễn đàn của tình bạn ! Mong các bạn vui vẻ và hoà nhã với nhau.

TÔN chỉ cuả VNTQ là hòa nhã. Các bạn muốn bình đẳng cứ kiện. Mọi người bình đằng trước sự hoà nhã. Kiện đi Vua, rồi Ta Đây sẽ xét sử công minh nghĩa là Hòa Nhã.

Nói nhỏ: Có bạn nói mình viết sai chánh tả (chính thì dùng với chính trị...) mà không nêu ra sai tiếng naò chữ nào. Còn riêng trong mục Hỉ Nộ... thì Bản Nữ Hoàng Xạo có giọng nói cuả mình ngự trị >< như địa phương xa xôi Hốc...Hóc.

Lúc rày phẻ không Dua. Có uống dụ uống dừa dưà thôi đề Bản Nữ Hoàng còn kịp bảo cung nữ mang "Sữa Honda" cho Dua.

Đọc một lần chưa hiểu đọc tiếp, chớ biểu không hiểu nhiều lần thì còn đâu hoà hứng d6ẻ kẻ tiện tỳ nầy noí tiếp.


Tuy nhiên về vi tính, có hỏi mà cũng vẫn chưa rõ câu trả lời để thực hành cho có kết quả.

Chúc vui với Email vì mình đang bận tâm với nội dung email không thể nào đánh được.

Hic hic, viết kiểu này đọc hiểu xong cận thêm mấy độ.
Còn về thư không viết được thì haha, trời vẫn còn hại kẻ ác mà. HY đã thử dùng trình duyệt web khác chưa mà kêu là chưa rõ câu trả lời để thực hành. Mình nhớ là đã nhắc bạn dùng thử trình duyệt web khác rồi mà.
Cũng nói nhỏ nghe, nghe đâu tại không có phần thưởng để chỉ ra nói sai ở chỗ nào. Mà người chỉ ra thì chẳng muốn làm không công bao giờ. Ủa có Nữ Hoàng Xạo ah. Hic hic, thấy nick của người ta hay nhảy vào kìa. Phản đối, phản đối. Một nước chỉ có một người trị vì thôi. Tuy nhiên Nữ Hoàng Xạo có thể dùng nick Hoàng Hậu Xạo thì được.
Vua có bao giờ yếu đâu.