letter-classic.cls

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% BOF letter-classic.cls

\NeedsTeXFormat{LaTeX2e}
\ProvidesClass{letter-classic}[2003/03/04 v1.1]

\RequirePackage{ifthen}
\newboolean{@german}\setboolean{@german}{false}
\DeclareOption{german}{\setboolean{@german}{true}}

\DeclareOption*{\PassOptionsToClass{\CurrentOption}{letter}}
\ProcessOptions
\LoadClass[a4paper]{letter}

\newcommand{\letterenglish}{
  \newcommand{\emailname}{email}
  \newcommand{\phonename}{phone}
  \newcommand{\faxname}{fax}
  \newcommand{\mobilename}{mobile}
  \newcommand{\subjectname}{\textsl{subject:}}}
\newcommand{\lettergerman}{
  \newcommand{\emailname}{E-Mail}
  \newcommand{\phonename}{Telefon}
  \newcommand{\faxname}{Telefax}
  \newcommand{\mobilename}{Handy}
  \newcommand{\subjectname}{}}
\ifthenelse{\boolean{@german}}
  {\RequirePackage{german}\lettergerman}{\letterenglish}

\setlength{\hoffset}{-1in}       \setlength{\voffset}{-1in}
\setlength{\textwidth}{160mm}    \setlength{\textheight}{252mm}
\setlength{\topmargin}{5mm}
\setlength{\oddsidemargin}{25mm} \setlength{\evensidemargin}{25mm}
\setlength{\headheight}{15mm}    \setlength{\headsep}{5mm}
\setlength{\marginparwidth}{20mm}

\newdimen\leftfield  \setlength{\leftfield}{100mm}
\newdimen\rightfield \setlength{\rightfield}{50mm}

\let\name\@undefined      \let\fromname\@undefined
\let\address\@undefined   \let\fromaddress\@undefined
\let\location\@undefined  \let\fromlocation\@undefined
\let\telephone\@undefined \let\telephonenum\@undefined
\let\signature\@undefined
\let\@texttop=\relax

\newcommand{\@subject}{}
\newcommand{\subject}[1]{\renewcommand{\@subject}{#1}}
\newcommand{\@fromname}{}
\newcommand{\fromname}[1]{\renewcommand{\@fromname}{#1}}
\newcommand{\@fromstreet}{}
\newcommand{\fromstreet}[1]{\renewcommand{\@fromstreet}{#1}}
\newcommand{\@fromtown}{}
\newcommand{\fromtown}[1]{\renewcommand{\@fromtown}{#1}}
\newcommand{\@fromemail}{}
\newcommand{\fromemail}[1]{\renewcommand{\@fromemail}{#1}}
\newcommand{\@fromphone}{}
\newcommand{\fromphone}[1]{\renewcommand{\@fromphone}{#1}}
\newcommand{\@fromfax}{}
\newcommand{\fromfax}[1]{\renewcommand{\@fromfax}{#1}}
\newcommand{\@frommobile}{}
\newcommand{\frommobile}[1]{\renewcommand{\@frommobile}{#1}}
\newcommand{\@fromtownshort}{}
\newcommand{\fromtownshort}[1]{\renewcommand{\@fromtownshort}{#1}}
\newcommand{\@fromsignature}{}
\newcommand{\fromsignature}[1]{\renewcommand{\@fromsignature}{#1}}

\fromname{}
\fromstreet{}
\fromtown{}
\fromemail{}
\fromphone{}
\fromfax{}
\frommobile{}
\fromtownshort{}
\fromsignature{}

\DeclareFixedFont{\bsf}{OT1}{cmss}{m}{n}{17.28}
\DeclareFixedFont{\nsf}{OT1}{cmss}{m}{n}{10}
\DeclareFixedFont{\ssf}{OT1}{cmss}{m}{n}{7}

\def\ps@firstpage{
  \setlength{\headheight}{40mm} \setlength{\headsep}{0mm}
  \def\@oddhead{\usebox{\letterhead}\\[-6mm]}
  \def\@oddfoot{}
  \def\@evenhead{}
  \def\@evenfoot{}}

\def\ps@headings{
  \def\@oddhead{\parbox{\textwidth}{
    \nsf \@fromname \hfill \@date \hfill \pagename\ \thepage\\[-8pt]
    \rule{\textwidth}{.4pt}}}
  \let\@evenhead=\oddhead
  \def\@oddfoot{} \let\@evenfoot=\oddfoot}
\ps@headings

\renewcommand{\opening}[1]{
  \newsavebox{\letterhead}
  \sbox{\letterhead}{\parbox[b]{\textwidth}{
    \parbox[b][10mm][t]{\textwidth}{}\\
    \parbox[b]{\leftfield}{\bsf\@fromname}\hfill
    \parbox[b]{\rightfield}{}\\[-6pt]
    \rule{\textwidth}{.4pt}\\[6pt]
    \parbox[b]{\leftfield}{}\hfill
    \parbox[b]{\rightfield}{\nsf
      \begin{tabbing}
        \@fromstreet\\
        \@fromtown\\
    \hspace{12mm}\=\kill
    \ifthenelse{\equal{\@fromemail}{}}{\kill}{\emailname\>\@fromemail\\}
    \ifthenelse{\equal{\@fromphone}{}}{\kill}{\phonename\>\@fromphone\\}
    \ifthenelse{\equal{\@fromfax}{}}{\kill}{\faxname\>\@fromfax\\}
    \ifthenelse{\equal{\@frommobile}{}}{\kill}{\mobilename\>\@frommobile\\}
      \end{tabbing}\hfill}}}

  \thispagestyle{firstpage}
  {\reversemarginpar\marginpar{\vspace{51mm}\rule{5mm}{.4pt}}}
  \parbox[b][40mm][t]{80mm}{
    \ssf\@fromname, \@fromstreet, \@fromtown\\[-9pt]
    \rule{80mm}{.4pt}\vspace{3mm}
    \nsf\toname\\
    \toaddress}\\
  \parbox[b][20mm][t]{\leftfield}{}\hfill
  \parbox[b][20mm][t]{\rightfield}{
    \nsf\ifthenelse{\equal{\@fromtownshort}{}}{}{\@fromtownshort,\ } \@date}\\
  \ifthenelse{\equal{\@subject}{}}{}{\subjectname\
  {\bfseries \@subject}\vspace{2\parskip}\\} #1\par\nobreak
  \enlargethispage{-25mm}}

\renewcommand{\closing}[1]{
  \par\nobreak\vspace{\parskip}
  \ignorespaces #1\\[8\medskipamount]
  \ifthenelse{\equal{\@fromsignature}{}}{\@fromname}{\@fromsignature}
  \strut\par\vspace{\parskip}}

% EOF letter-classic.cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%