3 Crear un nuevo procedimiento sub desde y definir los objetos de Outlook agregando la siguiente código VBA :
Private Sub createEmail ()
Set outlookApp = CreateObject ( " Outlook.Application " )
miElemento Dim As Object
Set miElemento = outlookApp.CreateItem ( olMailItem )
4
Crear un nuevo elemento de correo electrónico con el código siguiente :
myItem.Subject = "email tema "
myItem.Body = "Mensaje de correo"
myItem.To = " myname@myemail.com "
myItem.Send
5
Editar el paso anterior e introduzca un email válido abordar junto a " myItem.To " para enviar el correo electrónico. Tipo "End Sub " para poner fin al procedimiento y presione "F5 " para ejecutar el procedimiento y enviar el correo electrónico con Outlook .
6
leer el correo electrónico en la carpeta Bandeja de entrada y la muestra en la ventana Inmediato creando el siguiente procedimiento sub :
Private Sub checkEmail ()
Set olApp = CreateObject ( " Outlook.Application " )
Set MAPIS = OLApp.GetNamespace ( " MAPI ")
Set outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox )
For Each MyMail En outlookFolder.Items
Debug.Print myMail.Subject
Debug.Print MyMail . Cuerpo
Siguiente MyMail
End Sub
7
Press "F5 " para ejecutar el procedimiento .
