Guru do Excel e Power BI

Sub EnviarEmail()

'Declarar
Dim OutlookApp As Outlook.Application
Dim EmailItem As Outlook.MailItem

'Instanciar
Set OutlookApp = New Outlook.Application
Set EmailItem = OutlookApp.CreateItem(olMailItem)

'Definir
With EmailItem
    
    .To = ActiveSheet.Cells(2, 3)
    .Subject = ActiveSheet.Cells(2, 4)
    .Body = ActiveSheet.Cells(2, 5)
    [color=#FF0000].Attachments.Add = ActiveSheet.Cells(2, 6).Value[/color]
    '.Attachments.Add = \\FS01\inteligencia mercado\novo relatorio de itens vendidos\final\teste salvando varios arquivos\28.xlsx
    
    

            
    '.Display    'Para mostrar ao inves de enviar
    .Send       'Para enviar direto
End With

'Limpar
Set EmailItem = Nothing
OutlookApp.Quit             'Deixar caso voce envie o email direto, caso contrario apagar
Set OutlookApp = Nothing




End Sub

Sub Envia_Email_CAnexo()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet: Set ws = Sheets("Planilha1")
    Dim enviad As String
    enviad = 0
    'Path do anexo ao email a ser enviado
    Set Rng = ws.Range(Range("F3"), ws.Range("F" & Rows.Count).End(xlUp))
    For Each cell In Rng
        rw = cell.Row
        Path = cell.Value
        If Path <> "" Then
            ' endereco de Email
            ToNome = Cells(rw, 3).Value
                    AttachFile = Path
                    MailBody = Cells(rw, 5).Value
                    Set OutApp = CreateObject("Outlook.Application")
                    Set OutMail = OutApp.CreateItem(o)
                    With OutMail
                        .Subject = Cells(rw, 4).Value
                        .To = ToNome
                        .Body = MailBody
                        .Attachments.Add (AttachFile)
                        '.Display
                        .Send
                        enviad = enviad + 1
                    End With
                    Set OutMail = Nothing
                    Set OutApp = Nothing
                    RecpList = ""
                End If
    Next
    If enviad = 0 Then
    MsgBox "Nenhum email enviado", 64, "AVISO"
    Else
    MsgBox enviad & " enviados da sua lista de emails!", 0, "SUCESSO"
    End If
End Sub