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 = " myname@myemail.com "
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 .