1. Brage Mogstad
  2. PowerBuilder
  3. Wednesday, 14 May 2025 11:21 AM UTC

Hello,
We're currently using PB2019 and OLE to send emails from our app. However, we'd really like to offer our customers the option of using the new MS Outlook email client instead of the old one, as it is way faster and less resource-demanding on client PCs.
I'm looking into the "new" Appeon 2022R3 Build 3397 IDE/Runtime and the SMTPClient object for SMTP over OLE, using a simple mail setup at an account at one.com. For some reason, this results in an error: -11 Operation timeout.

The one.com account I'm testing is verified and works flawlessly with the same setup on my Outlook mail client, which resides on the same PC.
Could this be a bug? Am I missing something important in the setup?
Any advice is greatly appreciated.

Regards
Brage

string ls_server, ls_userid, ls_password, ls_authmethod, ls_characterset, ls_errmsg
long ll_port, ll_conntype, ll_row, ll_authmethod

Integer li_rc
SMTPClient  lnv_SmtpClient

lnv_SmtpClient = CREATE SMTPClient

dw_smtp.Accepttext()
ll_row = dw_smtp.GetRow()

ls_server =  dw_smtp.GetItemString(ll_row, "server")
ls_userid =  dw_smtp.GetItemString(ll_row, "userid")
ls_password =  dw_smtp.GetItemString(ll_row, "password")
ll_authmethod =  dw_smtp.GetItemNumber(ll_row, "authmethod")
ls_characterset =  dw_smtp.GetItemString(ll_row, "characterset")
ll_port =  dw_smtp.GetItemNumber(ll_row, "port")
ll_conntype =  dw_smtp.GetItemNumber(ll_row, "conntype")

//set the email account information        
lnv_SmtpClient.Host = ls_server
lnv_SmtpClient.Username = ls_userid
lnv_SmtpClient.Password = ls_password
lnv_SmtpClient.Port = ll_port
choose case ll_conntype
	case 0
		//NONE
		lnv_SmtpClient.EnableTLS = False		
	case 1
		lnv_SmtpClient.EnableTLS = True
	case 2
	case 3
end choose

choose case ll_authmethod
	case 6
		//OAUTH2
end choose 

//Sets the email message
lnv_SmtpClient.Message.Reset(0)
lnv_SmtpClient.Message.SetSender("brage@evolveit.no","Brage Mogstad")
 lnv_SmtpClient.Message.Encoding = 'windows-1252'
lnv_SmtpClient.Message.AddRecipient("bmogstad@maritech.no", "Brage Mogstad")
lnv_SmtpClient.Message.Subject = "SMTPClient Test Message"
lnv_SmtpClient.Message.TextBody = "SMTPClient example message body"

//Priority
lnv_SmtpClient.Message.Priority = 0
 
//Timeout
lnv_SmtpClient.timeout = 10

// Enable the logging feature.
lnv_SmtpClient.LogFile("e:\temp\msmtp\mail.log", false)

//Model Authentication
//lnv_SmtpClient.XOAuth2AccessToken = "ya29.a0AVvZVsrZY8ra_fyIw3EyVSYUQIXYbWcz4_mYqlqtxFE-4t_hzLyV_BaZbaxhM3nC10Nr5Qm6hmHPBQvd5BfaH7kXN5KxS-XR0dnV-1EHltUJmcgBSZIHbPEkR6qLf_CEaEozOESSyebgAWv5SGynKfyCzsvR6QaCgYKAeMSARASFQGbdwaIy4ayfJPAa23BKltg4-AJjg0165"

//Sends the email
li_rc = lnv_SmtpClient.Send()

IF li_rc = 1 THEN
        MessageBox("SMTPClient", "EMail sent.")
ELSE
	choose case li_rc        
		case -1
			 ls_errmsg = "A general error occurred."
		case -2 
			 ls_errmsg = "Unable to connect to service through proxy."        
		case -3 
			 ls_errmsg = "The given proxy host could not be resolved."        
		case -4 
			 ls_errmsg = "The given remote host could not be resolved."    
		case -5 
			 ls_errmsg = "Failed to connect to host."        
		case -6 
			 ls_errmsg = "Host is of bad/illegal format or is missing."        
		case -7 
			 ls_errmsg = "Protocol is not supported."        
		case -8 
			 ls_errmsg = "Error in SSL connection."        
		case -9 
			 ls_errmsg = "Server certificate is revoked."        
		case -10 
			 ls_errmsg = " Service certificate authentication failed."        
		case -11 
			 ls_errmsg = "Operation timeout."        
		case -12 
			 ls_errmsg = "The remote server denied curl to login."        
		case -13 
			 ls_errmsg = "Failed sending network data."        
		case -14 
			  ls_errmsg = "Failure in receiving network data."        
		case -15 
			 ls_errmsg = "Incorrect username or password."        
		case -16 
			 ls_errmsg = "Error reading local file."        
		case -17 
			 ls_errmsg = "No sender has been specified."        
		case -18 
			 ls_errmsg = "No recipients have been specified."
	end choose
	MessageBox("SMTPClient Error", String(li_rc) + ' - ' + ls_errmsg, stopsign!, ok!)
END IF

DESTROY lnv_SmtpClient


Attachments (4)

Who is viewing this page
Responses (0)
  1. Likes
  2. Latest
  3. Oldest
Loading...

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DPI DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder RibbonView Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Solution Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.