Excel Auto письма

Question

У меня есть этот Excel, в котором я хочу отправить автоматическое напоминание по электронной почте до 15 дней и 5 дней соответственно до даты завершения.

Я использовал (= C2 + 365), чтобы добавить один год в столбец C2, а также вычел 15 и 5 дней из столбца D2.

Задача может иметь разные даты. Пожалуйста, сообщите, если это возможно в Excel.

Спасибо

Answer 1

Вы можете либо запланировать электронную почту в соответствии с предложением @Jo Lass, либо установить напоминания в Outlook.Вот код, который я написал, подправьте по мере необходимости.Для каждого задания будет добавлено 2 напоминания (за 5 и 15 дней до «даты завершения», даты взяты из ячеек E и F)

Sub addReminder()

    Dim objApt As AppointmentItem
    Dim objOL As Outlook.Application
    Dim LastRow As Integer
    Dim d, i

    Set objOL = New Outlook.Application

    LastRow = Cells.Find(what:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).row
    For i = 2 To LastRow
        For Each d In Array("E", "F")
            With objOL.CreateItem(olAppointmentItem)
                .ReminderSet = True
                .start = CDate(Range(d & i).Value)
                .Subject = "Task '" & Range("B" & i).Value & "' to be completed on " & Range("D" & i).Value
                .ReminderMinutesBeforeStart = 0
                .Save
            End With
        Next
    Next

End Sub

Answer 2

Вы не можете отправлять письма из закрытого Excel.Либо у вас всегда открыт Excel, и вы макросите что-то, что каждый раз проверяет, если now () больше, чем столбцы E или F ...

Что вы можете сделать, это отправить письма из вашего кода и удержать их вваш почтовый ящик до желаемого дня, используя

.DeferredDeliveryTime = Date

. В столбцах E и F. укажите 'Date'.