ich verfüge über mehrere E-Mail-Adressen. Gerne möchte ich die drei am häufigsten benutzten in meiner Briefvorlage einbinden. Hat jemand damit Erfahrungen? Danke im voraus
\documentclass[parskip=half,version=last,automark,paper=a4, fontsize=12pt, DIV=calc, twoside=false, open=any, cleardoublepage=plain, cleardoublepage=empty]{scrbook}
\usepackage%%
[enlargefirstpage=on,%% Erste Seite anders
%pagenumber=headright,%% Seitenzahl oben mittig
% Was kommt in den Briefkopf und in die Anschrift
fromalign=right,%% Plazierung des Briefkopfs
fromphone=on,%% Telefonnummer im Absender
fromrule=aftername,%% Linie im Absender (aftername, afteraddress)
fromfax=on,%% Faxnummer
fromemail=on,%% Emailadresse
fromurl=on,%% Homepage
fromlogo=on,%% Firmenlogo
addrfield=on,%% Adressfeld fuer Fensterkuverts
backaddress=on,%% und Absender im Fenster
subject=beforeopening,%% Platzierung der Betreffzeile
locfield=narrow,%% zusaetzliches Feld fuer Absender
foldmarks=on,%% Faltmarken setzen
numericaldate=on,%% Datum numerisch ausgeben
refline=narrow,%% Geschaeftszeile im Satzspiegel
firstfoot=on,%% Footerbereich
]{scrletter}
\KOMAoptions{%
fromalign=right,
fromrule=afteraddress,
addrfield=true,
backaddress=true,
pagenumber=botright,
foldmarks=true,
fromphone=true,
fromemail=true,
fromfax=true
}
\setlength{\footheight}{43.00003pt}
\addtoplength[1]{firstfootvpos}{2.0 cm}
\addtolength{\textheight}{3.0cm}
\usepackage{polyglossia}
\setdefaultlanguage{ngerman}
\setotherlanguages{greek, english}
\usepackage{lua-widow-control}
\usepackage[%
style=philosophy-classic,
annotation=true,
hyperref,
backref]{biblatex}
\DefineBibliographyStrings{ngerman}{andothers={et\ al\adddot}}
\renewcommand{\finalnamedelim}[0]{ \amper{} }
\AtBeginBibliography{%
\renewcommand{\finalnamedelim}{ \amper{} }}
\renewcommand{\finalnamedelim}[0]{ \amper{} }
\addbibresource{Fachliteratur.bib}
\setlength{\bibitemsep}{0.5em} % Abstand zwischen den Literaturangaben
\setlength{\bibhang}{1.5em} % Einzug nach jeweils erster Zeile
\usepackage{url}
\urlstyle{same}
\usepackage{marvosym}
\usepackage{mdwlist}
\setkomavar{firsthead}
{\raggedleft
{\usekomafont{fromname}\strut\ignorespaces\usekomavar{fromname}} \\
{\usekomafont{fromaddress}\strut\ignorespaces\usekomavar{fromaddress}} \\
{\usekomafont{fromrule}\rule{\textwidth}{\useplength{fromrulethickness}}}}
\makeatletter
\setplength{fromrulewidth}{\useplength{firstheadwidth}}
\setplength{fromrulethickness}{2pt}
\makeatother
\setkomavar{nexthead}{\hspace*{-\oddsidemargin}\hspace{-1in}%
\hspace{\useplength{toaddrhpos}}%
\makebox[\textwidth][l]{%
\parbox{\useplength{firstheadwidth}}{%
{\usekomafont{pagenumber}\pagename~\thepage}
\hspace*{\fill}%
\small\usekomavar{subject}}}
}
\usepackage{addliga}
\usepackage{fontspec}
\usepackage{metalogo}
\usepackage{amsmath}
\usepackage{amssymb}
\usepackage{amsfonts}
\usepackage{trace}
\usepackage{amsthm}
\usepackage{unicode-math}
\setmainfont[Numbers={OldStyle,Proportional}, Ligatures={TeX, Common}
]{Libertinus Serif}
\setmonofont[Scale=0.85]{Libertinus Mono}
\setsansfont{Libertinus Sans}
\setmathfont{Libertinus Math}
\usepackage{microtype}
\usepackage[normalem]{ulem}
\setkomafont{disposition}{\rmfamily} % Benutzt eine Schrift für alle Gliederungsebenen
\addtokomafont{chapter}{\Large\scshape\color{burgundy}}
\addtokomafont{section}{\large\scshape\color{burgundy}}
\addtokomafont{subsection}{\normalsize\scshape\color{burgundy}}
\addtokomafont{subsubsection}{\normalsize\scshape\color{burgundy}}
\addtokomafont{captionlabel}{\itshape}
\addtokomafont{fromrule}{\color{burgundy}}
\renewcaptionname{ngerman}\enclname{Anlage}
\newenvironment{Quotation}
{\quotation\quotefont\small}
{\endquotation}
\newfontfamily\quotefont{Libertinus Sans}
\AtBeginEnvironment{quote}{\quotefont\small}
\usepackage[dvipsnames,svgnames,x11names]{xcolor}
\definecolor{burgundy}{rgb}{0.596078,0,0}
\setkomafont{refvalue}{\rmfamily\small}
\setkomafont{refname}{\rmfamily\small}
\setkomafont{backaddress}{\rmfamily}
\newkomavar[\Mobilefone]{mobilphone}
\usepackage[autostyle, german=guillemets]{csquotes}
\usepackage{scrhack} % Schaltet Warnung der KOMA-Kalssen aus
\newcommand{\amper}{{\fontspec[Scale=.95]{Adobe Caslon Pro}\selectfont\itshape\&}}
\usepackage[mode = match,locale=DE]{siunitx}
\sisetup{
group-digits = all, %% Zifferngruppierung an/aus
group-separator=\, , %% Zeichen für Zifferngruppierung
group-minimum-digits=4, %% Ziffern ab # Ziffern gruppieren
mode = match %, %% Benutze gleiche Schriftarten wie im Text
}
\DeclareSIUnit \dl{\deci\litre}
\DeclareSIUnit \fl{\femto\litre}
\DeclareSIUnit{\EUR}{\text{\euro}}
\DeclareSIUnit\nanogram{\nano\gram}
\DeclareSIUnit{\DM}{DM}
\DeclareSIUnit\cent{Cent}
\usepackage{eurosym}
\listfiles
\usepackage[l2tabu, orthodox, abort]{nag}
\usepackage{listings}
\usepackage{calc}
\usepackage{nicefrac}% weitere Alternative mit mehreren Zeichen
\usepackage{xfrac}% weitere Alternative mit mehreren Zeichen
\def\kfrac#1#2{\leavevmode\kern.1em
\raise.5ex\hbox{$\scriptstyle #1$}\kern-.1em
/\kern-.15em\lower.25ex\hbox{$\scriptstyle #2$}}
\usepackage{chngcntr}
\usepackage{geometry}
\geometry{%
paperwidth=210mm,
paperheight=297mm,
head=27.2pt,
top=25mm,
height=240mm,
heightrounded,% letzteres ist sehr zu empfehlen
left=25mm,
right=20mm,
}
\newcommand\textstyleStrongEmphasis[1]{\textbf{#1}} % Fette Auszeichnung
\newcommand\textstyleEmphasis[1]{\textit{#1}}
\usepackage{graphicx}
%\usepackage{ellipsis}
%\usepackage{etoolbox}
\usepackage{enumitem}
\setlist{noitemsep}
\renewcommand{\labelenumi}{\arabic{enumi}.}
\renewcommand{\labelenumii}{\arabic{enumi}.\alph {enumii}.}
\renewcommand{\labelenumiii}{\arabic{enumi}.\arabi c{enumii}.\arabic{enumiii}}
\robustify\textellipsis
\renewcommand*{\letterpagestyle}{letter}
\newcommand{\RM}[1]{\MakeUppercase{\romannumeral #1{}}} % Römische Ziffern
\usepackage{bookmark}
\usepackage{pdfpages}
\usepackage{uhrzeit}
\usepackage{genealogytree}
\colorlet{gtrsymbol}{blue}
\usepackage{graphicx}
\usepackage{ellipsis}
\usepackage{etoolbox}
\usepackage{enumitem}
\setlist{noitemsep}
\renewcommand{\labelenumi}{\arabic{enumi}.}
\renewcommand{\labelenumii}{\arabic{enumi}.\alph {enumii}.}
\renewcommand{\labelenumiii}{\arabic{enumi}.\arabi c{enumii}.\arabic{enumiii}}
\robustify\textellipsis
\renewcommand*{\letterpagestyle}{letter}
\renewcommand{\RM}[1]{\MakeUppercase{\romannumeral #1{}}} % Römische Ziffern
\usepackage{bookmark}
\usepackage{pdfpages}
\usepackage{uhrzeit}
\usepackage{genealogytree}
\colorlet{gtrsymbol}{blue}
\usepackage{microtype}
\usepackage[normalem]{ulem}
\RedeclareSectionCommand[beforeskip=5pt,afterskip=5pt,afterindent=false]{chapter}
\RedeclareSectionCommand[
beforeskip=-1\baselineskip,
afterskip=.5\baselineskip]{section}
\RedeclareSectionCommand[
beforeskip=-.75\baselineskip,
afterskip=.5\baselineskip]{subsection}
\RedeclareSectionCommand[
beforeskip=-.5\baselineskip,
afterskip=.25\baselineskip]{subsubsection}
\RedeclareSectionCommand[
beforeskip=.5\baselineskip,
afterskip=-1em]{paragraph}
\RedeclareSectionCommand[
beforeskip=-.5\baselineskip,
afterskip=-1em]{subparagraph}
\newcommand{\myBrokenEmail}[2]{\begin{tabular}[t]{@{}l@{}}#1\\#2\end{tabular}\vspace{8pt}}
\usepackage{genealogytree}
\usepackage{hyperref}
\hypersetup{%
unicode,
colorlinks=true,
linktocpage=true,
pdfstartpage=1,
pdfstartview=FitV,%
breaklinks=true,
pdfpagemode=UseNone,
pageanchor=true,
pdfpagemode=UseOutlines,%
plainpages=false,
bookmarksnumbered,
bookmarksopen=true,
bookmarksopenlevel=1,%
hypertexnames=true,
pdfhighlight=/O,
linkcolor=blau, % maroon
citecolor=burgundy, % webbrown
urlcolor=blau,% webbrown
pdfsubject={}}
\usepackage[all]{hypcap} % für Fehler bei Hyperref und FloatObjekten
\begin{document}
\newkomavar[]{fromemailA}
\newkomavar[]{fromemailB}
\newkomavar[]{fromemailC}
\setkomavar{fromname}{Martin Feck}
\setkomavar{fromaddress}{Klein Pretzier 3a \\ 29559 Wrestedt}
\setkomavar{mobilphone}[\Mobilefone~]{0555\,20033050}
\setkomavar{fromphone}[\Telefon~]{05825~8\,99\,99\,15}
\setkomavar{fromemailA}[\Email~]{martinfeck@web.de}
\setkomavar{fromemailB}[\Email~]{martinfeck@t-online.de}
\setkomavar{fromemailC}[\Email~]{martin.feck@web.de-mail.de}
\setkomavar{fromfax}[\Fax~]{+4932221852537}
\setkomavar{mobilphone}{0555\,20033050}
\setkomafont{fromaddress}{\small\rmfamily\mdseries\slshape\color{burgundy}}
\setkomafont{fromname}{\large\rmfamily\mdseries\slshape\color{burgundy}}
\setkomavar{backaddressseparator}{ - }
\setkomavar{signature}{Martin Feck}
\renewcommand*{\raggedsignature}{\raggedright}
\renewcaptionname{ngerman}{\myrefname}{Mein Zeichen}
\renewcaptionname{ngerman}{\customername}{Bearbeiter}
\renewcommand{\enclname}{Anlagen}
\setkomavar{enclseparator}{: }
\setkomavar{fromemailA}{martinfeck@web.de}
\setkomavar{fromemailB}{martinfeck@t-online.de}
\setkomavar{fromemailC}{martin.feck@web.de-mail.de}
\setkomavar{nextfoot}{\parbox{\linewidth}{\usekomavar{firstfoot}}}
\setkomavar{firstfoot}{\footnotesize%
\rule[3pt]{\textwidth}{.4pt} \\
\begin{tabular}[t]{l@{}}%
\usekomavar[\Email~]{fromemailA} \\
\usekomavar[\Email~]{fromemailB} \\
\usekomavar[\Email~]{fromemailC} \\
\end{tabular}%
\hfill
\begin{tabular}[t]{l@{}}%
\usekomavar[\Telefon~]{fromphone} \\
\usekomavar[\Mobilefone~]{mobilphone} \\
\usekomavar[\Faxmachine]{fromfax}\\
\end{tabular}%
\Ifkomavarempty{frombank}{}{%
\hfill
\begin{tabular}[t]{l@{}}%
\usekomavar{frombank}
\end{tabular}%
}%
}%
\setkomavar{frombank}{IBAN: DE87\,2585\,0110\,0230\,5555\,12 \\
BIC: NOLADE21UEL\\
Sparkasse Uelzen Lüchow-Dannenberg}
\setkomavar{yourmail}{}
\setkomavar{yourref}{}
\setkomavar{myref}{}
\setkomavar{invoice}{}
%%\setkomavar{phoneseparator}{}
\setkomavar{customer}{}
\addtokomafont{lettersubject}{\color{burgundy}}
\setkomavar{specialmail}{\textstyleStrongEmphasis{\textcolor{burgundy}{Einschreiben mit Rückschein}}}
\makeatletter
\setplength{specialmailindent}{0pt}
\makeatother
\setkomavar{date}{23.08.2023}
\setkomavar{place}{Wrestedt}
\begin{letter}
{DB Fernverkehr AG \\
Kundendialog \\
Postfach 10 06 13 \\
96058 Bamberg}
\setkomavar{subject}{Unerwünschte automatische Abo-Verlängerung}
\opening{Sehr geehrte Damen und Herren,}
der Kundendienstberater sagte mir gestern (22.08.2023) am Telefon, ich solle ihm bitte die E-Mail mit der Kündigungsbestätigung zusenden. Leider habe ich keine erhalten, sodass ich seinen Wunsch nicht erfüllen konnte. Netterweise hat er dann das Abo für mich gekündigt, er beteuerte, dass ich eine Kündigungsbestätigung innerhalb einiger Minuten bekäme. Das ist jetzt mehr als SECHS Stunden her! Keine Kündigungsbestätigung eingetroffen.
\closing{Mit freundlichen Grüßen,}
\enlargethispage{4\baselineskip}
\end{letter}
\end{document}
So läuft es fehlerfrei. Mögen die Nerds über meine stümperhafte Codierung hinweg sehen.
