Power Builder - enviar correos en power builder version 10.5

 
Vista:

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!!

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 Then
	mensaje_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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

enviar correos en power builder version 10.5

Publicado por Eduardo Arias (2 intervenciones) el 16/10/2019 18:16:13
Hola Leonardo

Gracias por responder, he probado con estos proyectos y no me han funcionado.

Muchas gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 821
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

enviar correos en power builder version 10.5

Publicado por Leonardo Daniel A. (479 intervenciones) el 16/10/2019 21:40:59
mmm que raro... y el correo esta configurado el POP e IMAP ??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar