1
Inicio Microsoft Office 2007 y seleccione la pestaña de " desarrolladores" . Haga clic en "Visual Basic " y seleccione " Herramientas ". Haga clic en "Referencias " cheque " de Outlook 12.0 biblioteca de objetos de Microsoft " y seleccione
2
Escriba lo siguiente para crear un nuevo sub " Aceptar". :
Sub sendEmail ()
Pulse " Enter".
3
Escriba lo siguiente para crear sus variables:
oLookApp As Outlook.Application
Dim oLookMail Como Outlook.MailItem
4
Escriba lo siguiente para asignar el objeto de vista y crear un nuevo correo electrónico :
Set oLookApp = New Outlook.Application
Set oLookMail = oLookApp.CreateItem ( 0 )
5
Escriba lo siguiente para definir las variables de su correo electrónico: .
oLookMail
To = " john.doe @ yahoo . com "
. Subject = " Mi libro "
. Cuerpo = " Soy un correo electrónico a este libro .. "
. Attachments.Add ActiveWorkbook.FullName
. enviar
End con fotos de 6
Ejecutar su sumiso al email el actual libro de Excel.