Cita: Set objEmail = CreateObject("CDO.Message")
objEmail.From = "
[email protected]"
objEmail.To = "
[email protected]"
objEmail.Subject ="el asunto"
objEmail.Textbody = "el cuerpo"
objEmail.AddAttachment "C:\carpeta\fichero.ext"
objEmail.Send
adáptalo a vba/access2k7 ...
salu2