\setuppapersize[A4,A4]
\enableregime[utf]
\mainlanguage[de]
\setupcolors[state=start]

\usemodule[cor-01] % will change

%\setupletteroptions
% [bodyfont=calluna]
\setupletter
  [phone=0123/456789,
   email=Max.Muster@mail.me,
   room=414,
   date=\currentdate]

\setupletterstyle
  [phone,email,room,date]
  [separator=: ,
   titlecolor=blue,
   textcolor=red,
   width=4cm]

\setupletterstyle
  [room]
  [titlestyle=bold,
   textstyle=italic]

\setupletterlayer
  [reference]
  [list={phone,email,room,date}] 

\setupletter
[fromname={John Simmons},
fromaddress={Parkstreet 12\\8257 Green Bay}]

\setupletter
[toname={Steve Wilson},
toaddress={Nightstreet 4a\\9183 Cotton Village}]

\setuplettertext
[copy=cc: ,
enclosure=encl: ]

\setupletter
[copy=Copy,
enclosure=Enclosure,
postscript=Postscript]
\starttext
%\letterelement[layer][reference][a]
\setupletterlayer[reference][list=reference]

\startletter
[opening={Dear Mr Wilson,},
subject={Brand new templates for Word},
closing={Best regards},
signature={John Simmons}]

\dorecurse{4}{\input knuth\par}

\stopletter 
\stoptext
