enviar correos en power builder version 10.5
Publicado por Eduardo Arias (2 intervenciones) el 16/10/2019 16:30:04
Buenos días
Estoy tratando de implementar que el sistema en el que estoy trabajando pueda enviar correos, estoy con la versión de power builder 10.5, ya configure el correo de outlook y lo probé y esta bien, solo que ala hora de enviar el correo no se manda, me aparece un cuadro diciendo que se esta mandando un correo pero el correo nunca llega.
Les dejo el codigo que utilizo y les agradezco de antemano!!
Estoy tratando de implementar que el sistema en el que estoy trabajando pueda enviar correos, estoy con la versión de power builder 10.5, ya configure el correo de outlook y lo probé y esta bien, solo que ala hora de enviar el correo no se manda, me aparece un cuadro diciendo que se esta mandando un correo pero el correo nunca llega.
Les dejo el codigo que utilizo y les agradezco de antemano!!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
mailSession sesion_mail
mailReturnCode codigo_retorno
mailMessage mensaje_mail
mailFileDescription mensaje_archivo
STRING ls_error,docname,named,ls_dir_mail
Integer value
sesion_mail = create mailSession/*Intenta la conexcion mail*/codigo_retorno = sesion_mail.mailLogon(mailNewSession!)
If codigo_retorno <> mailReturnSuccess! Then
Destroy sesion_mail
//Si existe algun error en la conexion cancelar y salir
Choose Case codigo_retorno
Case mailReturnLoginFailure!ls_error = "Usuario/Password incorrecto(s)"
Case mailReturnInsufficientMemory!ls_error = "Memoria insuficiente"
Case mailReturnTooManySessions!ls_error = "Demasiadas sesiones abiertas"
Case mailReturnUserAbort!ls_error = "Cancelación por usuario"
End Choose
Messagebox("Error",ls_error,Information!)
Else
value = GetFileOpenName("Selecciona el archivo a enviar por mail",docname,named,"All","All Files (*.*),*.*")
If value = 1 Thenmensaje_archivo.filename = docname
mensaje_archivo.pathname = docname
mensaje_mail.AttachmentFile[1] = mensaje_archivo
End if
mensaje_mail.DateReceived = string(today(),"dd/mm/yyyy")
mensaje_mail.MessageSent = true
mensaje_mail.ReceiptRequested = False
mensaje_mail.Subject= 'OC : '
mensaje_mail.Unread = false
mensaje_mail.recipient[1].recipientType=mailto!
mensaje_mail.notetext = 'Este mail fue enviado desde una aplicacion PB, si te interesa el codigo escribeme. Saludos'
mensaje_mail.Recipient[1].Address = 'eduardo.arias@gmail.com'
mensaje_mail.Recipient[1].Name = 'Deadeveras'
codigo_retorno= sesion_mail.mailSend(mensaje_mail)
IF codigo_retorno<> mailReturnSuccess! THEN
MessageBox('Error: Correo no enviado!', '')
END IF
sesion_mail.mailLogoff()
DESTROY sesion_mail
END IF
Valora esta pregunta
0
