Hi all,
Does anyone have expirience with SwithMail . I would really appreciate if someone have a sample.
Thanks all
George
Hi George,
I use SwithMail with satisfaction.
The website https://www.tbare.com/software/swithmail/ has detailed instructions on how to use it.
My copy of the program:
If File(cXml)
cParam:=' /s /x "SwithMailSettings_'+MyTrim(oSrv:FIELDGET(#Id),"0")+'.xml"' lOk :=RunPrg(self,cExe,cParam,Filepath2(cExe),nSw) == 0 //
if !lOk //Ha nem sikerül az email küldés
// WB(, cError2)
Fajlbair(oSrv:FIELDGET(#Mail_Settings_XML),"EmailLog.txt") ShellExecute(null,String2Psz("open"),String2Psz("EmailLog.txt"),null,null,SW_SHOWNORMAL)
else
//WB("Ok!")
oSrv:FIELDPUT(#Sent_To,true)
oSrv:FIELDPUT(#Send_Date,GetTimeStamp())
oSrv:Commit()
nElkuldve+=1
endif
endif
function RunPrg(oWin as object,cEXEfile as string,cParameters:="" as string, cWorkDir as string, nShow:=SW_NORMAL as word) as dword //EXE Run
local SEInfo as _WinShellExecuteInfo
local hProc as ptr
local lpExitCode := 999 as dword
local lRunning as logic
local lSuccess as logic
if oWin <> null_object
oWin:Pointer := Pointer{ POINTERHOURGLASS }
endif
SEInfo := MemAlloc(_sizeof(_winSHELLEXECUTEINFO))
SEInfo.cbSize := _sizeof(_winSHELLEXECUTEINFO)
SEInfo.fMask := SEE_MASK_NOCLOSEPROCESS + SEE_MASK_FLAG_NO_UI
SEInfo.lpVerb := psz(_cast, "open")
SEInfo.lpFile := psz(_cast, cExeFile )
SEInfo.lpParameters := psz(_cast, cParameters )
SEInfo.lpDirectory := String2Psz(cWorkDir)
SEInfo.nShow := nShow//SW_NORMAL, SW_HIDE
SEInfo.hInstApp := null_ptr
SEInfo.lpClass := null_psz
if ShellExecuteEx(SEInfo) // File executed correctly
hProc := SEInfo.hProcess
GetExitCodeProcess( hProc, @lpExitCode )
lRunning := ( lpExitCode = STILL_ACTIVE )
do while lRunning // Wait until finishes
GetExitCodeProcess( hProc, @lpExitCode )
lRunning := ( lpExitCode = STILL_ACTIVE )
YML()
enddo
lSuccess := true
CloseHandle(SEInfo.hProcess)
MemFree(SEInfo) // File was executed and the execution finished
else
// An error occured (use GetLastError() to see what happened) MemFree(SEInfo)
endif
if oWin <> null_object
oWin:Pointer := Pointer{ POINTERARROW }
endif
return lpExitCode
Kind Regards,Hi Ferenc,
Szepligeti Ferenc
Γεωργιος Τριτσος ezt írta (2023. június 7., szerda, 22:22:31 UTC+2):
Hi all,
Does anyone have expirience with SwithMail . I would really appreciate if someone have a sample.
Thanks all
George
Hi all,
Does anyone have expirience with SwithMail . I would really appreciate if someone have a sample.
Thanks all
George
I used it when I needed it, and would again if needed. It worked well.Hi,
It will take some time to get a sample together, but try to asap.
James
On 6/7/23 16:22, Γεωργιος Τριτσος wrote:
Hi all,
Does anyone have expirience with SwithMail . I would really appreciate if someone have a sample.
Thanks all
George
Στις Δευτέρα 12 Ιουνίου 2023 στις 3:59:50 μ.μ. UTC+3, ο χρήστης James Martin έγραψε:
I used it when I needed it, and would again if needed. It worked well.
It will take some time to get a sample together, but try to asap.
James
On 6/7/23 16:22, Γεωργιος Τριτσος wrote:
Hi all,
Does anyone have expirience with SwithMail . I would really appreciate if someone have a sample.
Hi,Thanks all
George
I tried but i took error "5.7.0. authentication required" in server gmail and i took error "net_io_connectionclosed" for yahoo.
I am trying to find what's going wrong.
Any ideas would be helpfull.
Regards
George
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 299 |
Nodes: | 16 (2 / 14) |
Uptime: | 51:54:35 |
Calls: | 6,690 |
Calls today: | 8 |
Files: | 12,225 |
Messages: | 5,344,715 |
Posted today: | 1 |