Send Email Attachment

[John]

Hey John,

I’m a little confused here.So please correct my understanding.

You want to send an attachment of a CSV for a Cost Centre to the email address identified in the Email attribute for that specific Cost Centre.

Is that correct?

Thanks

John

[John Fredy]

Hi, yes you are correct. I can do this now, but manually, I mean, using a parameter pCostCenter, I enter the codes, one by one, but I am sure there is a way to do it automatically, just run the process and send all emails at once. Thanks for your reply.

[Andrew]

Hi John,

You could do this automatically. I guess it depends a bit on the way your code is currently written. From what I have read above you have a process that has a pCostCentre parameter and you run the process enter the Cost Centre and it creates the file and emails it. You then run it again for the next cost centre etc etc.

What you could do here is have a Subset of the Cost Centres you need to process and use that as your Data Source. This process would then call your existing process passing the Cost Centre to the parameter so it is all automated.

So on your Datasource tab you would have the subset defined for example

“Instance:Cost Centre->CCList” (CCList is the subset)

You would have 1 Variable such as vCC and this would be Type=String and Contents=Other

Prolog does not have anything

Metadata Tab would have code such as

IF (ELLEV( ‘Cost Centre’, vCC ) = 0);
ExecuteProcess( ‘eMail Cost Centre’, ‘pCostCentre’, vCC );
ENDIF;

If this does not make sense I would be happy to have a quick chat (via zoom or teams??) to discuss it further.

Cheers

Andrew

[John Fredy]

Andrew, thank you so much. You are right, I will check, The problem is where I put my code into, I Guess, there are code into prolog and I need to move it into data tab to achieve the automation.

[Andrew]

John,

You could do it just on the Prolog Tab by using a loop, but you would still call the existing process.

Something like this

DimName = ‘Cost Centre’;
nCCs = DIMSIZ( DimName);
nCount = 1;
WHILE(nCount <= nCCs);
sCC = DIMNM( DimName, nCount);
IF( ELLEV( DimName, sCC) = 0;
ExecuteProcess ( ‘eMail CC Process’, ‘pCC’, sCC );
ENDIF;
nCount = nCount + 1;
END;