Customized letter

I am modifying a template to create my customized letter. The following contains the features of the template:

usepackage[italian]{babel}
usepackage[dvinames]{xcolor}
definecolor{UniME}{RGB}{30,104,163}
definecolor{UniMEgray}{RGB}{139, 140, 140}
usepackage{datetime}
newdateformat{dashdate}{%
twodigit{THEDAY} monthnametoday THEYEAR}
usepackage[top=1.8cm,left=2cm,width=17cm,height=23.5cm]{geometry}
usepackage{graphicx}
usepackage[colorlinks=false,
            pdfborder={0 0 0},
            ]{hyperref}
usepackage[absolute]{textpos}
usepackage{ifthen}
usepackage{soul}
usepackage{marvosym}

StartBabelCommands*{italian}{date}
  SetStringLoop{month#1name}{%
      Gennaio,Febbraio,Marzo,Aprile,Maggio,Giugno,%
    Luglio,Agosto,Settembre,Ottobre,Novembre,Dicembre}
 EndBabelCommands

StartBabelCommands*{english}{date}
  SetStringLoop{month#1name}{%
    January,February,March,April,May,June,%
      July,August,September,October,November,%
      December}
 EndBabelCommands

newcommand{monthnametoday}[1][languagename]{{expandafterselectlanguageexpandafter{#1}spacecsname monthromannumeralmonth nameendcsnamespace }}

usepackage{wedn}
usepackage[T1]{fontenc}

newcommand*myglobe{
includegraphics[height=1.6ex]{mondo.png}}

usepackage{tikz}
usetikzlibrary{calc}

usepackage[sc,osf]{mathpazo}
linespread{1.05}

parindent0pt
setlength{parskip}{0.8baselineskip}
raggedright
pagestyle{empty}

urlstyle{sf}

providecommandSender{Prof. XXXX}
providecommandSenderdegree{Ph.D.}
providecommandSenderdept{My Department}
providecommandSenderaddress{My address}
providecommandSenderphone{My Phone}
providecommandSenderemail{url{email}}
providecommandSenderweb{url{website}}
providecommandReceiver{Receiver}
providecommandReceiveraddress{Title
                            University XXX
                            Address 
                            Town
}


providecommanddate{today}
providecommandWSUopening{Dear Friend}
providecommandclosing{Best wishes}
providecommandsignaturefile{firma}
providecommandlogofile{UniMElogo}
providecommandenclosure{}

usepackage{fancyhdr}
pagestyle{fancy}

renewcommand{footrulewidth}{1.4pt}
renewcommand{footrule}{hbox toheadwidth{color{UniME}leadershrule height footrulewidthhfill}}
fancyfoot{}
fancyfoot[L]{%
    {footnotesizecolor{UniMEgray}sffamily
    Senderaddress[-0.1baselineskip]
    Telefon~: Senderphone textbullet Email~: Senderemail textbullet myglobe~: Senderweb
    }color{black}}
fancyhead{}
fancyhead[L]{%

    begin{textblock*}{2.2in}(2cm,1.4cm)
        includegraphics[width=1.5in]{logofile}
    end{textblock*}
    begin{textblock*}{17cm}(2cm,1.5cm)   % 6.375=8.5 - 1.5 - 0.625
        sffamily
        hfill color{UniMEgray} Sender, Senderdegree
        
         hfill Senderdept
    end{textblock*}
renewcommand{headrulewidth}{1.4pt}
renewcommand{headrule}{hbox toheadwidth{color{UniME}leadershrule height headrulewidthhfill}}

AtBeginDocument{
    
    
    $;$
    
    vspace{3cm}

    hfill  dashdatetoday
    
    bigskip

    Receiverifthenelse{equal{Receiver}{}}{}{}
    Receiveraddress    
    
    bigskip

    vspace{1cm}

    {Large wedn WSUopening,}par
    }

AtEndDocument{
    parvspace{2ex}
    {Large wednclosing,}

    ifthenelse{equal{signaturefile}{}}{bigskipbigskip}{includegraphics[width=1.2in]{signaturefile}[-0.2baselineskip]}

    Sender 
    enclosure
    } 

The next one is the example:

documentclass{article}
usepackage{lipsum} 

input{temp}

begin{document}
lipsum[2-10]
end{document}

In all the page but the first one, the text is above the logo, as you can see from the picture below:

I cannot figure out how to move down the text from the second page onward. Any hint?