vba從發送的文件夾中刪除電子郵件

我想在用規則轉發電子郵件後從「已發送郵件」文件夾中刪除一封電子郵件。vba從發送的文件夾中刪除電子郵件

我試圖從另一個帖子使用「brettdj」代碼：Macro to delete an email，但它根本不適用於我。

我在找什麼，它是一個vba宏，當您使用規則運行腳本時，它可以刪除電子郵件。

任何想法如何，我可以做到了這一點

在此先感謝

來源

2017-04-14 Driven

是否所有帳戶都在同一個Outlook下？ – 0m3r

是的，所有帳戶都是從相同的展望會話中提取的。 – Driven

你已經使問題的答案無效，而不是可能接受它，如果它是正確的。人們不會喜歡這種行爲。回滾這個問題，並問一個新的問題。 http://stackoverflow.com/help/someone-answers – niton

您沒有在您的聯繫人文件夾（通訊錄）中的相應條目。 Recipients類的Add方法接受收件人的名稱;它可以是表示收件人的顯示名稱，別名或完整SMTP電子郵件地址的字符串。

Sub forwardEmail(itm As Outlook.MailItem) 
    Dim oExplorer As Outlook.Explorer 
    Dim oMail As Outlook.MailItem 
    Dim oOldMail As Outlook.MailItem 
    Set oExplorer = Application.ActiveExplorer 
    If oExplorer.Selection.Item(1).Class = olMail Then 
    Set oOldMail = oExplorer.Selection.Item(1) 
    Set oMail = oOldMail.Forward 
    oMail.Recipients.Add "[email protected]" 
    oMail.Recipients.Item(1).Resolve 
    If oMail.Recipients.Item(1).Resolved Then 
     'delete forwarded email from sent items 
     oMail.DeleteAfterSubmit = True 

     oMail.Send 
     'delete original email from inbox 
     'oOldMail.Delete 
    Else 
     MsgBox "Could not resolve " & oMail.Recipients.Item(1).Name 
    End If 
    Else 
    MsgBox "Not a mail item" 
    End If 
End Sub

來源

2017-04-15 20:16:46

感謝您的更新我有55個收件人，以及這將是一個挑戰，我認爲宏默認是這樣做的任何轉發電子郵件，沒有任何選項沒有接收者將會好得多。 – Driven

我試過了，它不起作用，我在報價單中添加了一封電子郵件，但它並未在轉發電子郵件後從發送文件夾中刪除電子郵件。 – Driven

vba從發送的文件夾中刪除電子郵件

回答

相關問題