VBNet - Форум - Excel+Outlook: Отправка в теле письма таблицы

Вопрос: Excel+Outlook: Отправка в теле письма таблицы Добавлено: 15.08.07 17:33

Автор вопроса: crash

Привет!

Столкнулся с проблемой, которую самостоятельно "победить" не смог .

Вводная:
Excel'ный документ с набором макросов и данных.

Что хотелось получить:
Необходимо сформировать тело письма, в которое надо вставить определенный Range таблицы (10x10 ячеек) и добавить текст ниже таблицы (не связано с таблицей).

Как я пытался сделать:

Private Sub CommandButton1_Click()
    Dim mailApp As Outlook.Application
    Dim dfg As Object
    Dim BodyText As String

' ищу Outlook - запущен/не запущен
    lngRetVal = FindWindowByClass("rctrl_renwnd32", 0&)

    If lngRetVal <> 0 Then
    Set mailApp = GetObject(, "Outlook.Application")
        Else
    Set mailApp = CreateObject("Outlook.Application")
    End If

    Set objMail = mailApp.CreateItem(olMailItem)
    Set dfg = objMail.Recipients.Add("test@test.ru")
    dfg.Type = olTo

With objMail

.Importance = olImportanceHigh
.Subject = "Your Subject"
.BodyFormat = olFormatHTML 'указал формат HTML
.Body = Worksheets("DATA").Range("A1").Text
End With

objMail.Send

Set objMail = Nothing
Set mailApp = Nothing

End Sub

С выделенной строкой пытаюсь "шаманить", но ничего не получается.
Думал, что можно на халяву указать примерно так, .Body = Worksheets("DATA").Range("A1:Z48").Text, а потом в довесок еще докинуть текстовых данных. Но низяяяяя....

Формировать строку в виде последовательности тегов html'ных этого Range, я не осилю

Помогите, pls.
Укажите в каком направлении копать или примером.

Спасибо!
Ответить

Ответы Всего ответов: 0

Нет ответов

Страница: