VBA Excel: Envie um email com sua planilha a partir do Excel

Avatar de usuário
Bernardes
Iniciado
Iniciado
Status:
Mensagens: 599
Registro: 04 Nov 2008
Localização: São Paulo - SP
Karma: [32] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

VBA Excel: Envie um email com sua planilha a partir do Excel

Mensagem por Bernardes » 06 Mai 2009

Já imaginou enviar sua mensagem diretamente para as pessoas que deseja apenas pelo pressionamento de teclas de combinação ou um pequeno botão na planilha?

Pois isso será possível através do código abaixo:

Não se esqueça de efetuar as referências ao MS Outlook. Este código deve ser colocado num módulo dentro do MS Excel.


Código: Selecionar tudo
Sub MailPlan()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
  .To = "bernardess@gmail.com"
  .Subject = "A&A: Teste de envio a partir do Excel " & Format$(DateAdd("m", -1, Date), "mmmm")
  .Body = "A assiduidade do mês de " & Format$(DateAdd("m", -1, Date), "mmmm")

  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs ("c:\teste.xls")
  Application.DisplayAlerts = True

  .Attachments.Add ActiveWorkbook.FullName
  'No Excel 97 use ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
  .Display 'ou para enviar direto sem interface use .Send

End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Clique no botão , ao lado esquerdo, caso tenha achado interessante!
Editado pela última vez por Bernardes em 07 Set 2010, num total de 1 vezes

Igor Carelli
Membro
Membro
Status:
Mensagens: 1
Registro: 05 Abr 2010
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: VBA Excel: Envie um email com sua planilha a partir do Excel

Mensagem por Igor Carelli » 05 Abr 2010

Olá amigo.

Gostaria de saber como faço para, ao invés de anexar a planilha ao email, copiar uma parte de uma tabela no corpo do email.

PS: utilizo o Excel 2007.

Grato.

Avatar de usuário
Guima
Iniciado
Iniciado
Status:
Mensagens: 492
Registro: 06 Abr 2009
Karma: [22] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: VBA Excel: Envie um email com sua planilha a partir do Excel

Mensagem por Guima » 05 Abr 2010

Tomara que eu queime a língua... mas esse senhor ai raramente responde as perguntas no fórum, em geral apenas copia alguns arquivos pela internet e posta aqui....

Veja se esse link te atende. Começam falando de anexar a planilha, mas depois tem um código de colocar os dados no corpo da mensagem, espero que te ajude.

http://www.juliobattisti.com.br/forum/f ... o+do+email


[]'s
Sub Guilherme_Initialize()
If Me.Guima <> "" Then
MsgBox "Obrigado pela força "
Else
MsgBox "Conto com sua colaboração "
End If
End Sub

Avatar de usuário
adilsonsoledade
Guru
Guru
Status:
Mensagens: 2017
Registro: 01 Fev 2009
Localização: São Paulo / SP
Karma: [178] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: VBA Excel: Envie um email com sua planilha a partir do Excel

Mensagem por adilsonsoledade » 05 Abr 2010

Adilson Soledade

Blog: usuariosdoexcel.wordpress.com
Facebook: facebook.com/usuariosdoexcel
Twitter: @usuariosdoexcel
A resposta foi útil? Vote no botão ao lado


Retornar para VBA

Quem está online

Usuários vendo este fórum: thiago.ba.ol e 16 visitantes

PUBLICIDADE