FiveTech Software tech support forums

... cIP := GetHostByName( "smtphm.sympatico.ca",25,.t.,"wilsonrw@sympatico.ca", "xxxxxxxx" ) ) * MsgInfo( cIP ) oOutMail:bConnecting = { || oDlg:SetMsg( "Connecting to mail.lpsi.qc.ca" ) } oOutMail:bConnected = { || oDlg:SetMsg( "Connected" ) } oOutMail:bDone ...

... "mail.lpsi.qc.ca" ) ) oOutMail := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ) ) * MsgInfo( cIP ) oOutMail:bConnecting = { || oDlg:SetMsg( "Connecting to mail.lpsi.qc.ca" ) } oOutMail:bConnected = { || oDlg:SetMsg( "Connected" ) } oOutMail:bDone ...

... cIP := GetHostByName( "smtp.ulg.ac.be" ) ) * oMail := TSmtp():New( cIP := GetHostByName( "smtp.ulg.ac.be" ) ) * oMail:bConnecting = { || oWnd:SetMsg( "Connecting to smtp ..." ) } oMail:bConnected = { || oWnd:SetMsg( "Connected" ) } * oMail:bDone ...

... Rick oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting := { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected := { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone := { || oWndMdi:SetMsg( ...

... code oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting := { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected := { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone := { || oWndMdi:SetMsg( ...

... Class : oWndMdi:SetMsg( "Sending Reporting noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting = { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected = { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone = { || oWndMdi:SetMsg( ...

... oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting = { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected = { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone = { || oWndMdi:SetMsg( ...

... "Welcome New Project Manager" cMESSAGE := "Test" WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) * MsgInfo( cIP ) * oOutMail:bConnecting = { || MsgInfo( "Connecting to "+cHOST ) } * oOutMail:bConnected = { || MsgInfo( "Connected" ) } * oOutMail:bDone = { || MsgInfo( "Message ...

... cIP oWnd:SetMsg( "Sending Internet email..." ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( "hot.pl" ) ) MsgInfo( cIP ) oOutMail:bConnecting = { || oWnd:SetMsg( "Connecting to hot.pl..." ) } oOutMail:bConnected = { || oWnd:SetMsg( "Connected" ) } oOutMail:bDone = { || oWnd:SetMsg( ...

... "Sending Internet email..." ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( "smtp.fivetechsoft.com" ) ) MsgInfo( cIP ) oOutMail:bConnecting = { || oWnd:SetMsg( "Connecting to smtp.fivetechsoft.com..." ) } oOutMail:bConnected = { || oWnd:SetMsg( "Connected" ) } oOutMail:bDone ...

... as inline as opposed to attachement oMail:oSocket:lDebug := .T. // uncomment to create log file oMail:oSocket:cLogFile := "c:\smtp.log" oMail:bConnecting := {|| oVentPrinc:SetMsg( "Connecting to " + cHost + " (" + oMail:cIPServer + ") and waiting for response..." ) } oMail:bConnected := {|| ...

... files as inline as opposed to attachement oMail:oSocket:lDebug := .T. // uncomment to create log file oMail:oSocket:cLogFile := "smtp.log" * oMail:bConnecting := {|| oWnd:SetMsg( "Connecting to " + cHost + " (" + oMail:cIPServer + ") and waiting for response..." ) } * oMail:bConnected := {|| oWnd:SetMsg( ...

... oDummy := TSmtp():New(GetHostByName(PAR->POUTLIP)) oOutMail := TSmtp():New(GetHostByName(PAR->POUTLIP)) oOutMail:bConnecting = {|| cStat1:= "Connecting",Em2Dlg:Update() } oOutMail:bConnected = {|| cStat2:= "Connected",Em2Dlg:Update() } oOutMail:bDone = {|| EmSend ...

... files as inline as opposed to attachement oMail:oSocket:lDebug := .T. // uncomment to create log file oMail:oSocket:cLogFile := "smtp.log" oMail:bConnecting := {|| oDlg:SetMsg( "Connecting to " + cHost + " (" + oMail:cIPServer + ") and waiting for response..." ) } oMail:bConnected := {|| oDlg:SetMsg( ...

... SendMail() local oOutMail, cIP oWnd:SetMsg( "Sending Internet email..." ) WSAStartup() oOutMail := TSmtp():New( "smtp.midominio.com" ) oOutMail:bConnecting = {||oWnd:SetMsg( "Connecting ..." ) } oOutMail:bConnected = {||oWnd:SetMsg( "Connected" ) } oOutMail:bDone = { || msginfo("Mensaje enviado ...