Добрый день.
Есть код, который должен отправлять часть скопированных данных в Outlook. Как вставить скопированный диапозон в тело письма? Сейчас, чтобы я не делал, он вставляет в тело слово "True"
Есть код, который должен отправлять часть скопированных данных в Outlook. Как вставить скопированный диапозон в тело письма? Сейчас, чтобы я не делал, он вставляет в тело слово "True"
| Код |
|---|
Sheets("Send").Select 'Копируем нужный диапозон с листа Send
FromWhom = InputBox("Кто направил")
ActiveSheet.Range("$A$1:$L$65000").AutoFilter Field:=2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = FromWhom
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set objOutlookApp = CreateObject("Outlook.Application") 'Отправляем в Outlook
Set objMail = objOutlookApp.CreateItem(0)
sTo = "Иванов Иван"
sCC = "Сергеев Сергей"
sSubject = "штат"
sBody = "??????"
sAttachement = "S:\Доки\2015.xlsx"
With objMail
.To = sTo
.CC = sCC
.Subject = sSubject
.Body = sBody
.Attachments.Add sAttachement
.Display
End With
|
