%
% test of conduit email
%
 "These are some great choices!" !Mail.PrvText

 _Fup.DestUrl &"/" xact& &"/" !Msg.Varea
 
 empty ofxact !Msg.Area
 empty !Msg.P001
 empty !Msg.P002
 empty !Msg.P003
 empty !Msg.P004

  0 !Msg.P

 _Xact
 empty oftack
"Pdir" log)(
 exch !Xact
 empty
 {
  "Image_" prevtext ?
"Ptest" log)(

  dup fileroot 3 right dup !Msg.Idx
  <
  |001
  |002
  |003
  |004
  >
  {
   "Msg.P" &_Msg.Idx _ none)?
   {
    reading "*****x" right$ "x*****" left$
"Pidx" log)(
    "Msg.P" &_Msg.Idx ! 
   } if
   +:Msg.P
  }
  {
  } ifelse
  _Msg.P 4 eq ?
 } loop
 filing)

 "Stylish wearables for the winter"
 !Msg.SubjLine

 _Fup.DestUrl &"/xact" &_Msg.P004 &"/"
 &"Yp.jpg"
 !Mail.Banner

%%% empty
 "url('" https & &_Arching.Domain &"/images/EmailB1.png')" 
 !Mail.BackA

 _Msg.Varea &"Db.jpg"
 !Mail.Comp

 _Fup.DestUrl &"/xact" &_Msg.P003 &"/"
 &"Yp.jpg"
 !Mail.Product

 _Fup.DestUrl &"/xact" &_Msg.P002 &"/"
 &"Yp.jpg"
 !Mail.ProdA

 _Fup.DestUrl &"/xact" &_Msg.P001 &"/"
 &"Yp.jpg"
 !Mail.ProdB
/*
 _Msg.Varea &"Yp.jpg"
 !Mail.ProdC
 _Msg.Varea &"Yp.jpg"
 !Mail.ProdD
 _Msg.Varea &"Yp.jpg"
 !Mail.ProdE
*/

 "EmaTem" &_Customer.Mailer html ofsrc
 dup exists
 {
 }
 {
  pop
  "EmaTem1.html" ofsrc 
 } ifelse
 
 read

 "___PvwText___" _Mail.PrvText replall
 "___Xact___" _Xact replall
 "___Tack___" _Tack replall
%
% featured product display
%
 "___Banner___" _Mail.Banner replall
 "___BackA___" _Mail.BackA replall
%
% Composite display
%
 "___Comp___" _Mail.Comp replall
%
% second featured product
%
 "___Product___" _Mail.Product replall
%
% additional products
%
 "___ProdA___" _Mail.ProdA replall
 "___ProdB___" _Mail.ProdB replall

/*
 "___ProdC___" _Mail.ProdC replall
 "___ProdD___" _Mail.ProdD replall
 "___ProdE___" _Mail.ProdE replall
*/

 _Msg.SubjLine

 _Msg.email
%
% stack: msg-body email subjline
%