Добрый день.
Есть код, который должен отправлять часть скопированных данных в 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 |