| Pregunta: | 61226 - ENVIAR MAILS CON ARCH. ADJ. EN FOX PRO 2.6W |
| Autor: | Ariel Sandilo |
| Tengo una aplicacion en Fox pro 2.6w, necesito enviar mails adjuntando archivos de Exel, que son generados con esta aplicion mediante el comando EXPORT TO &NARCH XLS. Desde ya Muchas gracias..... | |
| Respuesta: | Luis A. Barrantes A |
| **Parametros de destino FOR inifor = 1 to 2 IF inifor=1 strRecipient = CUR_SBPERSONAL.emailuser Else strRecipient = CUR_SBPERSONAL.emailjefat Endif strSubject = "Ingreso de un(a), Proyecto o tarea" strBody0 = "El Sistema de TRACKING,le notifica que se generado una tarea o proyecto, "+CHR(13) strBody1 = "Depto/Origen "+ALLTRIM(ThisForm.TAREAS.n_departa.value)+CHR(13) strBody2 = "Dependencia" +ALLTRIM(ThisForm.TAREAS.n_DEPEND.value)+CHR(13) strBody3 = "Asignado a " +ALLTRIM(ThisForm.TAREAS.n_Personal.DisplayValue)+CHR(13) strBody4 = "Con prioridad"+ThisForm.TAREAS.n_PRIORIDADES.displayvalue+CHR(13) strBody5 = "Jefatura Notificada."+CHR(13)+CHR(13) strBody6 = "Detalle de la tarea.."+CHR(13) strBody= strBody0+strBody1+strBody2+strBody3+strBody4+strBody5+strBody6 **Archivos Adjunto *xarchivos="'"+GETFILE()+"'" *theMailItem.Attachments.Add(&xarchivos) && si quieres enviar archivo adjunto a mi me funcion perfecto, espero que te funciones ** Parametros del objeto SBOJECT = CreateObject("Outlook.Application") theNameSpace = SBOJECT.GetNameSpace("MAPI") theNameSpace.Logon("sb","sb") SBOJECT.ActiveExplorer.CurrentFolder theMailItem = SBOJECT.CreateItem(0) theMailItem.Recipients.Add( strRecipient ) theMailItem.Subject = strSubject theMailItem.Body = strBody theMailItem.Send theNameSpace.Logoff ENDFOR | |