PARA LOS EXPERTOS!!!!!!!!!!!!!!!!
Publicado por Trino Barillas (7 intervenciones) el 13/02/2001 21:30:56
Lo que pasa es lo siguiente: hice una aplicacion programada en visual foxpro, dentro de la aplicacion envio correos con archivos atachados haciendo una interface con outlook, todo eso esta muy bien, pero necesito pulirlo, es decir mejorarlo, y quisiera saber mas detalles, te envio el codigo para que lo veas.
oOutlook = CREA ("outlook.application")
oMail = oOutlook.createitem(0)
oMail.body = 'ESTA ES LA PRUEBA OK?' + CHR(13) + CHR(13) + CHR(13) + CHR(13)
FOR nFile = 5 to THISFORM.lstFiles.ListCount
oMail.ATTACHMENTS.ADD (THISFORM.lstFiles.List(2) + THISFORM.lstFiles.List(nFile))
ENDFOR
oMail.RECIPIENTS.ADD('TBARILLAS')
oMail.Subject = 'ASUNTO'
oMail.DISPLAY
*oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook
me falta saber como referenciar los demas objetos de la plantilla de outlook, me explico?
Trino Barillas
Venezuela
oOutlook = CREA ("outlook.application")
oMail = oOutlook.createitem(0)
oMail.body = 'ESTA ES LA PRUEBA OK?' + CHR(13) + CHR(13) + CHR(13) + CHR(13)
FOR nFile = 5 to THISFORM.lstFiles.ListCount
oMail.ATTACHMENTS.ADD (THISFORM.lstFiles.List(2) + THISFORM.lstFiles.List(nFile))
ENDFOR
oMail.RECIPIENTS.ADD('TBARILLAS')
oMail.Subject = 'ASUNTO'
oMail.DISPLAY
*oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook
me falta saber como referenciar los demas objetos de la plantilla de outlook, me explico?
Trino Barillas
Venezuela
Valora esta pregunta


0