Cómo utilizar Excel para Enviar

El envío de un e-ail de Microsoft Office Excel utilizando Visual Basic para Aplicaciones (VBA) le puede ahorrar tiempo cuando se necesita para enviar por correo electrónico los datos de la hoja de cálculo. Un método consiste en utilizar el sistema de gestión de correo electrónico Microsoft Outlook para enviar su correo electrónico desde Excel. En Excel, puede utilizar VBA para automatizar 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 Lanzar Excel y haga clic en la pestaña "desarrollador". Haga clic en "Visual Basic" para abrir la ventana de Visual Básico Microsoft. Haga clic en el menú "Herramientas" y haga clic en "Referencias". Desplazarse hacia abajo el cuadro de lista y marque la casilla junto a "Microsoft Outlook <número de versión> Biblioteca de objetos."

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

Sub sendEmail ()

On Error GoTo Err_sendEmail:

3 Escribe lo siguiente para declarar sus variables:

Dim oLookApp As Outlook.Application

Dim oLookMail Como Outlook.MailItem

Dim como secuencia dataToSend

4 Escriba lo siguiente para crear los objetos de Outlook:

Set oLookApp = New Outlook.Application

Establecer oLookMail = oLookApp.CreateItem (0)

5 Escribe lo siguiente para agregar dos filas de datos:

Range("A1").Select

ActiveCell.Value = "Prueba 1" de datos

Range ( "A2"). Seleccionar

ActiveCell.Value = "Test 2 Datos"

6 Escribe lo siguiente para guardar los datos en una variable de cadena:

Range("A1").Select

dataToSend = ActiveCell.Value

Range ( "A2"). Seleccionar

dataToSend = "Fila 1:" Y dataToSend & ".... Fila 2:" Y ActiveCell.Value

7 Escribe lo siguiente para definir la información de correo electrónico y enviarlo:

With oLookMail

.Para = "[email protected]"

.SUBJECT = "Correo Excel"

.Body = DataToSend

.enviar

Terminar con

Editar la dirección de correo electrónico e introducir una dirección de correo electrónico de trabajo.

8 Escribe lo siguiente para finalizar el procedimiento y la captura de los errores:

Exit_sendEmail:

Exit Sub

Err_sendEmail:

MsgBox Err.Description

Reanudar Exit_sendEmail:

End Sub

9 Pulse la tecla "F5" para ejecutar el procedimiento y enviar un correo electrónico desde Excel.