Problema com macro Excel para envio de e-mail Outlook

Question

Galera, beleza tudo bem?

Trabalho em uma empresa na qual utilizo bastante o excel para criar gr&aacute;ficos de controles, indicadores e afins, hoje estou usando uma macro bem simples para apenas pegar estes gr&aacute;ficos e enviar a x emails de pessoas selecionadas para receberem na empresa, por&eacute;m precisei incluir mais gr&aacute;ficos e no envio deste email, mesmo o Range da Macro estando selecionada corretamente, os gr&aacute;ficos saem cortados no email enviado do Outlook, algu&eacute;m sabe se a macro teria um limite de range de envio ou seria algum bug? Abaixo Macro usada:

*OBS meus gr&aacute;ficos est&atilde;o da c&eacute;lula B2 at&eacute; a c&eacute;lula P110, por&eacute;m no email enviado pela Macro &eacute; recebido de B2 : 92, tudo abaixo desse limite sai cortado.

Sub enviar_corpo_email2()
 
    Range(B1 : 110).Select
 
    Selection.Copy

Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
 
    Sheets(Envio).Activate

Range(A1).Select

ActiveSheet.Paste

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction =

.Item.to = xxxx@xxxx.com.br;xxxx@xxxx.com.br
     
      .Item.Subject = PAINEL DI&Aacute;RIO - RECEITA - EBTIDA - KM VAZIO - AGREGADOS -2018

.Item.Send

End With

End Sub

Answer

[INDENT]T&oacute;pico movido da sala  Programas para sala  Su&iacute;tes de escrit&oacute;rio
[COLOR=#ff8000]
JAPICHIN[/COLOR]
Moderador[/INDENT]

Answer

Ol&aacute;....
tenta esta macro por favor!!

Sub enviar_corpo_email()
 
   ' Seleciona o intervalo de c&eacute;lulas a serem enviadas por email.
   ActiveSheet.Range(A1:B12).Select
 
   ActiveWorkbook.EnvelopeVisible = True
 
   With ActiveSheet.MailEnvelope
      .Introduction = 
      .Item.To = SeuEmail@exemplo.com
      .Item.Subject = T&iacute;tulo Assunto
      .Item.Send
   End With
End Sub

Veja se atende sua demanda!!

Boa Sorte!!

Answer

[QUOTE=Master_Irineu, post: 7943171, member: 1188993]Ol&aacute;....
tenta esta macro por favor!!

Sub enviar_corpo_email()
  
   ' Seleciona o intervalo de c&eacute;lulas a serem enviadas por email.
   ActiveSheet.Range(A1:B12).Select
  
   ActiveWorkbook.EnvelopeVisible = True
  
   With ActiveSheet.MailEnvelope
      .Introduction = 
      .Item.To = [EMAIL]SeuEmail@exemplo.com[/EMAIL]
      .Item.Subject = T&iacute;tulo Assunto
      .Item.Send
   End With
End Sub

Veja se atende sua demanda!!

Boa Sorte!![/QUOTE]

Ol&aacute;, quase deu certo meu caro, agora ele ao inv&eacute;s de cortar na P92 cortou um pouco mais abaixo tipo na P98, ser&aacute; que pode ser algum limite de envio de tamanho ou algo do tipo?

Answer

Olha nunca mandei algo t&atilde;o grande!!

porque n&atilde;o manda o arquivo em anexo ao inv&eacute;s da tela??

Answer

[QUOTE=Master_Irineu, post: 7943185, member: 1188993]Olha nunca mandei algo t&atilde;o grande!!

porque n&atilde;o manda o arquivo em anexo ao inv&eacute;s da tela??[/QUOTE]

Pior que a Diretoria pediu para ser o envio direto no corpo de email, ent&atilde;o para facilitar e n&atilde;o ter sempre que ficar copiando e colando a Macro estava sendo &oacute;tima, at&eacute; eu precisar incluir mais gr&aacute;ficos kk, mas cara obrigado pela ajuda.

Answer

e o que voc&ecirc; vai fazer??
diminuir as tabelas ou separa-las??

Answer

[QUOTE=Master_Irineu, post: 7943525, member: 1188993]e o que voc&ecirc; vai fazer??
diminuir as tabelas ou separa-las??[/QUOTE]

To pensando em ou diminuir o tamanho dos gr&aacute;ficos ou estender o tamanho para os lados, ao inv&eacute;s de pegar um range menor de largura, pegar maior de largura assim consigo enviar todas no mesmo email, mas isso de ultimo caso, antes vou dar mais uma ca&ccedil;ada, quem sabe tem uma macro de esperan&ccedil;a ainda que de certo kkk.

Answer

Consegui, ap&oacute;s pesquisar muito achei uma macro parecida que apenas reduziu um passo do que a minha j&aacute; fazia, macro abaixo para caso algu&eacute;m venha a ter o mesmo problema:

Sub envio_de_painel_di&aacute;rio()
 
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range([incluir a sua range de dados]).Select
 
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
 
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = [incluir uma intro se quiser]
      .Item.To = [incluir emails do(s) destinat&aacute;rios, separar por ;]
      .Item.Subject = [incluir t&iacute;tulo]
      .Item.Send
   End With
End Sub

Ferramentas

Mover Tópico