Envío de email

El código de la orden en VBA para enviar email's es el siguiente:DoCmd.SendObject [Tipo de objeto], [Nombre del objeto], [Formato del archivo], [Enviar A], [Enviar CC], [Enviar CC Oculta], [Texto del asunto], [Texto del cuerpo], [Abrir para modificar/Enviar]


Ejemplo 1 (envío del informe "Nóminas2010" en formato pdf):

DoCmd.SendObject acSendQuery, "Nóminas2010", "PDF", "email@email.com", "emailCC@email.com", "emailCCO@email.com", "Nóminas 2010", "Envío de Nóminas del año 2010 en PDF.", True

Ejemplo 2 (envío de la tabla "Empleados" en formato xls sin posibilidad para la modificación del mail):

Dim aCorreo as String

aCorreo = "email@email.com"

DoCmd.SendObject acSendTable, "Empleados", "XLS", aCorreo, , , "Empleados", "Envío de hoja Excel con listado de Empleados.", False

Ejemplo 3 (envío de email al director para informar que se ha enviado email de empleados):

Dim aCorreo as String

aCorreo = "email@email.com"

DoCmd.SendObject , , , "director@email.com", , , "Aviso de acceso", "Se ha accedido a la tabla de empleados y se ha enviado un email a " & aCorreo & ".", False