Question

怎样写一个发送邮件的小程序？

Answer 1

　　 Case 220 ′如果是刚刚连通，则发送helo命令，并设置标志为helo，以便识别
　　　　Tag = ″helo″
　　　　Winsock1.SendData ″helo ″ ＆ txtServer.Text ＆ vbCrLf
　　 Case 250　　 ′如果返回250（OK）
　　　　Select Case Tag　　′则判断执行命令时设置的标志，以区分刚执行了哪条命令
　　　Case ″helo″
　　　　Winsock1.SendData ″mail from:″ ＆ txtFrom.Text ＆ vbCrLf
　　　　Tag = ″mail″
　　　Case ″mail″　　′如果刚执行了MAIL命令，则执行RCPT命令
　　Winsock1.SendData ″rcpt to:″ ＆ txtTo.Text ＆ vbCrLf
　　　　　Tag = ″rcpt″
　　　Case ″rcpt″　　′如果刚执行了RCPT命令，则执行DATA命令
　　　　Winsock1.SendData ″data″ ＆ vbCrLf
　　　　　Tag = ″data″
　　　Case ″data″　　′如果刚执行了DATA命令，则执行QUIT命令
　　　　　Winsock1.SendData ″quit″ ＆ vbCrLf
　　　　　Tag = ″quit″
　　End Select
　　　Case 251
　　　　　Winsock1.SendData ″data″ ＆ vbCrLf

Answer 2

我这里有delphi编写的源代码的要的话可以联系我