Сообщение из Excel

[Sensygirl]

Здравствуйте!
Нужно отправлять из Excel сообщения по нажатию кнопки. Причем в тело письма должны записаться выбранные строки из таблицы. Пока что получилось вписать только значение одной ячейки.Sub m()

Range("F5").Select

Dim Outlook_ As New Outlook.Application
Dim Message As Outlook.MailItem
Set Message = Outlook_.CreateItem(olMailItem)
With Message
.Subject = ""
.To = "ла-ла-ла@ла-ла-ла.лa"
.Body = Selection
.Display
End With


Set Message = Nothing
Set Outlook_ = Nothing

End Sub


А как можно отправлять в тело письма строки или диапазоны?????

[EugeneS]

посмотрите SendMail Method в справке по Visual Basic

[Sensygirl]

Посмотрела, не отвечает потребностям

[motorway]

А если попробовать сделать в цикле что-то типа

.body =.body & Cells(i,j).Value

?

[EducatedFool]

Можете попробовать такой вариант:

Sub m()
    Dim Outlook_ As New Outlook.Application
    Dim Message As Outlook.MailItem
    Set Message = Outlook_.CreateItem(olMailItem)
    With Message
        .Subject = "Тема письма"
        .To = "name@domen.org"
        .Body = ТекстДиапазона(Selection)
        .Display
    End With
    Set Message = Nothing
    Set Outlook_ = Nothing
End Sub

Function ТекстДиапазона(ByVal ra As Range) As String
    Dim cell As Range
    For Each cell In ra.Cells
        ТекстДиапазона = ТекстДиапазона & IIf(Len(cell.Text), cell.Text, " ")
    Next cell
    ТекстДиапазона = Trim(ТекстДиапазона)
End Function

PS: Убрал строку Range("F5").Select, поскольку, если макрос выделяет определённую ячейку,
то проблема решается при помощи строки .Body = [f5]

[Sensygirl]

Что прямо вот так, русским текстом?? Я попробовала - не получилось..


Ой, простите, спешу с выводами.. что-то получается, но текст переносится в письмо без пробелов, все сплошняком но уже что-то!!!!!!!!!!!


все, пробелы добавила спасибо Вам преогромное!!!

Function ТекстДиапазона(ByVal ra As Range) As String
    Dim cell As Range
    For Each cell In ra.Cells
      If cell.Text <> "" Then
         ТекстДиапазона =  ТекстДиапазона & IIf(Len(cell.Text), cell.Text, "") & "  "
      End If
      If cell.Column = 9 Then  ТекстДиапазона =  ТекстДиапазона & vbNewLine
      
    Next cell
     ТекстДиапазона = Trim( ТекстДиапазона)
End Function

вот, теперь все