VBA вставка в Outlook диапазона из Excel

[mrMad-Cat]

Добрый день, уважаемые коллеги.

Необходимо, чтобы в тело письма вставлялся массив из Excel.

Но все немного сложнее чем обычно:
1) Массив каждый раз может быть разным по размеру (то есть нельзя ограничить ячейками). Необходимо копировать просто весь кусок с данными. Как это указать в .Body= ?
2) Макрос запускается из MS Outlook 2010. Необходимо предварительно открыть заранее сохраненный файл xlsx, вставить в письмо нужный диапазон и закрыть файл xlsx.
В какой момент макроса создания письма это правильнее сделать и какими командами?

Макрос создания письма упрощенно выглядит сейчас так:

            Set objOutlookMsg = Application.CreateItem(olMailItem)
            With objOutlookMsg
            .SentOnBehalfOfName = "Отправитель"
            .To = "Адресаты"
            .Subject = "Тема"
            .Body = ""
            Set objOutlookAttach = .Attachments.Add(file_1)
            For Each objOutlookRecip In .Recipients
            objOutlookRecip.Resolve
            Next
            .Display
            End With

[doober]

Например так

[mrMad-Cat]

Возникла идея с игрой с буфером обмена:

Workbooks.Open Filename:="C:\Users\User\Desctop\file.xlsx"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy

    Windows("file.xlsx").Close

Выглядит довольно просто. Осталось передать значение буферобмена в тело письма и смотреть как оно вставляет. После чего можно закрыть файл.

doober, спасибо, как вариант приму к сведению. Немного закручено, и не хочу привязываться к конкретным столбцам так как они могут меняться.

[Dus_B]

Сообщение от mrMad-Cat

Возникла идея с игрой с буфером обмена:

Workbooks.Open Filename:="C:\Users\User\Desctop\file.xlsx"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy

    Windows("file.xlsx").Close

Выглядит довольно просто. Осталось передать значение буферобмена в тело письма и смотреть как оно вставляет. После чего можно закрыть файл.

Здравствуйте. Я понимаю, что тема старая, но я столкнулся с той же проблемой. Нужно вставить в тело письма табличку из Excel. Все решения которые нашел в интернете не работают, т.к. макрос запускается из-под Outlook и не работает publish в HTML. Может библиотеку какую подключить нужно?

Вариант с буфером обмена мне бы тоже подошел, но как макросом вставить в тело я не понял. Записи макросов в Outlook нет, а запись из Excel не видит процесс вставки в Outlook...

Уперся в стенку, уже сутки не могу понять, как решить. А решить нужно...

Прошу помощи! Уважаемый mrMad-Cat, решили ли вы проблему?

[AleksandrH]

Именно с Outlooka надо запускать макрос? Вариант ув. Doober не подходит?

[Dus_B]

Да, именно из Outlooka.

Макрос должен запускаться на автомате при получении письма.

[Dus_B]

Как я понял есть вариант "перекодирования" таблички в HTML. Но из-под Outlook, к сожалению, этот метод не сработал (не исключаю, что можно было чего-нибудь подключить, чтобы заработало).

Как посредством VBA сделать вставку из буфера обмена в тело письма не нашел.

Для себя я проблему решил через MailEnvelope.
http://www.rondebruin.nl/win/s1/outlook/bmail3.htm
Отправляется сразу из Excel выделенный диапазон или весь лист.
Минус, на мой взгляд, только лишь в том, что отправляется только он - больше ничего не добавить (ни подписи, ни надписи). Лично мне и не нужно было...
Предполагаемый очевидный плюс - в теле письма можно отправить и диаграмму. В просторах видел много желающих.
Сам еще не пробовал, но судя по тому что MailEnvelope есть свойство объекта Chart - диаграммы отправлять должен.

[AleksandrH]

только что делал:
запуск команды Range("A1:B4").Copy в екселю;
переключился в блокнот, скопировал вручную что либо
переключился в ексель и выполнил Range("d1").PasteSpecial
вставилось скопированое с блокнота
значи можно вставить с буфера.

Хотя Вам надо с xls -> outlook, тогда не знаю.

[mrMad-Cat]

К сожалению уже не помню дял каких целей я это хотел сделать и соответственно чем всё кончилось. Помоему у меня сменилась первоначальная задача и я просто вставлял файлы.
Так что врятли Вам помогу.

[Dus_B]

Сообщение от mrMad-Cat

К сожалению уже не помню дял каких целей я это хотел сделать и соответственно чем всё кончилось. Помоему у меня сменилась первоначальная задача и я просто вставлял файлы.
Так что врятли Вам помогу.

Спасибо за ответ.
Моя тема закрыта. Выше описал как решил...