Email Simples

Exercício Básico

Enunciado

Envie um email simples, contendo texto sem uma formatação específica, que funcione em todas as versões do Outlook. No corpo do texto informe o lucro líquido do DRE.

Nota: É preciso ter o Outlook configurado para realizar este exercício.

Conceitos Sugeridos:

Dim - Declara variáveis.
Biblioteca Outlook - Permite a interação do VBA com o Outlook.
Set - Atribui uma referência de objeto a uma variável ou propriedade.
With - Executa uma série de instruções em um único objeto definido pelo usuário

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Para o código funcionar em todas as versões do Outlook é necessário utilizar uma técnica chamada "late binding", na qual o método não depende de habilitar uma biblioteca do OutLook.

Coloque o .Display do email logo após o .BodyFormat, caso contrário a assinatura do email poderá ser omitida. Não se esqueça também de colocar & .body no final do corpo do texto, caso contrario a assinatura também poderá será omitida.

Exercício Resolvido

Resolvendo o Problema

Declaramos as variáveis

Dim OlOut As Object
Dim OlMail As Object
Dim Result As String

Atribuímos a uma variável "String" os dados da planilha que queremos enviar no email
```
Result = Range("A12") & vbTab & Range("D12")
```
Definimos a variável OlOut como o OutLook e OlMail como a criação de um email do Outlook
```
Set OlOut = CreateObject("OutLook.Application")
Set OlMail = OlOut.CreateItem(0)
```

Determinamos o tipo de email, o corpo do texto, o título, o destinatário, e enviamos.

With OlMail
    .Bodyformat = 1
    .Display
    .body = "Caros," & vbNewLine & "Segue o resultado do exercício de 2016." & vbNewLine & vbNewLine & Result & .body
    .Subject = "Email Simples"
    '.To = "fulano@gmail.com"
    '.Send
End With

Cuidado: É muito comum enviar emails com erros. Por isso, cheque muito bem seu código antes de colocar o .Send.

Código Consolidado

    Sub Resolucao()

    Dim OlOut As Object
    Dim OlMail As Object
    Dim Result As String

    Result = Range("A12") & vbTab & Range("D12")

    Set OlOut = CreateObject("OutLook.Application")
    Set OlMail = OlOut.CreateItem(0)

    With OlMail
        .Bodyformat = 1
        .Display
        .body = "Caros," & vbNewLine & "Segue o resultado do exercício de 2016." & vbNewLine & vbNewLine & Result & .body
        .Subject = "Email Simples"
        '.To = "fulano@gmail.com"
        '.Send
    End With

    End Sub

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO