vba送信済みフォルダから電子メールを削除

Question

電子メールがルール付きで転送された後に、[送信済みアイテム]フォルダから電子メールを削除します。

私は別の投稿から "brettdj"コードを使用しようとしました：Macro to delete an emailしかし、それはまったく機能しません。

私が探しているのは、ルールを使ってスクリプトを実行すると電子メールを削除できるvbaマクロです。

私は

おかげで事前

Answer 1

にあなたの連絡先フォルダ（アドレス帳）の対応するエントリを持っていないことを達成することができますどのように任意のアイデア。 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 "test@gmail.com" 
    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