Cómo utilizar Excel to Email

Enviar un e- ail de Microsoft Office Excel utilizando Visual Basic para Aplicaciones ( VBA) que puede ahorrar tiempo cuando se necesita para enviar los datos de su hoja de trabajo. Un método consiste en utilizar el sistema de gestión de correo electrónico Microsoft Outlook para enviar su correo electrónico de Excel. En Excel , puede utilizar VBA para automatizar las tareas manuales como el envío de un correo electrónico. Con VBA puede utilizar la biblioteca de objetos de Microsoft Outlook para automatizar las funciones de correo electrónico , tales como la creación y el envío de correo electrónico. Instrucciones
1

lanzamiento de Excel y haga clic en la pestaña " Developer " . Haga clic en " Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el menú " Herramientas" y haga clic en "Referencias ". Desplácese por la lista y marque la casilla junto a "

2 Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo de código . Escriba lo siguiente para crear un nuevo procedimiento para enviar correo electrónico :

Sub sendEmail ()

On Error GoTo Err_sendEmail :
3

Escriba lo siguiente para declarar las variables :

oLookApp As Outlook.Application

oLookMail As Outlook.MailItem

dataToSend dévil como secuencia
4

Escriba el después de crear los objetos de Outlook :

Set oLookApp = New Outlook.Application

Set oLookMail = oLookApp.CreateItem ( 0 )
5

Escriba el siguiente para agregar dos filas de datos : .

Range (" A1") Seleccione

ActiveCell.Value = "Test 1 Datos "

Range (" A2" ) Seleccione < br . >

ActiveCell.Value = "Test 2 Datos "
6

Escriba lo siguiente para guardar los datos en una variable de cadena : .

Range (" A1" ) Seleccione < . br>

dataToSend = ActiveCell.Value

Range (" A2" ) Seleccione

dataToSend = " Fila 1 :" & dataToSend & " .... Row 2 :" & ActiveCell.Value
7

Escriba lo siguiente para definir la información de correo electrónico y enviarlo: .

oLookMail

To = " [email protected] "

. Subject = "Email Excel "

. Cuerpo = dataToSend

. enviar

extremo con

Editar la dirección de correo electrónico y escriba un dirección de e-mail
8

Escriba lo siguiente para finalizar el procedimiento y capturar cualquier error : .

Exit_sendEmail :

Exit Sub

Err_sendEmail :

MsgBox Err.Description

Resume Exit_sendEmail :

End Sub
9

Press "F5 " para ejecutar el procedimiento y enviar un correo electrónico de Excel.