Outlook 標記電子郵件並將其移動到文件夾

Question

是否有腳本可以讓我在 Outlook 中標記電子郵件，然后自動將其移動到文件夾？

我發現以下內容將復制選定的電子郵件並移動它，但我也需要它來標記它；

Outlook VB Macro to move selected mail item(s) to a target folder
Sub MoveToFiled()
On Error Resume Next

Dim ns As Outlook.NameSpace
Dim moveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem

Set ns = Application.GetNamespace("MAPI")

'Define path to the target folder
Set moveToFolder = ns.Folders("Mailbox - Jim Merrell").Folders("@Filed")

If Application.ActiveExplorer.Selection.Count = 0 Then
MsgBox ("No item selected")
Exit Sub
End If

If moveToFolder Is Nothing Then
MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Move Macro Error"
End If

For Each objItem In Application.ActiveExplorer.Selection
If moveToFolder.DefaultItemType = olMailItem Then
  If objItem.Class = olMail Then
     objItem.move moveToFolder
  End If
End If
Next

Set objItem = Nothing
Set moveToFolder = Nothing
Set ns = Nothing

End Sub

干杯，史蒂文

Answer 1

最后，以下行應該完成工作：

    mail.FlagRequest = "text you need"

或者如果您還想設置提醒等，請使用此

Sub flag_the_mail(mail As mailitem, flagre as string, tm As String)
On Error GoTo ende
        mail.MarkAsTask olMarkNoDate
        mail.FlagRequest = flagre 
    If tm <> "00:00:00 09:00" Then
        mail.TaskStartDate = tm
        mail.TaskDueDate = tm
        mail.ReminderSet = True
        mail.ReminderTime = tm
    Else
        mail.TaskStartDate = "01.01.4501"
        mail.TaskDueDate = "01.01.4501"
        mail.ReminderSet = False
        mail.ReminderTime = "00:00:00"
    End If
        mail.Save
ende:
If Err.Number <> 0 Then MsgBox ("Fehler in 'Kennzeichensetzen': " & Err.Number & " - " & Err.Description)
End Sub

tm - 這是日期 - 作為文本出現在這里，例如“03.11.2014 09:00”

我希望這有幫助，

最大限度