TextEngine.Initialize(Root)
Form.TextEngine=TextEngine
Form.Text= _
$"[img FileName=header.png width=380/]"$ & $"[TextSize=10] Il Sottoscritto "$ & currentuser & $" in servizio presso codesto Istituto, richiede "$ & str.Left(data.Get("gg"),str.At(data.Get("gg"),".")) & $" GG di "$ & data.get("tipo_gg") & Ascol & $" Dal: "$ & DateTime.Date(data.Get("data_start")) & $" Al: "$ & DateTime.Date(data.Get("data_end")) & mot & $"[Vertical=150][img dir="${File.DirInternal}" FileName="signature.png" width=150/][/Vertical]"$
Dim imgmodulo As Bitmap
imgmodulo.Initialize3(Form.mBase.Snapshot)
Dim PDFWriter1 As PDFWriter
Dim PaperSize As PDFPaperSizes
PDFWriter1.Initialize("PDFWriter1",PaperSize.A4_WIDTH, PaperSize.A4_HEIGHT)
PDFWriter1.addImage(10,10,imgmodulo)
PDFWriter1.outputToFile(File.Dirinternal,"richiesta.pdf","","ISO-8859-1")
Dim smtp As SMTP
smtp.Initialize("smtp.gmail.com",587,"email","password","smtp")
smtp.StartTLSMode=True
smtp.To.Add("email")
smtp.Subject="Richiesta da " & currentuser
smtp.Body="In allegato la Richiesta"
smtp.AddAttachment(File.DirInternal,"richiesta.pdf")
smtp.Send