Skip to main content

Gerar um aquivo e anexar no e-mail com vba

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()
    
    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
John Hebert
  • 147
  • 1
  • 3
  • 12