none
Dúvida inserir várias células no email RRS feed

  • Pergunta

  • Pessoal existe o código:

    Sub Auto_open()

    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments

    With myItem
        .to = Range("D2").Value
        .Subject = "Licença " & Range("A2").Value
        .Body = "Mensagem" 
        .Save
        .Send
    End With
    End Sub

    Eu tenho a dúvida de como no corpo da mensagem inserir as células de A2 até J10 da planilha "Plan 1" e, em baixo o conteúdo da célula A3:I5 da planilha "Plan 2".
    Essas célualas estão na fomra de tabela, então gostaria que estivesse inserido da mesma forma que está no meu Excel.

    Alguém pode me ajudar?

    terça-feira, 29 de maio de 2012 17:02

Respostas