Sorry I didn't make it clear that I was trying to send from inside SAS University Edition under VMWare. The code below runs but the email never show up. How do I connect to an email server outside of SAS?
thanks, Howard
data mails ;
length mail_id $50. ;
mail_id = "howard@mayers.org" ;
output ;
mail_id = "hr@dba.ws" ;
output ;
mail_id = "howard@get90team.com" ;
output ;
stop ;
run ;
proc sort ; by mail_id ; run ;
proc print ; run ;
%macro send_email ;
filename hm_mail email lrecl=32000 type='text/html' ;
data _null_ ;
set mails END=EOF ;
by mail_id ;
file hm_mail ;
retain numofusers 0 ;
if first.mail_id then do ;
numofusers=numofusers+1 ;
If mod(numofusers,300) = 0 then Timer=Sleep(120,1) ;
put '!EM_TO!' mail_id ;
put '!EM_SUBJECT!' 'Test Plans have been created.' ;
put 'The following test plans have been created with you as a tester.' ;
put '<br>' ;
end ;
id_link = '<a href="' ||left(strip(id)) || '">' || left(strip(id)) || '</a>' ;
put '<br>' ;
put id_link ;
put '<br>' ;
if last.mail_id then do ;
put '<br>' ;
put 'This is a system-generated message. Do not reply to this e-mail.' ;
put '!EM_SEND!' ;
put '!EM_NEWMSG!' ;
end ;
if EOF then put '!EM_ABORT!' ;
run ;
%mend send_email ;
%send_email ;