Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Colar uma Range no ...
 
Notifications
Clear all

Colar uma Range no Outlook

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
7 Posts
4 Usuários
0 Reactions
3,746 Visualizações
RSS
 Vguedes
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Prezados,

Estou preparando uma macro em que finaliza mandando uma determinada tabela selecionada por e-mail, colada como bitmap.

Estou com dificuldade na linha de código na qual cola a 'Range' já selecionada no Outlook.

Alguém saberia me ajudar?

Segue o exemplo de código abaixo

Obrigado!

Range("a3:n42").Select  ' <==== SELECIONA A TABELA NA QUAL PRETENDO ENVIAR POR E-MAIL
Selection.Copy

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
    .To = ThisWorkbook.Sheets("E-Mail").Range("C2").Value
    .CC = ThisWorkbook.Sheets("E-Mail").Range("C3").Value
    .BCC = ""
    .Subject = "Previsão de Vazões ONS - " & Revisao & " - " & mes
    Dim corpo As String
 
    corpo = "Prezados," & vbCr & vbCr
    corpo = corpo & "Segue abaixo tabela" & vbCr & vbCr
    'COLAR A TABELA AQUI!!    
    .Body = corpo
    .Attachments.Add PastaArq
    .Display
End With
    Set OutMail = Nothing
    Set OutApp = Nothing
 
Postado : 06/02/2014 1:36 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Vguedes,

Boa Noite!

Segue arquivo que faz exatamente isso que você quer. Esse código (e o próprio arquivo) não são meus. Todos os créditos são para o pessoal do site http://www.saberexcel.com.br

Estude-o e faça as suas necessárias adaptações.

Envia a tabela para o corpo do email.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 06/02/2014 4:47 pm
 Vguedes
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Obrigado Wagner! Fiz as adaptações e consegui colar a tabela no corpo do e-mail!

Apenas uma coisa, para adicionar um texto no e-mail ("Segue abaixo tabela...") como faria? Dessa maneira no corpo do e-mail só fica o "Range" do excel.

Será que eu teria que escrever o texto no excel?

 
Postado : 07/02/2014 7:04 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Basta você inserir o texto antes da planilha, como no exemplo abaixo:

    stHTMLBody = "Segue a planilha solicitada." & vlor_text.ReadAll

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/02/2014 7:47 pm
 fabiobraga
(@fabiobraga)
Posts: 1
New Member
 

Caro moderador, tentei baixar a planilha de exemplo mas a mesma está corrompida. É possível publicá-la novamente?

 
Postado : 14/09/2015 5:07 pm
 LuisCosta
(@luiscosta)
Posts: 1
New Member
 

Eu também tentei baixar e estava corrompido. Podem ajudar?

 
Postado : 09/05/2016 10:07 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

LuisCosta,

OK.

Segue arquivo novamente.

Envia a tabela para o corpo do email.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/05/2016 10:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico