| Pregunta: | 48047 - ENVIAR DOS INFORMES POR EMAIL |
| Autor: | Laura L |
| Buenos días:
Necesito enviar varios informes realizados en Access a la misma dirección de correo electrónico.¿Alguien sabe cómo hacerlo? Lo realizo de la siguiente forma: DoCmd.SendObject acSendReport, "NombreInforme1",Email, , , , , False Pero así sólo sé enviar los informes de uno en uno. Gracias | |
| Respuesta: | Tony A |
| Puedes invtentar hacer dos lineas y enviar 2 correos o x cantidad con los reportes que quieres por ejemplo
DoCmd.SendObject acSendReport, \"NombreInforme1\",Email, , , , , False DoCmd.SendObject acSendReport, \"NombreInforme2\",Email, , , , , False DoCmd.SendObject acSendReport, \"NombreInforme3\",Email, , , , , False DoCmd.SendObject acSendReport, \"NombreInforme4\",Email, , , , , False DoCmd.SendObject acSendReport, \"NombreInforme...n\",Email, , , .False DE HECHO HOY HE ESTADO AVERIGUANDO ALGO DE ESO POR QUE LO NECESITO PARA UNA APLICACION PERO NO SE COMO LEER UN TXT QUE ME LLEGUE A MI BANDEJA DE ENTRADA DE OUTLOOK ESPERO TE HAYA SERVIDO.........SUERTE | |
| Respuesta: | Juan Amorós |
| Hola Laura:
Supongo que los informes serán correlativos: NombreInforme1 NombreInforme2 Nombre Informe3 .. ... NombreInformen Si es así, antes de: DoCmd.SendObject acSendReport, "NombreInforme1",Email, , , , , False Escribe: Dim a, b for a=1 to NUMERODELULTIMOINFORME b="NombreInforme" & a DoCmd.SendObject acSendReport, b,Email, , , , , False Next a Con esto te enviará los "n" informes que quieras. También puedes, en el formulario, crearte un campo donde le introduzcas el numero de informes que vas a enviar y, de esta forma, pondrías la instrucción "FOR" así: For a=1 to me!campoconnumerodeinformes (como se llame el campo) y el resto igual Si tienes dudas me lo dices Saludos Juan Amorós | |