我有一個Outlook 2007宏,它向收件人發送帶有標誌的電子郵件,但它不再工作。發送標誌不起作用的電子郵件
我錯誤地改變了代碼,現在它不再工作了。
收件人在TO DO中看不到電子郵件,並且在電子郵件列表中不顯示紅色。
Sub fff()
Dim outApp As Object
Dim OutMail As Object
Dim datDue As Date
datDue = DateAdd("d", 7, Date)
Set OutMail = outApp.CreateItem(0)
With OutMail
.To = "[email protected]"
.Subject = "test"
.HtmlBody = "msg"
.Importance = olImportanceHigh
.FlagStatus = olFlagMarked
.FlagRequest = "Follow up"
.ReminderTime = datDue & " 17:00 PM"
.ReminderOverrideDefault = True
.ReminderSet = True
.TaskStartDate = Date
.TaskDueDate = datDue
.Save
.Send
End With
End Sub
你從哪裏運行代碼? Excel中? – 0m3r
您應該在收件箱中檢查當前[規則](https://support.office.com/en-gb/article/Manage-messages-by-using-rules-80cc1f28-533d-4879-a8cc-ef83e9af0495) 。有一個默認的規則,從傳入的電子郵件中刪除類別(假設規則是指發件人,但不是收件人)。 –
嗨,環境和上週一樣 - 代碼不會突出顯示紅色,標記和提醒觸發收件人。 – wittman