Po aktualizacji Handlu do wersji 2021, rozwalił się raport do wysyłania faktur mailem. Niby coś tworzy, ale nie otwiera się okno Thunderbirda z załączonym plikiem faktury.
Poniżej mój raport.

#define olMailItem 0
#define TemporaryFolder 2

dispatch wshShell = "WScript.Shell"
string sTemp = wshShell.ExpandEnvironmentStrings( "%TEMP%" )
string sProgramFiles = wshShell.ExpandEnvironmentStrings( "%ProgramFiles%" )
string sRunApp = sProgramFiles + "\\Common Files\\Symfonia\\PDF\\RunApp.exe"

long iPos = SetTaggedPos( FS )

baseDK dk : dk.Open()
baseKH kh : kh.Open()

dk.GetRecById( GetLineId(iPos) )
kh.GetRecById( dk.GetField("khid") )

string sPDF, sPDFtmp = (using "%-10.10l#%s", dk.GetField("id"),dk.GetField("kod"))

int iString
for iString = 1 to iString > Len( sPDFtmp )
if mid(sPDFtmp,iString,1) == "/" then
sPDF += " "
else
sPDF += mid(sPDFtmp,iString,1)
endif
next iString

string sTemat = "W załączeniu Twój dokument sprzedaży " + dk.GetField("kod")

Run("Dokument VAT I", -2, sTemp, "", sPDF, "", "0", "", "", "")
sPDF += ".pdf"
sPDF = mid(sPDF,12,1000)

Execute( (using "%s /email \"%s\" \"%s\" \"%s\" \"%s\"",sRunApp, sTemat, sPDF, sTemp+ "\\" + sPDF, kh.GetField("email")) )

error ""