Envio de e-mail através do excel

Question

Utilizo o seguinte comando VBA para enviar dados de uma planilha no corpo do e-mail automaticamente, no entanto de uns dias para cá os e-mails que não tinham nem 100k passaram a ter 700k (muitas linhas em branco no corpo do e-mail), fato este que está deixando o outlook um pouco lento por entender que o e-mail é extenso.

Sub Envio_email´s()

'

' Envio_email´s Macro

'

    Windows("Envio de E-mail.xlsb").Activate

    Sheets("Plan1").Select

    Range("A1").Select

    ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope

      .Introduction = ""

      .Item.To = ""

      .Item.Cc = ""

      .Item.Subject = ""

      .Item.Send

   End With

    End Sub

Preciso de um comando que envie apenas parte selecionada da planilha.

Answer 1

Olá, CarlosGuedes.jf, tudo bem?    

Seja bem-vindo à Comunidade Microsoft.

Aconselho que poste a sua dúvida no link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinados para desenvolvedores e profissionais em TI.

• **:: MSDN ::**

Se a resposta ajudou de alguma forma, por favor, marque como resposta, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente.   

Espero ter ajudado, até mais!