Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавление подписи vba
 
#1
01.10.2018 09:01:41
Добрый день пользуюсь таким макросом, для отправки писем в Outlook.
Сможете помочь?
Не могу найти или придумать как сюда можно запихнуть подпись!
Буду благодарен!

Код
Sub Send_Range()
Dim myValue As Variant
myValue = InputBox("Введите дату импорта")
Range("A37").Value = myValueActiveSheet.Range("C44:G47").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = Range("A55").Value
    .Item.To = " "
    .Item.Subject = Range("A54").Value
    .Item.CC = Range("A60").Value
    .Item.display
End With
End Sub
 
 
 
#2
01.10.2018 09:14:25
Код
.Item.Body = "блаблабла"
не работает? Вот только с названием темы определитесь, а то как то уж сильно размыто.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#3
01.10.2018 11:45:57
Мне нужно что-бы можно было вставить подпись после выделенного фрагмента!
Макрос сам по себе работает отлично!
 
 
 
#4
01.10.2018 12:39:46
Покажите в коде где вставляется выделенный фрагмент.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#5
01.10.2018 13:45:08
Вот эта часть выбирает что вставить в письмо!
Код
Range("A37").Value = myValueActiveSheet.Range("C44:G47").Select
ActiveWorkbook.EnvelopeVisible = True
Изменено: zhekachan - 01.10.2018 13:45:31
 
 
 
#6
01.10.2018 20:40:44
zhekachan, код конечно не идеален
Range("A37").Value = myValueActiveSheet.Range("C44:G47").Select - бред не нужный
можно оставить myValueActiveSheet.Range("C44:G47").Select
но при чем тут myValue не понимаю.

что касается подписи, у .MailEnvelope нет свойства body. Добавлять некуда. Только если формировать на листе и отправлять вмест с данными.
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх