0149-Automatizando o envio de arquivos por e-mail

É possível enviar um arquivo de Excel diretamente pelo aplicativo de correio eletrônico.
Veremos inicialmente como fazê-lo na interface de usuário do Excel e em seguida algumas estratégias via VBA.

A partir do botão Office, é possível realizar o envio do arquivo (ou sua versão em pdf ou xps) como anexo.

Veremos agora o código VBA para envio da pasta de trabalho que contém a macro (Thisworkbook)

Sub Enviar_Arquivo()

Dim wbFile      As Workbook
Dim k           As Long
Dim Assunto     As String
Dim Confirmação As Boolean
Dim Destinatios

Set wbFile = ThisWorkbook

Destinatários = Array("envio@teste.com.br", "teste@teste.com.br")
Assunto = "Teste de envio de arquivo por email"
Confirmação = True

wbFile.SendMail Destinatarios, Assunto, Confirmação

End Sub

Como podem observar só é possível definir parâmetros básicos para o envio como uma lista de destinários e o assunto da mensagem. Não é possível definir um texto para o corpo do email. Futuramente veremos como é possível fazê-lo através de automação do Outlook.

In Excel We Trust

Marcado com: , , ,
Publicado em Nível: Avançado
3 comentários em “0149-Automatizando o envio de arquivos por e-mail
  1. eleadrno disse:

    Bom dia

    Gostaria de saber se alguem pode me ajudar,

    Tenho um planilha e gostaria de criar um botão que quando eu clicasse nesse botão disparesse o email para as pessoas desejadas.

    att>eleandro

  2. Rogerio disse:

    Cuidado na linha abaixo, pois “Destinatários” está com acento e não irá funcionar.

    Destinatários = Array(“envio@teste.com.br”, “teste@teste.com.br”)

    Para corrigir, alterem para:

    Destinatarios = Array(“envio@teste.com.br”, “teste@teste.com.br”)

    Att,

  3. Edimilson disse:

    Boa tarde! Estou tentando usar essa macro, porém ela executa e pede permissão, quando coloco que sim a mesma dá erro.

    Poderia me ajudar??

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 1,969,548

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.477 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: