\documentclass[italian]{book}

\usepackage[
    inner=1.2cm, outer=0.6cm, top=0.8cm, bottom=0.6cm,
    paperwidth=10.5cm, paperheight=14.8cm
    ]{geometry}

\pagestyle{empty}

\usepackage{fontspec}
\setmainfont{Essays1743}

\usepackage{forloop}

\renewcommand{\arraystretch}{1.8}

\newcommand{\linefield}[2]{
    \vspace{1.3\baselineskip}
    \noindent\raisebox{-\baselineskip}{\shortstack[l]{
        \underline{\hspace{\textwidth}}\\
        \footnotesize{#1 \hfill #2} 
    }}
}

\newcommand{\emptyline}{
    \vspace{1.3\baselineskip}
    \noindent\raisebox{-\baselineskip}{\shortstack[l]{
        \underline{\hspace{\textwidth}}\\
        \hspace{6 cm}
    }}
}
   % \linefield{\hspace{6 cm}{}}}

\newcommand{\letter}[1]{
    \newpage
    \noindent \footnotesize{\textbf{\##1}} 

    \linefield{date}{}

    \linefield{sender}{recipient}

    \linefield{in reply to}{replied}

    \linefield{ink}{}

    \linefield{paper}{}

    \linefield{pen}{}

    \linefield{topics}{notes}

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline
}

\newcommand{\correspondent}[1]{
    \newpage
    \noindent \footnotesize{\textbf{\##1}} 

    \linefield{name}{}

    \linefield{letters sent}{}

    \linefield{letters received}{}

    \linefield{address}{}

    \linefield{}{}

    \linefield{}{}

    \linefield{notes}{}

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline
}

\newcommand{\notes}{
    \newpage
    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

    \emptyline

}

\begin{document}

\begin{center}
    \hspace{0 cm}
    \vfill
    \noindent {\huge
        Book of\\
        \vspace{1 cm}
        Correspondence\\
        \vspace{1 cm}
        Volume\\
        \vspace{1 cm}
        Years\\
        \vspace{2 cm}
    }
    \vfill
    \hspace{0pt}
\end{center}

\newpage\null

\newcounter{x}
\forloop{x}{1}{\value{x} < 89}{
    \letter{\arabic{x}}
}

\newcounter{y}
\forloop{y}{1}{\value{y} < 33}{
    \correspondent{\arabic{y}}
}

\notes
\notes
\notes
\notes
\notes
\notes


\end{document}
