fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.
Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.
Alguem pode me ajudar?
segue o codigo ( esse codigo só abre o excel )
Sub MandaEmail()
Sub MandaEmail()
Dim EnviarPara As String
Dim Mensagem As String
For i = 1 To 1
EnviarPara = Worksheets("Tabela").Cells(5, 35)
If EnviarPara <> "" Then
Mensagem = Worksheets("Tabela").Cells(6, 35)
Texto = Worksheets("Tabela").Cells(7, 35)
Envia_Emails EnviarPara, Mensagem
End If
Next i
End Sub
Sub Envia_Emails(EnviarPara As String, Mensagem As String)
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = EnviarPara
.CC = ""
.BCC = ""
.Subject = Mensagem
.Body = "Bom dia"
.Display ' para envia o email diretamente defina o código .Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
End Sub Sub Envia_Emails(EnviarPara As String, Mensagem As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = EnviarPara .CC = "" .BCC = "" .Subject = Mensagem .Body = "Bom dia" .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub