请给出发邮件到163的代码和解释，谢谢

Question

我看了书，用nmsmtp，不能给163发
我下了邮件特快专递的的源码也不行，试了几个例子也不可以
请给出代码和说明，谢谢了

Answer 1

case of SMTPStatus
0:
        inc(SMTPStatus);
        if(beAUTH)
           s:='EHLO '+SMTPServer+#13#10
        else
        begin
           SMTPStatus:=SMTPStatus+3; //Jump to Fail Direct
           s:='HELO '+SMTPSERVER+#13#10;
        end;
        Socket.SendText(s);
1:
        inc(SMTPStatus);
        s:='AUTH LOGIN'+#13#10;
        Socket.SendText(s);
2:
        inc(SMTPStatus);
        s:=EncodeBase64(USERID)+#13#10;
        Socket.SendText(s);
3:
        inc(SMTPStatus);
        s:=EncodeBase64(PWD)+#13#10;
        Socket.SendText(s);4:
        inc(SMTPStatus);
        s:='MAIL FROM: <'+FROM+'>'+#13#10;
        Socket.SendText(s);
...