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

是否有腳本可以讓我在Outlook中標記電子郵件，然後自動將它移動到文件夾？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

乾杯，史蒂芬

來源

2014-10-26 Steven Powell

到底follwoing線應該做的工作：

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 - 這是日期 - 作爲一個文本在這裏，例如「2014年3月11日09:00」

我希望這有助於

最大

來源

2014-10-27 07:57:58 Max

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

回答

相關問題