Object Library " e clique em "OK" . 
 3  Crie um novo procedimento para sub e definir os objetos do Outlook , adicionando o seguinte código VBA: 
 
 Private Sub createEmail () 
 
 Set outlookApp = CreateObject (" Outlook.Application " ) 
 
 Dim myItem As Object 
 
 Definir myItem = outlookApp.CreateItem ( olMailItem ) 
 4 
 Criar um novo item de e-mail , adicionando o seguinte código: 
 
 myItem.Subject = " assunto do email " 
 
 myItem.Body = " mensagem " 
 
 myItem.To = " [email protected] " 
 
 myItem.Send 
 5 
 editar a etapa anterior e digite um email válido endereçar ao lado de " myItem.To " para enviar o e-mail. Digite " End Sub " para terminar o processo e pressione " F5" para executar o procedimento e enviar o e-mail usando o Outlook . 
 6 
 Leia e-mail em sua pasta Caixa de entrada e exibi-lo em sua janela imediata , criando o seguinte procedimento sub : 
 
 Private Sub checkEmail () 
 
 Set olApp = CreateObject (" Outlook.Application " ) 
 
 Definir Mapis = OLApp.GetNamespace ( " MAPI " ) 
 
 Definir outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox ) 
 
 Para Cada mymail em outlookFolder.Items 
 
 Debug.Print myMail.Subject 
 
 Debug.Print myMail corpo 
 
 Próxima myMail 
 End Sub 
 
 7 
 Pressione " F5" . para executar o procedimento .