Здравствуйте, уважаемые знатоки Excel.
Просьба помочь доделать макрос, который отправляет почту с помощью Outlook из файла Excel во вложении.
Собственно сам макрос:
Как хотелось бы чтобы выглядело, и как выглядит на самом деле - прикладываю скриншоты.
Как выглядит сейчас:
Как хотелось бы:
Вопросы следующие:
1) как сделать желаемое форматирование и чтобы цифра отображалась на нужной строке в нужном положении, а не сливалась со следующей строкой?
2) Что прописать, чтобы цеплял текущую дату?
3) Если возможно, нужна еще вторая строчка в тексте письма, на которой будет написано следующее: "Вторая цифра: *тянет значение со скрытого листа 2,
ячейка Е126*", Ситуация заключается в том, что на листе 2 периодически разное кол-во строк, и нужна крайняя нижняя по столбцу Е.
Просьба помочь доделать макрос, который отправляет почту с помощью Outlook из файла Excel во вложении.
Собственно сам макрос:
| Код |
|---|
Sub SendMailTest()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim cell As Range
Set OutApp = CreateObject("Outlook.Application"
Set OutMail = OutApp.CreateItem(0)
strbody = "<font face=""Modern h medium"" size=""2"" color=""black"">" & "Уважаемые коллеги!<br>" & _
"<B>Первая цифра:</B><br>" & Range("I145".Value & _
"Отчет на: Здесь надо поставить текущую дату<br>" & _
"- Инструкция находится здесь <br>" & _
"<U><B></B></U><br>" & _
"С уважением,"
On Error Resume Next
With OutMail
.Display
.To = Range("E2".Value
.Subject = Range("F2".Value
.HTMLBody = strbody & .HTMLBody
.Attachments.Add Range("H2".Value
.Attachments.Add Range("I2".Value
.Attachments.Add Range("J2".Value
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub |
Как выглядит сейчас:
Как хотелось бы:
Вопросы следующие:
1) как сделать желаемое форматирование и чтобы цифра отображалась на нужной строке в нужном положении, а не сливалась со следующей строкой?
2) Что прописать, чтобы цеплял текущую дату?
3) Если возможно, нужна еще вторая строчка в тексте письма, на которой будет написано следующее: "Вторая цифра: *тянет значение со скрытого листа 2,
ячейка Е126*", Ситуация заключается в том, что на листе 2 периодически разное кол-во строк, и нужна крайняя нижняя по столбцу Е.
