send "helo " && mmyname

　　 case sfhelo

　　 sflag = sffrom

　　 send "mail from:" && getreal(mfrom)

　　 case sffrom

　　 if left(s, 3) 〈〉 "250" then goto srverr

　　 //如果成功发送接收邮件地址

　　 sflag = sfrcpt

　　 send "rcpt to:" && getreal(mto)

　　 case sfrcpt

　　 if left(s, 3) 〈〉 "250" then goto srverr

　　 //如果成功开始发送数据

　　 sflag = sfdata

　　 send "data"

　　 case sfdata

　　 if left(s, 3) 〈〉 "354" then goto srverr

　　 sflag = sfsendover //数据包括4项，最后以 . 结束

　　 send "from: " && mfrom

　　 send "to: " && mto

　　 send "subject: " && msubject && vbcrlf

　　 send mtext

　　 send "."

　　 case sfsendover

　　 if left(s, 3) 〈〉 "250" then goto srverr

　　 sflag = sfstart

　　 sendok = true

　　 send "quit"

　　 end select

　　 exit sub

　　 end sub