Email Based On Results Of A Query

Lonely Lion answered on February 23, 2023 Popularity 1/10 Helpfulness 1/10

answer Email Based On Results Of A Query

Email Based On Results Of A Query

Comment

/*Creates a list of employees that created POs with exceptions*/
 
proc sql;
    create table Exceptions_Employee_Email as
        select distinct Created_By_Employee_Email
            from Plant_Transfer_Exceptions
    ;
quit;
 
/*Assigns the list of employee emails to a macro variable*/
  
proc sql noprint;
    select Created_By_Employee_Email
        into: Exceptions_Employee_Email SEPARATED by ' , '
            from Exceptions_Employee_Email
                where Created_By_Employee_Email not is missing
    ;
quit;
 
%put &Exceptions_Employee_Email;
 
/*Creates a list of managers with employees that created POs with exceptions*/
 
proc sql;
    create table Exceptions_Manager_Email as
        select distinct Created_By_Manager_Email
            from Plant_Transfer_Exceptions
    ;
quit;
 
/*Assigns the list of manager emails to a macro variable*/
  
proc sql noprint;
    select Created_By_Manager_Email
        into: Exceptions_Manager_Email SEPARATED by ' , '
            from Exceptions_Manager_Email
                where Created_By_Manager_Email not is missing
    ;
quit;
 
%put &Exceptions_Manager_Email;
 
/*Creates a list of shipping plants with exceptions*/
 
proc sql;
    create table Exceptions_Shipping_Plant_Email as
        select distinct Shipping_Plant_Email
            from Plant_Transfer_Exceptions
    ;
quit;
 
/*Assigns the list of shipping plant emails to a macro variable*/
  
proc sql noprint;
    select Shipping_Plant_Email
        into: Exceptions_Shipping_Plant_Email SEPARATED by ' , '
            from Exceptions_Shipping_Plant_Email
                where Shipping_Plant_Email not is missing
    ;
quit;
 
%put &Exceptions_Shipping_Plant_Email;
 
/*Sends an email with the exceptions attached.*/
 
Option missing="0";
%LET date = %sysfunc(date( ),MMDDYYS8.);
%let Today = &SYSDate9;
ods _all_ close;
filename outmail email type='text'
    subject= "Planning Plant Transfer Exceptions"
    from= 'Ryan-Curry@idexx.com'
    replyto= 'Ryan-Curry@idexx.com'
    to= 'Ryan-Curry@idexx.com'
    to= (&Exceptions_Employee_Email)
    cc= (&Exceptions_Manager_Email &Exceptions_Shipping_Plant_Email)
    bcc= 'Ryan-Curry@idexx.com'
    attach= ("/shares/groups/Lean Six Sigma Analytics/Programs/Planning Plant Transfer Exceptions/Archive/Planning Plant Transfer Exceptions &pdate1..xlsx" content_type= 'application/xlsx')
;
  
data _null_;
    file outmail;
    put 'Please see the attached report of plant transfer exceptions. This report shows plant transfers that have differences between Purchase Order (expected) and delivery (actual) information that should be followed up on.';
run;

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: wiki.idexx.com

Tags: email whatever

Link to this answer
Share Copy Link

Contributed on Feb 23 2023

Lonely Lion

0 Answers Avg Quality 2/10

Email Based On Results Of A Query

Contents

More Related Answers

Email Based On Results Of A Query

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.