Question

我要删除Outlook中邮件中的所有附件。不知道，我在做什么错。该代码不会引起异常，但是删除后附件仍然可用。这是我的代码：

这将为我提供一个Outlook.application对象（如果正在运行或正在运行Outlook）（如果未运行）：

    public static OL.Application GetOutlook(out bool StillRunning)
    {
        OL.Application OLApp = null;

        if (System.Diagnostics.Process.GetProcessesByName("OUTLOOK").Count() > 0)
        {
            StillRunning = true;
            return System.Runtime.InteropServices.Marshal.GetActiveObject("Outlook.Application") as Microsoft.Office.Interop.Outlook.Application;
        }
        else
        {
            StillRunning = false;
            OLApp = new OL.Application();
            OL.NameSpace nameSpace = OLApp.GetNamespace("MAPI");
            nameSpace.Logon("", "", System.Reflection.Missing.Value, System.Reflection.Missing.Value);
            nameSpace = null;
            return OLApp;
        }
    }

此函数通过其EntryID返回邮件：

public static OL.MailItem GetMailByEntryId(OL.Application OlApp, string MailItemEntryID)
    {
        OL.NameSpace olNS = null;
        object obj = null;
        olNS = OlApp.GetNamespace("MAPI");
        if (olNS == null) { throw new System.Exception("ERROR: Unable to get Namespace 'MAPI' in Outlook.Application object!"); }

        OL.MailItem MI = null;
        obj = olNS.GetItemFromID(MailItemEntryID);
        if (obj != null && obj is OL.MailItem) { MI = obj as OL.MailItem; }
        if (MI == null) { throw new System.Exception("ERROR: Unable to get mail item by ID " + System.Environment.NewLine + MailItemEntryID); }

        return MI;
    }

在这里，我尝试删除邮件的附件：

    public static void RemoveAttachments(string EntryID)
    {
        bool StillRunning = false;
        OL.Application OLApp = GetOutlook(out StillRunning);

        OL.MailItem MI = GetMailByEntryId(OLApp, EntryID);

        for(int i = 0; i < MI.Attachments.Count; i++) { MI.Attachments.Remove(i); } //Methode Delete() not available...

        MI.Save();

        if (!StillRunning) { OLApp.Quit(); OLApp = null; System.GC.Collect(); KillOutlook(); }
    }

谢谢大家的帮助...

Answer 1

啊，明白了-您可以通过以下方式使其起作用：

foreach(OL.Attachment Att in MI.Attachments){Att.Delete();}

Answer 2

OOM中的所有集合（包括MailItem.Attachments）都是基于1的，而不是0。您还在循环时修改集合-使用下循环：

Attachments attachments = MI.Attachments;
for(int i = attachments.Count; i >= 1; i--) { Attachments.Remove(i); }

C＃-以编程方式从Outlook电子邮件中删除附件

2 个答案: