Macro enviar Email
Enviado: Qua Jan 09, 2019 8:59 pm
Boa noite,
Galera, eu tenho o codigo abaixo que peguei na net para enviar e-mail, como não tenho muito conhecimento em VBA as vezes que alterei o codigo sempre da erro.
na macro abaixo ele só insere os emails para as pessoa que quero enviar e o titulo, eu preciso que a macro coloque também emails em copia e que eu possa digitar o texto do corpo do e-mail.
se poderem me ajudar agradeço
Galera, eu tenho o codigo abaixo que peguei na net para enviar e-mail, como não tenho muito conhecimento em VBA as vezes que alterei o codigo sempre da erro.
na macro abaixo ele só insere os emails para as pessoa que quero enviar e o titulo, eu preciso que a macro coloque também emails em copia e que eu possa digitar o texto do corpo do e-mail.
Código: Selecionar todos
Private Sub CommandButton2_Click()
Dim NovoArquivoXLSX As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String
'Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc
sPlanAEnviar = "DADOS"
'Cria um novo arquivo excel
Set NovoArquivoXLSX = Application.Workbooks.Add
'Copia a planilha para o novo arquivo criado
ThisWorkbook.Sheets(sPlanAEnviar).Copy before:=NovoArquivoXLSX.Sheets(1)
Columns("A:Q").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'NovoArquivoXLS.Sheets(1).PasteSpecial xlValues
'Salva o arquivo
NovoArquivoXLSX.SaveAs ThisWorkbook.Path & "\" & sPlanAEnviar & ".xlsx"
sExcluirAnexoTemporario = NovoArquivoXLSX.FullName
'Envia o email
NovoArquivoXLSX.SendMail Recipients:=Array("email@teste.com"), Subject:="Relatorio de Corte"
'Fecha o arquivo novo
NovoArquivoXLSX.Close
'Exclui o arquivo criado apenas para ser enviado.
Kill sExcluirAnexoTemporario
End Sub
se poderem me ajudar agradeço