Notifications
Clear all

Colando uma tabela de dados em um e-mail do Outlook

7 Posts
2 Usuários
0 Reactions
1,140 Visualizações
(@vigue)
Posts: 6
Active Member
Topic starter
 

E ae pessoal, tudo bom?

Dei uma procurada boa aqui no fórum e não consegui achar nada relacionado a este assunto.

O problema é o seguinte: eu preciso que a macro cole uma tabela do excel no corpo do e-mail. Não pode ser em PDF nem imagem, pois estes eu já sei fazer. Preciso que seja como se fosse um simples copiar e colar manual mesmo, mantendo toda a formatação correta da tabela.

Já tentei de algumas formas aqui, mas não consegui resolver de maneira razoável.

Alguém tem alguma luz?

Viguê.

 
Postado : 23/10/2015 2:25 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

use a pesquisa:
viewtopic.php?f=10&t=6677

ou:
http://cse.google.com.br/cse?cx=partner ... do%20email

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/10/2015 2:40 pm
(@vigue)
Posts: 6
Active Member
Topic starter
 

Alexandre, boa tarde!

Conforme expliquei na minha mensagem, já havia usado a pesquisa e não encontrei nada relacionado ao assunto.

Vi o post que você me indicou e lá ele trata apenas de um copiar e colar infomações dentro do próprio Excel. O que eu preciso é que a macro copie uma tabela do Excel e cole-a no corpo de um e-mail do Outlook (que já vai ter sido gerado pela macro que possuo) sem perda de formatação.

A pesquisa que você indicou no Custom Search do Google também não me trouxe novidades, infelizmente.

Continuo precisando de ajuda.

 
Postado : 23/10/2015 2:51 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se ajuda.

'Fonte:http://stackoverflow.com/questions/15675414/add-attachement-to-outlook-with-varying-file-names
Sub Test()
    Dim strLocation As String

    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hello World!"
'Caminho do seu anexo
        strLocation = "C:UsersDesktopTodayHome Audio for Planning" & Format(Now(), "_DD-MM-YYYY") & ".xlsx"
        .Attachments.Add (strLocation)
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub

Leia:
http://www.rondebruin.nl/win/s1/outlook/mail.htm
http://www.thespreadsheetguru.com/blog/ ... gh-outlook

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/10/2015 9:25 am
(@vigue)
Posts: 6
Active Member
Topic starter
 

Olá alexandre!

Obrigado pela ajuda, mas a sua macro é para anexar o arquivo de excel todo. Eu precisava somente de uma tabela dentro do arquivo.

De qq forma, o link que você colocou do De Bruin tem uma macro que faz exatamente o que eu precisava. Nunca conseguiria fazer sem auxílio, fato!

Obrigado e abraços!

 
Postado : 26/10/2015 8:31 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

O problema é que eu não uso OutLook, por isso não posso testar, mas qual o link ou parte do post que faz exatamente o que você quer?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/10/2015 8:33 am
(@vigue)
Posts: 6
Active Member
Topic starter
 

Alexandre, bom dia!

Desculpe a demora, só vi agora o que você havia perguntado!

O link do De Bruin que fala sobre isso é http://www.rondebruin.nl/win/s1/outlook/bmail2.htm

Obviamente eu precisei ajustar de acordo com as minhas necessidades e retrabalhei a macro dele, mas a espinha dorsal da macro é toda deste link!

Abraços.

 
Postado : 04/11/2015 7:46 am