none
Email pelo VBA RRS feed

  • Pergunta

  • Olá,

    Como faço pra copiar um intervalo de células do Excel, colar no corpo de um email do Outlook e enviar?

    P.S.: Isso tudo via VBA.

    Desde já agradeço.

     

    sábado, 10 de maio de 2008 16:36

Respostas

Todas as Respostas

  • Dê uma olhada na referência abaixo:

    http://www.rondebruin.nl/mail/folder3/mail4.htm

    [ ]s

     

    segunda-feira, 12 de maio de 2008 10:50
  • Boa noite,

    Estou fazendo um codigo onde enviarei um email a uma pessoa caso uma situação ocorra. O problema é que eu consigo colocar no corpo do email, um range do excel caso a situação ocorra, mas eu gostaria também de inserir o cabeçalho da planilha, que é constante , no corpo do email. Ou seja eu juntaria a linha do cabeçalho com a linha que cair na condição proposta. Abaixo uma parte do código, sublinhado está a linha variavel, como podera acrescentar o cabeçalho, para irem juntos no email?Alguém poderia me ajudar ??Obrigado.

    Sub Send_Range()
       
       ' Select the range of cells on the active worksheet.
       ActiveSheet.Range(cells(a,1),cells(a,9).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
          .Item.To = Cells(2, 10)
          .Item.BCC = ""
          .Item.Subject = "Desempenho da Unidade " & Cells(10, 4) & " - Certificação de Excelência em Gestão"
          .Item.send
       End With
    End Sub

    quarta-feira, 6 de abril de 2016 04:33