Power Builder - PROBLEMAS AL ENVIAR ARCHIVO ADJUNTO

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 = '[email protected]'

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

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: ' + '[email protected]'
mMsg.Recipient[1].Name = "Deadeveras"
mRet = mSes.mailSend(mMsg)

/////

Saludos desde Monterrey, N.L. Mexico....

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.

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