Я полностью застрял и думаю, не может ли кто-нибудь помочь, пожалуйста, ознакомьтесь с моим полным Noobness на VBA.
У меня есть общая электронная таблица, которую моя команда использует для отслеживания задач документов, которые необходимо повторно проверить. См. Снимок экрана.
Снимок экрана
У меня есть код на листе, который автоматически меняет столбец «M», когда агент вводит значение в столбец A.
Столбец B (скрытый) имеет Vlookup, который использует массив на другом листе для агента в адресе электронной почты столбца A.
Я провел небольшое исследование и попытался создать код, который будет искать в столбце М любую незавершенную / необработанную работу «НЕТ» и автоматически отправлять напоминание по электронной почте агенту и адрес электронной почты встолбцы A и B одной строки (также включая номер заголовка)
Однако я просто не могу заставить код работать.
Есть мысли или предложения, где я ошибаюсь?
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)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Re-Scan Reminder"
.Body = "Dear " & Cells(cell.Row, "A").Value _
& vbNewLine & vbNewLine & _
"You still have outstanding work on the Rescan Spreadsheet " & _
" Title number: " & Cells(cell.Row, "E").Value _
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub