Bom dia!!

Eu não baixei seu anexo, mas tente adaptar o código abaixo.

Fonte::
http://www.vbaexpress.com/kb/getarticle.php?kb_id=326

Sub EmailComOutlook()
     
    Dim oApp As Object, _
    oMail As Object, _
    WB As Workbook, _
    FileName As String
     
     
    Application.ScreenUpdating = False
     
    ActiveSheet.Copy
    Set WB = ActiveWorkbook
    FileName = "Temp.xls"
    On Error Resume Next
    Kill "C:" & FileName
    On Error GoTo 0
    WB.SaveAs FileName:="C:" & FileName
     
     
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
         'Descomente a linha abaixo para usar um destinatário
          '. To = "alguém@dominio.com"
          'Descomente a linha abaixo para usar um assunto
          '. Assunto = "Olhe para o meu livro!"
        .Attachments.Add WB.FullName
        .Display
    End With
     
    WB.ChangeFileAccess Mode:=xlReadOnly
    Kill WB.FullName
    WB.Close SaveChanges:=False
     
    Application.ScreenUpdating = True
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

Mestre Alexandre, valeu a atenção. Mas não é isso. O código acima salva o arquivo com temporário do tipo somente leitura e envia ele como anexo na mensagem do e-mail.
Isso dai é suave pra mim.

A pegada que quero é mandar a planilha no corpo do e-mail.
Até já consegui transformando a planilha atual num arquivo temporário do tipo htm. O email sai bonitinho com as informações da planilha. Só que se a planilha tem imagem, no corpo do e-mail não aparece as imagens no outlook. O resto das informações aparecem todas numa boa.

Atende as minhas necessidades, mas não está perfeito e isso me mata!!!!!!!!

Ajudem ae!!!!

Boa tarde!!

Enquanto o pessoal não lhe mande uma resposta mais precisa, tente adaptar esse..
Fonte:
http://www.anshumusing.co.in/sending-em ... vba-macro/

Sub emailingProgram()
    Dim olapp As Outlook.Application
    Dim objmail As Outlook.mailitem
    Dim pos As Integer
    Set olapp = Outlook.Application
    For Each xcell In Sheets("Sheet1").Range(Range("tolist"), _
        Range("tolist").End(xlDown))
        msgText = Range("Msg")
        xcell.Activate
        ActiveCell.Offset(0, 1).Select
        'Se você acha que o ID de e-mail está no padrão nome.sobrenome @ mail.com uso deste bloco iF
         'O código vai para a outra declaração se o primeiro nome não é mencionado"
        If Selection.Value = "" Then
            pos = InStr(1, xcell.Value, ".")
            Fname = Mid$(xcell.Value, 1, InStr(1, xcell.Value, ".") - 1)
        Else
            'Se você mencionou os primeiros nomes na coluna Nome essa parte vai lê-lo diretamente
            Fname = Selection.Value
        End If
        'Para cada uma das células presentes na lista Para que criar um item de email e enviá-lo
        Set objmail = olapp.CreateItem(olMailItem)
        objmail.BodyFormat = olFormatRichText
        'Definir o assunto, tenho mantido um Feliz Aniversário, Mude como por seu desejo
        objmail.Subject = "Feliz Aniversário " + UCase(Mid$(Fname, 1, 1)) + Mid$(Fname, 2)
        
        'Descomente a seguinte linha de código, caso você quiser enviar uma mensagem simples
        'objmail.Body = "Hi " + UCase(Mid$(Fname, 1, 1)) + Mid$(Fname, 2) + "," + Chr(13) + Chr(10) + msgText
        
        '-->Para usar uma imagem em seu e-mail ou um corpo HTML
        objmail.HTMLBody = "<p><font size='6' face='arial' color='red'><i>Dear " & UCase(Mid$(Fname, 1, 1)) + Mid$(Fname, 2) & "<br></font></p><br><p align='CENTER'><font size='5' face='COMIC SANS' color='RED'>Wishing you a Wonderful Birthday</p><br><br></font><p align='CENTER'><a href='http://www.abrahamsarah.com'><img src='http://www.abrahamsarah.com/bilder/Happy-Birthday005.png' width=450 height=412 border=0></a></a><br><br><br><p align='left'>Thanks & Regards <br><br/> _<p><p align='left'><br>Anshuman Pandey<br>http://www.anshumusing.co.in/</p>"
        objmail.To = xcell.Value
        objmail.Send
        Set objmail = Nothing
        
    Next xcell
End Sub

Att

Mestre Alexandre! Boa tarde. Só para dar um feedback.

Eu cansei de apanhar nesse assunto, e fui desenvolver uma outra necessidade. Agora que terminei me sinto com gás para ver se dessa vez consigo!
Vamos ver...

Graças a sua dica consegui.

Tú é fera cara! Obrigado!

Ola Senhores,

Acho que esse tópico é próximo do que preciso. Eu to criando uma rotina para enviar os dados da minha planilha para um compromisso no Outlook. Até ai, tudo ok, mas quero enviar no corpo do compromisso (email, como preferirem) eu quero que vá um intervalo de uma planilha, ou vários textbox. Inicialmente tentei colocar os dados de vários textboxes, mas estorou o limite de linhas. Dai eu pensei em enviar os dados para uma aba da planilha e depois pegar o intervalo da planilha e colocar no corpo do email, mas como fazer isso ? Pois simplesmente selecionar o intervalo não deu certo. Abaixo posto o código como ficou:

Sub Envia()

Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.Start = UserForm2.TextBox37 & "  " & UserForm2.txtH1
.End = UserForm2.TextBox38 & "  " & UserForm2.txtH2


.Subject = UserForm2.txtassunto

.Location = UserForm2.txtEND


.Body = Sheets("Plan4").Range("B2:C56")



'Seta o comprimisso para ser lembrado
.ReminderMinutesBeforeStart = 15 'tempo em minutos
.ReminderSet = True
.MeetingStatus = olMeeting


.Recipients.Add UserForm2.TextBox36



Set objRecurPattern = .GetRecurrencePattern
'Seta a recorrência da tarefa

'.Save
.Send
.Close (olSave)
End With

End Sub