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-設置一個Date值，該值表示此MailItem的任務的截止日期。
• ReminderSet-如果為此項目設置了提醒 ，則將布爾值設置為True。
• ReminderTime-設置一個Date，該日期指示應該對指定項目進行提醒的日期和時間。

請參見示例代碼：

 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