Sub enviar_correo_denuncia
Dim correo_body As String
Dim SMTPD As SMTP
SMTPD.Initialize("mail.apo.gob.px", 587, "[email protected]", "Mission2025io", "SMTPD")
SMTPD.StartTLSMode = True
SMTPD.DebugLogs = True
SMTPD.To.Add("[email protected]")
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 [email protected] !", True)
Log("Mail Send")
Else
hd.ToastMessageShow("Error Sending Mail", True)
Log(LastException.Message)
End If
End Sub