Fiz um código para varrer todos os meus e-mails do outlook e achei coisas antigas, bem interessantes, até...
O código que usei foi:
Application myApp = new ApplicationClass();
foreach (Folder f in myApp.GetNamespace("MAPI").Folders[1].Folders)
{
foreach (object i in (f.Items))
{
MailItem mail = i as MailItem;
if (mail != null)
if (mail.Attachments.Count > 0)
foreach (object a in mail.Attachments)
{
Attachment anexo = a as Attachment;
if (anexo != null)
{
Console.Error.WriteLine(mail.Subject);
try
{
anexo.SaveAsFile(@"C:\atts\"
+ f.Name + "_"
+ mail.Subject.Replace('/', ' ').Replace(@"\", " ")
.Replace(':', ' ').Replace('?', ' ').Replace('*', ' ')
+ "_"
+ mi.DisplayName.Replace('/', ' ').Replace(@"\", " ")
.Replace(':', ' ').Replace('?', ' ').Replace('*', ' '));
}
catch { }
}
}
}
}
Esse monte de Replace(char, char) foi resultado de cansaço... Poderia ter usado regex, que seria muito mais rápido... Mas já está valendo...
E olhem o que eu encontrei (por favor, divulguem - ehehehe, claro que é piada... mas não muita):
