Excel 2010 VBA Outlook 电子邮件发件人后续标记

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 任务到期日期的 Date 值。
• 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