iOS Question Error OSStatus error -9807 - Sending Email

[virpalacios]

Hi All, Good Day, Good Night and Good Afternoon , Greetings,
I am getting Error Message -9807 when sending mail, Here is the code

Sub enviar_correo_denuncia
    Dim correo_body As String
    Dim SMTPD As SMTP   
    SMTPD.Initialize("mail.apo.gob.px", 587, "reports@apo.gob.px", "Mission2025io", "SMTPD")
    SMTPD.StartTLSMode = True
    SMTPD.DebugLogs = True
    SMTPD.To.Add("reports@apo.gob.px")
    SMTPD.Subject = "APA Click Denuncia Item no Encontrado"
    correo_body = "Usuario " & Estructuras.usuario_registrado.nombre_completo & " ha realizado un registro de item no encontrado con codigo de barra " & Estructuras.usuario_denuncia.codigo_barra & CRLF
    correo_body = correo_body   & " encontrado en el local " & Estructuras.usuario_denuncia.nombre_local & " ubicado en " & Estructuras.usuario_denuncia.ubicacion_local & CRLF
    correo_body = correo_body & " con los siguientes detalles "  & Estructuras.usuario_denuncia.detalles_denuncia
    SMTPD.Body = correo_body
    SMTPD.Send 
End Sub

Sub SMTPD_MessageSent(Success As Boolean)
    If Success Then
        hd.ToastMessageShow("Su reporte ha sido enviado a reports@apo.gob.pa !", True)
        Log("Mail Send")
    Else
        hd.ToastMessageShow("Error Sending Mail", True)
        Log(LastException.Message)
    End If
End Sub

After checking in Apple Site error -9807 means "errSSLXCertChainInvalid", I had an issue with my Android version, so I tried this method from Adroid

    Dim ctm As CustomTrustManager
    ctm.InitializeAcceptAll
    SMTPD.SetCustomSSLTrustManager(ctm)

This work for Android, however I am getting this mesaage from debbuging "The operation couldn’t be completed. (OSStatus error -9807.)"

Here the Logs

I am using B4i 10.00 and IOS 26 on the device

Thank in Advance for your comments

 

[Erel]

It looks like the mail server certificate is misconfigured. Have you tried to connect to the non-ssl port (usually 25)? With StartTLS = False.