相信没多少人听说过REBOL,不过确实感觉是一种不错的语言,使用中有一点不大合意就是发邮件,大多服务器都对SMTP要求验证,这个功能它却没有,所以自己弄了一个,以纯TCP的方式发邮件。成功了!
REBOL [Title:"ESMTP"]
s: open/lines tcp://SMTP服务器地址:25
print first s
insert s "HELO 你的邮箱"
print first s
insert s "AUTH LOGIN"
print first s
insert s enbase "用户名"
print first s
insert s enbase "密码"
print first s
insert s "MAIL FROM:<发件人邮箱>"
print first s
insert s "RCPT TO:<收件人邮箱>"
print first s
insert s "DATA"
insert s "subject: 测试"
insert s read %m.eml;(邮件文件)
insert s "."
print first s
insert s "QUIT"
print first s
close s
halt
REBOL [Title:"ESMTP"]
s: open/lines tcp://SMTP服务器地址:25
print first s
insert s "HELO 你的邮箱"
print first s
insert s "AUTH LOGIN"
print first s
insert s enbase "用户名"
print first s
insert s enbase "密码"
print first s
insert s "MAIL FROM:<发件人邮箱>"
print first s
insert s "RCPT TO:<收件人邮箱>"
print first s
insert s "DATA"
insert s "subject: 测试"
insert s read %m.eml;(邮件文件)
insert s "."
print first s
insert s "QUIT"
print first s
close s
halt