Код VBA для добавления текущей даты в sbject при отправке электронной почты

vba excel-vba excel

4494 просмотра

1 ответ

1 Репутация автора

Я скопировал код VBA для отправки сообщения об обновлении статуса из выбранных ячеек в Excel. Но теперь я хотел изменить код, чтобы добавить текущую дату в код, чтобы при отправке сообщения о состоянии он выбирал сегодняшнюю дату в теме и во вводном разделе. Ниже приведен код

Sub Send_Range()
      ActiveSheet.Range("A1:B5").Select
      ActiveWorkbook.EnvelopeVisible = True
      With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "E-Mail_Address_Here"
      .Item.Subject = "My subject"
      .Item.Send
   End With
End Sub

Пожалуйста помоги

Автор: user6603698 Источник Размещён: 18.07.2016 01:15

Ответы (1)


4 плюса

2379 Репутация автора

Добавьте Dateфункцию:

.Item.Subject = "My subject " & Date
Автор: RGA Размещён: 18.07.2016 01:18
32x32