Object Library. "
2 Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo de código . Digite o seguinte para criar um novo procedimento para enviar e-mail :
Sub sendEmail ()
On Error GoTo Err_sendEmail :
3
Digite o seguinte para declarar as variáveis :
Dim oLookApp Como Outlook.Application
Dim oLookMail Como Outlook.MailItem
Dim dataToSend as String
4
Digite o seguinte para criar os objetos do Outlook :
Set oLookApp = New Outlook.Application
Definir oLookMail = oLookApp.CreateItem (0)
5
Digite o seguinte para adicionar duas linhas de dados : . .
Range (" A1") Selecione
ActiveCell.Value = " Teste de uma data"
Range (" A2 " ) Selecione < br >
ActiveCell.Value = " Teste 2 de dados"
6
Digite o seguinte para salvar os dados em uma variável string: .
Range (" A1") Selecione
dataToSend = ActiveCell.Value
Range (" A2 " ) Selecione
dataToSend = ". linha 1 :" & dataToSend & ".... linha 2 :" & ActiveCell.Value
7
Digite o seguinte para definir as informações de e-mail e enviá-lo : .
com oLookMail
Para = " [email protected] " < br >
. Subject = "E-mail Excel "
. corpo = dataToSend
. enviar
End With
Edite o endereço de email e digite um endereço de e-mail de trabalho
8
Digite o seguinte para terminar o procedimento e capturar todos os erros : .
Exit_sendEmail :
Exit Sub
Err_sendEmail :
MsgBox Err.Description Resume
Exit_sendEmail :
End Sub
9
Pressione " F5" para executar o procedimento e enviar um e-mail Excel.