Microsoft Office
Ver Más instrucciones
1
Inicio Microsoft Office Excel y seleccione la ficha " Developer " . Haga clic en " Visual Basic ".
Escriba lo siguiente para crear un nuevo procedimiento :
"Sub sendEmailUsingVBA ()"
Type " Enter"
2
Escriba lo siguiente para declarar las variables :
" ESUB Dim As String Dim
ePara As String Dim
eBody As String Dim
eMailObj As Variant
eMailItem Dim As Variant "
3
Escriba lo siguiente para definir el tema, e-mail y cuerpo:
" ESUB = "Envío de correo electrónico utilizando VBA "
ePara =" destinationEmail@yahoo.com "
eBody = " Envié este correo electrónico usando Excel y VBA ! ""
4
Tipo lo siguiente para crear los objetos que se utilizan para enviar el correo electrónico :
"Establecer eMailObj = CreateObject ( " Outlook.Application " )
Set eMailItem = eMailObj.CreateItem ( 0 ) "
5
Escriba el siguiente para enviar el correo electrónico : . .
"Con eMailItem
Subject = ESUB
To = ePara
. Cuerpo = eBody
. enviar
End With "