mexzurdo
19 de Septiembre del 2003

hola¡¡¡¡
aqui ando pidiendo ayuda de nuevo:
miren tengo este programa para enviar correos en vfp, se supone que envia texto y archivos adjuntos, el texto si lo envia pero no le entiendo en la parte de archivos adjuntos yo escribo la ruta en donde esta en archivo que quiero mandar pero no lo manda, haber quien me puede ayudar porque lo mas seguro es que este haciendo algo mal.
Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo



IF EMPTY(pcPara)

pcPara = "direccion@de_correo.es"

ENDIF



IF EMPTY(pcAsunto)

pcAsunto = "<Asunto>"

ENDIF



IF EMPTY(pcCuerpo)

pcCuerpo = ""

ENDIF



IF EMPTY(paFichEnviar)

paFichEnviar = "aqui es donde segun yo va la ruta"

ENDIF



LOCAL oform

oform = CreateObject("form")

oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")



IF TYPE('oform.Session1') <> 'O'

MESSAGEBOX('No se ha podido instanciar la aplicaci贸n de correo.', 64, 'Atenci贸n')

RELEASE oform

RETURN .F.

ENDIF



oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")



IF TYPE('oform.Message1') <> 'O'

MESSAGEBOX('No se ha podido instanciar la aplicaci贸n de correo.', 64, 'Atenci贸n')

RELEASE oform

RETURN .F.

ENDIF



oform.Session1.LogonUI = .t.



*- Si no se pone la propiedad a .F. y en OUTLOOK est谩 puesto trabajar sin conexi贸n

*- se cuelga

oform.Session1.DownloadMail=.f.



oform.Session1.signon

oform.Message1.sessionid = oform.Session1.sessionid



oform.Message1.compose

oform.Message1.RecipDisplayName = pcPara

oform.Message1.msgsubject = pcAsunto

oform.Message1.msgnotetext = pcCuerpo



*- Si no es un array, lo crea

IF TYPE('paFichEnviar[1]') = 'U'

LOCAL lcFileEnviar

lcFileEnviar = paFichEnviar

DIMENSION paFichEnviar(1)

paFichEnviar(1) = lcFileEnviar

ENDIF



LOCAL lnContFiles

lnContFiles = 1



FOR lnCount = 1 TO ALEN(paFichEnviar,1)

*- Si existen los archivos

IF FILE(paFichEnviar(lnContFiles))

oform.Message1.AttachmentIndex = lnContFiles - 1

oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)

oform.Message1.AttachmentPosition = lnContFiles - 1

lnContFiles = lnContFiles + 1

ENDIF

ENDFOR



oform.Message1.send(plMostrarDialogo)

oform.Session1.signoff



release oform




bueno hay les encargo.
bye y saludos¡¡

abraham
19 de Septiembre del 2003

mira lo que para mi ver quisieron hacer es que se adjuntara al correo todos los archivos que se encontraban en la "ruta de acceso", a mi modo de ver, ya que yo tambien lo he corrido le especifico una ruta donde engo 12 archivos y no adjunta nada.

*- Si no es un array, lo crea
IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF

LOCAL lnContFiles
lnContFiles = 1

FOR lnCount = 1 TO ALEN(paFichEnviar,1)
*- Si existen los archivos
IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles - 1
lnContFiles = lnContFiles + 1
ENDIF
ENDFOR

aqui lo que les falta es especifar el nombre del archivo que se va a adjuntar con:

Attachmentname, que es aqui donde se especifica el nombre del archivo que se va a adjuntar

attachpathname es para especificar en que subdirectorio se encuenta el archivo, si no vas a enviar mas de un archivo te suguiero que quites el ciclo...

saludos.

abraham
19 de Septiembre del 2003

me equivoque mi cuate.

solo tienes que poner en el parametro paFichEnviar, la ruta y el nombre del archivo que vas a enviar y listo

c:midirectoriomiarchivo.ext

y listo, perdona pero no lo analice bien