Boa tarde!!

Enquanto o pessoal não responde, leia:
http://www.rondebruin.nl/win/section1.htm

Att

Segue código de uma macro similar em que possuo.

Não consegui baixar a planilha pois o computador do meu trabalho bloqueia.

Não sou especialista, mas espero ajudar.

'salva arquivo
Arquivo = "Exemplo.xlsm"
PastaArq = "C:UsersNOME DO USUÁRIODesktop" & Arquivo

Workbooks(Arquivo).Activate

ActiveWorkbook.SaveAs ( PastaArq)

'cria e-mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
    .To = ThisWorkbook.Sheets("Plan1").Range("D3").Value 'DESTINATÁRIOS
    .CC = ThisWorkbook.Sheets("Plan1").Range("D4").Value' CÓPIA
    .BCC = ""
    .Subject = "TÍTULO DO E-MAIL"
    Dim corpo As String
 
    corpo = "Prezados," & vbCr & vbCr
    corpo = "Segue em anexo...." 
    .Body = corpo 'corpo do e-mail
    .Attachments.Add PastaArq 'Anexo
    .Display
End With
    Set OutMail = Nothing
    Set OutApp = Nothing

Eu utilizo este porém ao invés de pastas eu colo somente células no corpo do e-mail , veja se dá pra adaptar
Sub email1()
'
' Atalho do teclado: Ctrl+Shift+D
Dim rngUserSelect As Range

Set rngUserSelect = Application.InputBox("Selecione seu Intervalo", Type:=8)

ActiveWorkbook.EnvelopeVisible = False
With ActiveSheet.MailEnvelope
.Introduction = "Bom dia Srs(ª), Segue todos os atrasos até o dia de hoje. Aguardo retorno"
.Item.To = Range("G1").Text
.Item.Cc = ""
.Item.Subject = "ATRASOS" ' Assunto do e-mail
.Item.Send
End With

End Sub

Obrigado a todos!! Utilizei a forma que Vguedes pois se adequava mais ao que precisava. Ainda tenho muitos detalhes que estou tentando arrumar mas essa macro já me ajudou muito.
Vlw!!! Abraços