Привет, может кто-нибудь пролить немного света на этот, начав бить его головой о стену этим.
Итак, у меня есть код, который отправляет электронное письмо слишком отдельным лицам в списке, если они не завершили свою работу. Этот код может использоваться несколькими менеджерами. Чтобы электронная почта выглядела профессионально, мне нужно, чтобы подпись пользователя отображалась внизу электронной почты, но я просто не могу ее отобразить.
Ниже мой код.
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo Cleanup
For Each cell In Columns("M").Cells.SpecialCells(xlCellTypeConstants)
If LCase(Cells(cell.Row, "M").Value) = "no" Then
Set OutMail = OutApp.CreateItem(0)
strbody = "Dear " & Cells(cell.Row, "A").Value _
& "<br>" & "<br>" & _
"You still have outstanding work on the Rescan Spreadsheet " & _
" Title number: " & Cells(cell.Row, "E").Value _
& "<br>" & "<br>" _
& "<A href=""\\cv-vfl-d01\dlr_office\Operational Teams\RR Scanning Team\" & _
"Обратный файл QA Xerox \ Document Rescans \ Rescans 2019" "> Нажмите здесь, чтобы открыть местоположение файла"
On Error Resume Next
With OutMail
.To = Cells(cell.Row, "B").Value
.CC = "Bethany.Turner@Landregistry.Gov.uk"
.Subject = "Re-Scan Reminder"
.HTMLBody = strbody & .HTMLBody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell Cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
MsgBox "Reminder Sent", vbOKOnly
End Sub
Может кто-нибудь помочь с этим?