alguien que me explique este programa

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