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,
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

Στις Παρασκευή 9 Ιουνίου 2023 στις 1:40:17 μ.μ. UTC+3, ο χρήστης Ferenc Ferenc έγραψε:
> 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,
> 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 Ferenc,

Thanks a lot for your sample. I will try it.

Regards
George

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.
>
> 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.
> >
> > Thanks all
> > George
Hi,
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

Hi,
Yes, there seems to have been a change in authentication since I tested it.
I tested again, it works again. The password should not be replaced by the gmail password, but by the generated application password after setting up two-step authentication.
You can find detailed instructions here:

https://support.google.com/mail/thread/146949535/the-server-response-was-5-7-0-authentication-required?hl=en

https://support.google.com/accounts/answer/185833?hl=en&sjid=14800053331033760336-EU

Regards
Ferenc

Γεωργιος Τριτσος ezt írta (2023. június 14., szerda, 20:47:10 UTC+2):
> Στις Δευτέρα 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.
> > >
> > > Thanks all
> > > George
> Hi,
> 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