Power Builder - Requiero función para envío de email desde Power Builder

 
Vista:
sin imagen de perfil

Requiero función para envío de email desde Power Builder

Publicado por Enrique (13 intervenciones) el 14/12/2017 23:07:52
Necesito algo para la implementar en programas de Power Builder 12.5 para la función de envío de correo electrónico (e-mail) de forma transparente para el usuario, de tal forma que cuando se realice alguna acción, como la generación de un documento, en automático lo envíe a una cierta dirección de correo. Es decir, me falta la función y herramientas necesarias para eso.
Mucho les agradezco su ayuda, ya le he buscado por muchos lados. Ahi estoy al pendiente. Saludos.
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

Requiero función para envío de email desde Power Builder

Publicado por FRANCISCO PORTALES (214 intervenciones) el 15/12/2017 06:23:42
Si miras en los ejemplos de PB alli hay un ejemplo completo que hace eso...

También podes enviar correos desde la base de datos, ya hay procedimientos en la base de datos que los hace.

Ejemplo sql server , oracle ya lo traen
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
sin imagen de perfil

Requiero función para envío de email desde Power Builder

Publicado por Enrique (13 intervenciones) el 19/12/2017 01:00:49
Muchas gracias Francisco, me sirivió tu comentario. Aqui andamos, si en algo te puedo servir.
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 Eduardo
Val: 77
Ha aumentado 1 puesto en Power Builder (en relación al último mes)
Gráfica de Power Builder

Requiero función para envío de email desde Power Builder

Publicado por Eduardo (34 intervenciones) el 15/12/2017 08:11:37
Revisa los siguientes objetos de PB que son para realizar lo que necesitas:
mailSession
mailReturnCode

Un saludo.
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
sin imagen de perfil

Requiero función para envío de email desde Power Builder

Publicado por Enrique (13 intervenciones) el 19/12/2017 00:59:51
Muchas gracias Eduardo, me sirivió tu comentario. Aqui andamos, si en algo te puedo servir.
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 Adolfo
Val: 250
Bronce
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Requiero función para envío de email desde Power Builder

Publicado por Adolfo (258 intervenciones) el 15/12/2017 15:15:11
El servidor SqlAnyWhere puede enviar mails pero PB puede utilizar el cliente que tengas, no es un mail SMTP

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
63
64
65
66
67
68
69
70
71
mailSession sesion_mail
mailReturnCode codigo_retorno
mailMessage mensaje_mail
mailFileDescription mensaje_archivo
 
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
 
	mensaje_mail.Subject = 'Saludos'
	mensaje_mail.notetext = 'Este mail fue enviado desde una aplicacion PB, si te interesa el codigo escribeme. Saludos'
 
	//Aqui viene el destino, como podras ver es un arreglo,
	//es decir el recipient[2] seria poner otro destino
	mensaje_mail.recipient[1].address = 'achairez@lajat.com.mx'
 
	//Aqui viene los archivos adjuntos que tambien son un arreglo,
	//Se puede sacar este codigo a un boton de tal forma que se puedrian agregar tantos archivos
	//como fuese necesario, habria que cuidar el contador del array del Attachmentfile
	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
	codigo_retorno = sesion_mail.mailResolveRecipient(mensaje_mail.Recipient[1].Name)
	if codigo_retorno <> mailReturnSuccess! Then
		messagebox("Error","No se pudo resolver la siguiente direccion "+ls_dir_mail)
	else
	   	codigo_retorno = sesion_mail.mailsend(mensaje_mail)
		if codigo_retorno <> mailReturnSuccess! then
			ls_error = "El mail no pudo ser enviado por: "
			Choose Case codigo_retorno
				Case mailReturnInsufficientMemory!
					ls_error = ls_error + "Memoria insuficiente"
				Case mailReturnUserAbort!
					ls_error = ls_error + "Cancelado por usuario"
				Case mailReturnDiskFull!
					ls_error = ls_error + "Disco duro lleno"
				Case mailReturnTooManySessions!
					ls_error = ls_error + "Demasiadas sesiones abiertas"
				Case mailReturnTooManyFiles!
					ls_error = ls_error + "Demasiados archivos"
				Case mailReturnTooManyRecipients!
					ls_error = ls_error + "Demasiados destinatarios"
				Case mailReturnUnknownRecipient!
					ls_error = ls_error + "Destinatario(s) desconocido(s)"
				Case mailReturnAttachmentNotFound!
					ls_error = ls_error + "Archivo adjunto no hallado"
			End Choose
			messagebox("Error",ls_error,Information!)
		end if
	end if
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
sin imagen de perfil

Requiero función para envío de email desde Power Builder

Publicado por Enrique (13 intervenciones) el 19/12/2017 01:17:55
Adolfo, muchas gracias, estuvo mas que excelente. Te debo una. Saludos.
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