Salvar anexos do Outlook 2007 usando C#

Podem baixar o aplicativo completo em SalvaAnexosOutlook2007.exe (93,50 kb). Não precisa instalar. Copie para uma pasta qualquer que já funciona. Só uma coisa: ele remove todos os anexos dos e-mails.

Em caso de dúvidas, podem me mandar uma mensagem, usando o link existente no programinha.

E, se quiser ver o código, é esse (não se esqueça de adicionar a referência para o Microsoft.Office.Interop.Outlook):

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;


using SWF = System.Windows.Forms;
using Microsoft.Office.Interop.Outlook;
using System.Text.RegularExpressions;


namespace SalvaAnexosOutlook2007
{
    public partial class Form1 : SWF.Form
    {
        public Form1()
        {
            InitializeComponent();
        }


        private void Form1_Load(object sender, EventArgs e)
        {
            Application myApp = new ApplicationClass();


            foreach (Folder f in myApp.GetNamespace("MAPI").Folders)
                listBox1.Items.Add(f.Name);
            listBox1.SelectedIndex = 0;
        }

        private void listBox1_SelectedIndexChanged(object sender, EventArgs e)
        {
            if (listBox1.SelectedIndex != -1)
            {
                listBox2.Items.Clear();


                Application myApp = new ApplicationClass();


                foreach (Folder f in myApp.GetNamespace("MAPI")
                    .Folders[listBox1.SelectedIndex + 1].Folders)
                    listBox2.Items.Add(f.Name);
            }
        }


        private void listBox2_SelectedIndexChanged(object sender, EventArgs e)
        {
            if (SWF.MessageBox.Show(
                "Tem certeza que quer salvar os anexos das mensagens selecionadas?" +
                "\n\nIsso apagará os anexos do seu e-mail!!!", "Responda",
                SWF.MessageBoxButtons.YesNo,
                SWF.MessageBoxIcon.Question)
                    == SWF.DialogResult.Yes)
            {
                Application myApp = new ApplicationClass();


                foreach (Folder f in myApp.GetNamespace("MAPI")
                    .Folders[listBox1.SelectedIndex + 1].Folders)
                {
                    if (f.Name.Equals(listBox2.SelectedItem.ToString()))
                    {
                        foreach (object email in (f.Items))
                        {
                            MailItem mail = email as MailItem;


                            int contador;


                            if (mail != null)
                            {
                                contador = 0;


                                while (mail.Attachments.Count > 0 && contador <= 10)
                                {
                                    Attachment mi = mail.Attachments[1] as Attachment;

                                    if (mi != null)
                                    {
                                        string nomeAtt = null;


                                        try
                                        {
                                            nomeAtt = SWF.Application.StartupPath
                                                + @"\" + f.Name
                                                + "_" + mail.SentOn.ToString("yyyyMMddHHmmss")
                                                + "_" + Limpar(mail.Subject)
                                                + "_" + Limpar(mi.DisplayName);
                                            mi.SaveAsFile(nomeAtt);


                                            label1.Text = mi.DisplayName;
                                            SWF.Application.DoEvents();


                                            mi.Delete();
                                        }
                                        catch
                                        {
                                            contador++;
                                        }
                                    }
                                }


                                if (mail != null)
                                    mail.Save();
                            }
                        }

                        if (SWF.MessageBox.Show(
                            "Arquivos gravados - quer abrir a pasta?",
                            "FIM DO PROCESSO",
                            SWF.MessageBoxButtons.YesNo,
                            SWF.MessageBoxIcon.Question)
                                == SWF.DialogResult.Yes)
                        {
                            System.Diagnostics.Process.Start(
                                SWF.Application.StartupPath);
                            SWF.Application.Exit();
                        }
                    }
                }
            }
        }


        private String Limpar(String s)
        {
            return Regex.Replace(s, "[\"@/{}<>():|;\\?*&%$]", String.Empty);
        }

        private void linkLabel1_LinkClicked(object sender, SWF.LinkLabelLinkClickedEventArgs e)
        {
            System.Diagnostics.Process.Start(http://www.50minutos.com.br/FaleConosco.aspx);
        }
    }
}