SAS-爬取帖子下的邮箱，给他们发一封邮件（续1）...

import smtplib  
from email.mime.text import MIMEText
from email.utils import formataddr
my_sender='352055644@qq.com' 
my_user='xiaocgn@163.com'
def mail():
   ret=True
   try:
       msg=MIMEText('填写邮件内容','plain','utf-8')
       msg['From']=formataddr(["发件人邮箱昵称",my_sender])   
       msg['To']=formataddr(["收件人邮箱昵称",my_user])  
       msg['Subject']="主题"
       server=smtplib.SMTP_SSL("smtp.qq.com",465)  
       server.login(my_sender,"此处填写授权码")    
       server.sendmail(my_sender,[my_user,],msg.as_string())  
       server.quit()   
   except Exception:   
       ret=False
   return ret
ret=mail()
if ret:
   print("ok")
else:
   print("filed")

options emailsys=smtp;
options emailauthprotocol=PLAIN;
options emailhost="smtp.sina.com";/*SMTP,中间填写对应厂商*/
options emailport=25;/*端口*/
options emailackwait=30;
options emailid="xiaocgn@sina.com";/*发件箱*/
options emailpw="邮箱的密码";

filename temp email to = ( "xiaocgn@sohu.com" ) cc = ("cashes@126.com" ) 
subject="填写邮件主题"  type="text/html"    attach=("D:\日常练习\sas_gteml\new\doc\二维码.jpg");

data temp1;
length name url $200.;
input name $ ;
input url $ ;
cards;
SAS各版本安装包及下载资源
http://pan.baidu.com/s/1kV5mU6F
SAS安装教程
http://mp.weixin.qq.com/s/_8SkZfL_mDaWfJMsSRBP5Q
SAS最新SID及更新方法
http://mp.weixin.qq.com/s/582kFr9x9GtTpUjtjqkwpg
SAS基础相关书籍
https://pan.baidu.com/s/1eUaWTBs
SAS统计类书籍及视频及考证资料题库
https://pan.baidu.com/s/1raduvKw
;
run;

proc template;
define style style_tb1;
parent = styles.rtf;
replace table from output / 
frame = void
rules = all
cellspacing = 0pt
cellpadding = 0pt;
end;
run;

ods html body=temp  style =style_tb1;
title ;
ods html text = "Hi,您好！";
ods html text = "首先请允许我做一个简单的自我介绍，我是微信公众号：SAS程序分享号号号（公众号的微信号：xiaocgn）的小编，
同时值此新春佳节之际，我在这里给您拜年了！";
ods html text = "诚邀各位前辈关注小编的公众号，为了推广，小编已经无所不用其极了，如有打扰，真诚的在此给您道歉~
同时，作为一个SAS编程的晚辈，也欢迎各位前辈关注、指点以及交流...";
ods html text = "在这里，我为您准备了很多迟到的SAS资源....";
proc report data=temp1 nowd headline headskip
style(report)={just=left asis=on }
style(header)={just=left asis=on }
style (column) = {background =   #E0FFFF CELLHEIGHT = 2.5% font_face = "Times New Roman" font_size = 7pt just=left};
columns ("资料列表" name url) ;
define name /display ' ' ;
define url / display ' ' ;
run;
ods html text = "Br";
ods html text = "xiaocgn";
ods _all_ close;

%macro sas_send(mail=);
filename temp email to = (" &mail.")  subject="....."  type="text/html"    attach=("D:\日常练习\sas_gteml\new\doc\二维码.jpg");
ods html body=temp  style =style_tb1;
title ;
ods html text = "Hi,您好！";
ods html text = "首先请允许我做一个简单的自我介绍，我是微信公众号：SAS程序分享号号号（公众号的微信号：xiaocgn）的小编，同时值此新春佳节之际，我在这里给您拜年了！";
ods html text = "诚邀各位前辈关注小编的公众号，为了推广，小编已经无所不用其极了，如有打扰，真诚的在此给您道歉~
同时，作为一个SAS编程的晚辈，也欢迎各位前辈关注、指点以及交流...";
ods html text = "在这里，我为您准备了很多迟到的SAS资源....";
proc report data=temp1 nowd headline headskip
style(report)={just=left asis=on }
style(header)={just=left asis=on }
style (column) = {background =   #E0FFFF CELLHEIGHT = 2.5% font_face = "Times New Roman" font_size = 7pt just=left};
;
columns ("资料列表" name url) ;
define name /display ' ' ;
define url / display ' ' ;
run;
ods html text = "Br";
ods html text = "xiaocgn";
ods _all_ close;
%mend;

data _null_;
 set eml_ds;
 call execute('%sas_send(mail='||strip(final)||strip(')'));
run;