| Pregunta: | 42909 - ENVIAR ARCHIVOS POR CORREO |
| Autor: | Rogelio Garcia |
| Quiero enviar una serie de archivos por correo a traves de fox pro....
alguien que me pueda decir como hacerlo?!?!? | |
| Respuesta: | HENRY VARGAS |
| debes crear un objeto outlook.aplication el posee propiedades y metodos que te ayudan en las tareas de enviar correo.
ahi te doy un codigo de ejemplo ** Crear el Objeto de correo MyOutlook = CREATEOBJECT("Outlook.Application") MyMailItem = MyOutlook.CreateItem(0) ** Configurar el mensaje MyMailItem.Body = "Adjunto Archivos del Packing No. "+CHR(13)+CHR(10)+; myapp.c_packnum + ALLTRIM(m.clientnomb) + vl_packcan + '-' ; + m.postcoabr2 + '-' + myapp.c_producabrv + '-' + STR(YEAR(m.ordenfvue),4) + '-' ; + myapp.strzero(MONTH(m.ordenfvue),2) + '-' + myapp.strzero(DAY(m.ordenfvue),2) MyMailItem.Subject = "Packing No. " + myapp.c_packnum + ALLTRIM(m.clientnomb) + ; vl_packcan + '-' + m.postcoabr2 + '-' + myapp.c_producabrv + '-' + STR(YEAR(m.ordenfvue),4) + '-' ; + myapp.strzero(MONTH(m.ordenfvue),2) + '-' + myapp.strzero(DAY(m.ordenfvue),2) ** Destinatario SELECT Curdirecc COUNT FOR Corractivo = 1 TO CantDirecc IF CantDirecc = 0 MESSAGEBOX('Debe Seleccionar al menos 1 dirección.',48,'Advertencia') RETURN .F. ENDIF SCAN FOR Corractivo = 1 MyMailItem.Recipients.ADD(ALLTRIM(Curdirecc.Direccorr)) SELECT Curdirecc ENDSCAN **Adjuntar los Archivos del packing MyMailItem.Attachments.ADD((THISFORM.Nomreport+".PDF")) MyMailItem.Attachments.ADD((THISFORM.Nomreport+".TXT")) IF FILE((SUBSTR(THISFORM.Nomreport,1,RAT("\",THISFORM.Nomreport,1)) + "Despacho "+; SUBSTR(THISFORM.Nomreport,(RAT("\",THISFORM.Nomreport,1) + 1))+".XLS")) MyMailItem.Attachments.ADD((SUBSTR(THISFORM.Nomreport,1,RAT("\",THISFORM.Nomreport,1)) + "Despacho "+; SUBSTR(THISFORM.Nomreport,(RAT("\",THISFORM.Nomreport,1) + 1))+".XLS")) ENDIF IF FILE((SUBSTR(THISFORM.Nomreport,1,RAT("\",THISFORM.Nomreport,1)) + "Etiquetas "+; SUBSTR(THISFORM.Nomreport,(RAT("\",THISFORM.Nomreport,1) + 1))+".XLS")) MyMailItem.Attachments.ADD((SUBSTR(THISFORM.Nomreport,1,RAT("\",THISFORM.Nomreport,1)) + "Etiquetas "+; SUBSTR(THISFORM.Nomreport,(RAT("\",THISFORM.Nomreport,1) + 1))+".XLS")) ENDIF **Grabar y Enviar MyMailItem.SAVE() MyMailItem.SEND() | |
| Respuesta: | Carlos Iturralde |
| En esta pagina hay una seccion de "Codigo Fuente", ahi encontraras un articulo sobre MSCOMM, esa es tu respuesta. | |