none
Envio de multiplos range do excel por e-mail (outlook) RRS feed

  • Pergunta

  • Pessoal, 

    Vejam se podem me auxiliar. Preciso automatizar o envio 3 ranges de uma planilha ativa a um e-mail específico. Encontrei o código a seguir e ele faz exatamente o que preciso, entretanto não tenho conhecimento de como adicionar um ou mais range a ser enviado no corpo do e-mail.

    Ficaria grato se alguém puder me auxiliar.

    Sub Send_Range()
       
       ' Select the range of cells on the active worksheet.
       ActiveSheet.Range("A1:B5").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 = "This is a sample worksheet."
          .Item.To = "E-Mail_Address_Here"
          .Item.Subject = "My subject"
          .Item.Send
       End With
    End Sub

    terça-feira, 8 de abril de 2014 23:47

Respostas

Todas as Respostas