mojaSymfonia FORUM
https://forum.mix-soft.pl/

Wysyłanie faktur mailem
https://forum.mix-soft.pl/viewtopic.php?f=2&t=10043		 Strona 1 z 1
Autor:  konradrawa [ 2021-09-28, 16:06 ]
Tytuł:  Wysyłanie faktur mailem
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 ""
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/