Power Builder - PROBLEMAS AL ENVIAR ARCHIVO ADJUNTO

 
Vista:

PROBLEMAS AL ENVIAR ARCHIVO ADJUNTO

Publicado por leysy (44 intervenciones) el 11/07/2005 22:07:33
Tengo el siguiente codigo, me envia un correo pero a lo q le agrego la parte del archivo adjunto no me lo envia y no envia ningun correo, no lo adjunta.. el codigo es el siguient:

mailFileDescription Adjunto

Adjunto.filename = 'prueba.pdf'
Adjunto.filetype = mailAttach!
Adjunto.pathname = 'c:\'

mMsg.Subject = 'prueba'
mMsg.NoteText = 'Esto es una prueba'
mMsg.Recipient[1].name = 'correo@punto.com'

mMsg.Attachmentfile[1] = adjunto
mRet = mSes.mailSend(mMsg)

POR FAVOR SI ALGUIEN PUEDE DECIRME EN Q ME ESTOY EQUIVOCANDO O Q ME FALTA...se lo agradesco
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

RE:PROBLEMAS AL ENVIAR ARCHIVO ADJUNTO

Publicado por Jonathan (11 intervenciones) el 11/07/2005 22:39:38
segun yo, solo te falta indicar

Adjunto.Position = 1

ya que yo hago algo similar en mi aplicacion y funciona correctamente.

////
mAttach.FileType = mailAttach!
mAttach.Filename = ls_nombre_documento
mAttach.Pathname = ls_path + ls_nombre_documento
mAttach.Position = 1
mMsg.AttachmentFile[1] = mAttach

mMsg.DateReceived = string(gf_fechaservidor(),"dd/mm/yyyy")
mMsg.MessageSent = true
mMsg.ReceiptRequested = False
mMsg.Subject= 'OC : ' + ls_orden_compra
mMsg.Unread = false
mMsg.Recipient[1].RecipientType = mailto!
mMsg.NoteText = " Le enviamos nuestra orden de compra numero " + ls_orden_compra + "." + &
"~n~rGracias."
//mMsg.Recipient[1].Address = 'SMTP: ' + ls_cuenta_correo
mMsg.Recipient[1].Address = 'SMTP: ' + 'gallegos.jonathan@gmail.com'
mMsg.Recipient[1].Name = "Deadeveras"
mRet = mSes.mailSend(mMsg)

/////

Saludos desde Monterrey, N.L. Mexico....
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

RE:PROBLEMAS AL ENVIAR ARCHIVO ADJUNTO , JONATHAN

Publicado por Mariana (13 intervenciones) el 15/12/2005 19:25:23
Hola Jonathan,

He visto en tu ejemplo de codigo que utilizas SMTP, podrias explicarme un poco acerca de eso???

Necesito enviar por correo algunos archivos adjuntos, pero sin utilizar el outlook, y me han dicho que utilize el smtp, pero no se como..

De antemano muchas gracias

Saludos de Mexicali BC.
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

RE:PROBLEMAS AL ENVIAR ARCHIVO ADJUNTO

Publicado por Alejandro (4 intervenciones) el 17/07/2005 03:39:06
prueba este codigo... a mi me funciona bien. espero que te sirva.

MailSession lm_sesion
MailReturnCode lm_mRet
MailMessage lm_Mensaje
MailFileDescription lm_ArchivoAdjunto

String ls_Asunto, UserLog
Long ll_fila
//............................................................................
// Extrae Usuario conectado a la Red
UserLog = Gf_Lee_UserLogin()
//..........................................................................................................
// Abro la sesión descargando todo (SE CONECTA)
lm_sesion = CREATE mailSession
lm_mRet = lm_sesion.mailLogon ( UserLog , "" , MailNewSession! )

IF lm_mRet <> MailReturnSuccess! THEN
MessageBox ( "Mail", 'No se ha Iniciado la Sesión de Correo.!')
Return False
End If
//..........................................................................................................
// Valido Datos en Blanco
If Len ( Trim ( Arg_Direccion ) ) = 0 Then
MessageBox ( "Información" , "Falta Configurar ID " )
Return False
End If

If Len ( Trim ( Arg_Asunto ) ) = 0 Then
ls_Asunto = 'Remite Documento '
Else
ls_Asunto = Arg_Asunto
End If
//..........................................................................................................
// Guardo los datos en una estructura de tipo MAILMESSAGE.
lm_Mensaje.Recipient[1].Name = Arg_Direccion
lm_Mensaje.Subject = ls_Asunto
lm_Mensaje.NoteText = Arg_Mensaje

lm_ArchivoAdjunto.PathName = Arg_ArchivoAdjunto
lm_ArchivoAdjunto.FileType = MailAttach!
lm_Mensaje.AttachmentFile[1] = lm_ArchivoAdjunto
SetPointer ( HourGlass! )
//..........................................................................................................
// Envía el Mensaje con todos los datos
lm_mRet = lm_sesion.MailSend ( lm_Mensaje )

lm_sesion.mailLogoff()

Destroy lm_sesion
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