Power Builder - Se tilda la impresora luego de mandar un mail

   
Vista:

Se tilda la impresora luego de mandar un mail

Publicado por Carolina (73 intervenciones) el 06/08/2015 16:40:28
Hola Amigos!!!! tengo un pequeño problema, cuando luego de exportar un datawindow a PDF envio ese archivo por mail, se tilda el envio de cualquier listado a una impresora, yo tengo en el sistema una ventana que desde un botón exporta uin datawindow a PDF y envia el archivo por mail, el proceso funciona ok pero.......luego para poder volver a imprimir cualquier cosa tengo que cerrar el sistema y volverlo a abrir (no se cual es el seteo que me deja tildado el proceso de impresión).Esto me pasa en las máquinas que tienen window 7, porque mi máquina la de desarrollo tiene windows XP y todo me funciona bien, puedo hacer el proceso mandar el mail y luego seguir imprimiendo cosas sin tener que cerrar y volver a abrir la aplicación.
Les envio el codigo a ver si se dan cuenta donde está el error:
String vn_cli, vdir_cli, vn_archivo, v_asunto

datawin.Object.DataWindow.Export.PDF.Method = Distill!
datawin.Object.DataWindow.Printer = "CutePDF Writer" //Impresora virtual
datawin.Object.DataWindow.Export.PDF.Distill.CustomPostScript="Yes" //No permitir Postscript
vn_archivo = 'c:\resba\reportes\OA_' + String(vnro_oa) + '.PDF'
If datawin.SaveAs(vn_archivo,PDF!,false) <> 1 then //Exportamos a PDF
messagebox("Error","Hubo un error al generar el archivo PDF")
else
If messagebox("Atención " + vn_archivo, "Archivo generado exitosamente!.Desea enviarlo por mail?", Question!, YesNo!, 1) = 1 then
st_mail.asunto = 'Orden de Alojamiento Nº ' + String(vnro_oa)
st_mail.n_archivo = vn_archivo
Open(w_ingresar_datos_mail)
f_enviar_mail()
End if
End if




La funcion f_enviar_mail() :
mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mAttach[]
String mail_aotra, vn_usuario

//Creo la sesion
mSes = create mailSession
// inicia la session
mRet = mSes.mailLogon(mailNewSession!)
//pregunta que si al iniciar la sesion hubo un problema
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Logon failed.')
else

Select dir_mail Into :mail_aotra From Hmv_hoteles Where id_hotel = 0;

If IsNull(mail_aotra) OR mail_aotra = '' then
Messagebox("Atención", "No se ha ingresado la dirección de mail de la empresa.Falló el envio de mail automático")
Return
end if

Select n_usuario Into :vn_usuario From Hmv_usuarios Where id_usuario = :vid_usuario;

mMsg.Recipient[1].name = st_mail.destinatario
mMsg.Subject = st_mail.asunto
mMsg.NoteText = 'Adjunto la Orden/Voucher correspondiente para ser presentado en el hotel.' + vn_usuario

mMsg.attachmentfile[1].filename = st_mail.n_archivo
mMsg.attachmentfile[1].pathname = st_mail.n_archivo

// ACA ESTA EL ARCHIVO A ADJUNTAR

// ACA ENVIA EL EMAIL
mRet = mSes.mailSend(mMsg)

// SI OCURRIO UN ERROR TE MANDA EL MENSAJE
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail Send", 'Hubo un error en el envio del mail.NO FUE ENVIADO')
END IF

// ACA CIERRA TU SESSION
mSes.mailLogoff()
//ACA DESTRUYE LA INSTANCIA
DESTROY mSes
End if


Si genero el PDF pero no envio el mail funciona bien, asique el problema es al enviar el mail.......'pero no me doy cuenta que pasa.
Muchas gracias por la ayuda!!!!!!!
Carolina
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

Se tilda la impresora luego de mandar un mail

Publicado por Leopoldo Taylhardat (690 intervenciones) el 08/08/2015 19:37:53
Saludos..

Te recomiendo usar BULLZIP PDF PRINTER es gratis y funciona bien, es configurable puedes usar "fondo de agua", etc... puedes mandar varios listados acumulativos en un solo archivo, etc...
lo único es que tienes que instalarlo en cada máquina (ON LINE) porque la versión OFFLINE no se instaló en windows 7...
espero que te sirva...
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

Se tilda la impresora luego de mandar un mail

Publicado por Carolina (73 intervenciones) el 08/08/2015 20:03:41
Muchas gracias Leopoldo!!!!! ahora en la semana entrante lo voy a probar..........
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