Excel 2010 VBA Outlook Email Sender Follow-up Tag

Question

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

Я смотрел другие форумы без успеха и код, который я нашел, устанавливает флаг для получателя.

Dim OutApp As Object 
Dim OutMail As Object 
Dim strbody As String 
Dim SigString As String 
Dim Signature As String 
Dim wb As Workbook 
Dim FileName As String 
Dim wSht As Worksheet 
Dim ShtName As String 
Dim ws As Worksheet 

ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & "File Name " & Format(Now, "dd-mm-yy") & ".xlsm" 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.createitem(0) 


strbody = " Please see the attached spreadsheet. 

" & _"Please don't hesitate to contact me if you have any questions. 
" 


'Change only Mysig.htm to the name of your signature 
SigString = Environ("appdata") & _ 
"\Microsoft\Signatures\Expediting Officer.htm" 


If Dir(SigString) <> "" Then 
Signature = GetBoiler(SigString) 
Else 
Signature = "" 
End If 


On Error Resume Next 


With OutMail 
.To = "" 
.CC = "" 
.BCC = "" 
.Subject = "" 
.HTMLBody = strbody & " 
" & Signature 
.display 
.Attachments.Add ("File location"\"File Name " & Format(Now, "dd-mm-yy") & ".xlsm") 
.display 
.Importance = 2 
End With 

Answer 1

MailItem класс предоставляет следующие свойства, чтобы получить работу:

• MarkAsTask - отмечает объект MailItem в качестве задачи и назначает интервал задания для объекта.
• TaskDueDate - устанавливает значение даты, которое представляет собой дату выполнения задачи для этого элемента MailItem.
• ReminderSet - задает логическое значение True, если для этого элемента установлено напоминание.
• ReminderTime - устанавливает дату, указывающую дату и время, в которые должно появляться напоминание для указанного элемента.

Пример кода:

Public Sub FlagMessage(Item As Outlook.MailItem) 
    With Item 
    .MarkAsTask olMarkThisWeek 
    ' sets a due date in 48 hours 
    .TaskDueDate = Now + 2 
    .ReminderSet = True 
    .ReminderTime = Now + 2 
    .Save 
    End With 
End Sub