He empezado a integrar en EasyDev el soporte para lectura de correo en esta rama: https://github.com/UniversoLibreMexicoA ... v2.6.0.oxt
Como siempre su uso es muy simple:
Código: Seleccionar todo
Sub ReadMail()
util = createUnoService("org.universolibre.EasyDev")
server = createUnoStruct("org.universolibre.EasyDev.SmtpServer")
server.Name = "box961.bluehost.com"
server.Port = 993
server.User = "public@mauriciobaeza.net"
server.Password = "letmein-abretesesamo-mellon"
server.Ssl = True
info = util.readMail(server)
util.msgbox(info)
End Sub
Código: Seleccionar todo
('OK', [b'INBOX (MESSAGES 103 UNSEEN 0)'])
('OK', [b'INBOX.Sent (MESSAGES 2 UNSEEN 0)'])
('OK', [b'INBOX.Junk (MESSAGES 0 UNSEEN 0)'])
('OK', [b'INBOX.Drafts (MESSAGES 0 UNSEEN 0)'])
('OK', [b'INBOX.Test (MESSAGES 0 UNSEEN 0)'])
('OK', [b'INBOX.Trash (MESSAGES 0 UNSEEN 0)'])
¿Cual sería la mejor forma de devolver los mensajes y sus anexos?
Saludos