Envio de e-mail

Question

Olá pessoal é possível enviar um e-mail apenas da planilha aberta

 

Answer 1

Primeiro crie um Módulo para escrever esta Rotina para enviar o email.

 

SUB EnviaEmail ()

  active.Workbook.sendMail

  "aqui vai o email do destinatário", "aqui vai o titulo do email"

END SUB

 

Sub EnviaEmailPlanilhaAtual()
Dim Novo As Workbook
Dim eEnviar As String
Dim eExcluir As String

 eEnviar = "Plan2"
 Set Novo = Application.Workbooks.Add
 Sheets(eEnviar).Copy Before:=Novo.Sheets(1)
 aquivaionomedoarquivoXLS.SaveAs ThisWorkbook.Path & "" & eEnviar & ".xls"
 eExcluir = Novo.FullName
 Novo.SendMail "aqui vai email do destinatário", "Título do Email"
 Novo.Close
 Kill eExcluir

End Sub

 

Até Mais..!!

 

 

---

Rafael Hoffmann