Outlook 2007 Melléklet mentése IMAP fiókból VBA

Outlook 2007 Melléklet mentése IMAP fiókból VBA
2015-09-01T12:25:25+02:00
2015-09-03T07:52:56+02:00
2022-12-02T19:40:37+01:00
badam07
Üdv!
Egy kis segítséget kérnék az alábbiakhoz. Adott egy outlook 2db IMAP fiókkal és azt szeretném elérni, hogy a mellékleteket automatikusan legyenek mentve.

Azt sikerült megoldani egy itteni korábbi hozzászólásban lévő kóddal (Köszönet Micu-nak), hogy a mentés működjön, viszont ez csak akkor jó ha a mail a "Személyes mappák" Beérkezett Üzeneteibe érkezik meg, ha bármelyik IMAP-el beállított fiók Beérkezett Üzenetébe jön akkor nem megy a mentés.

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) Dim mell As Attachment, mai As MailItem Set Mapi = Application.GetNamespace("MAPI") Set myfolder = Mapi.GetDefaultFolder(olFolderInbox) Set mai = Application.Session.GetItemFromID(EntryIDCollection, myfolder.StoreID) If mai.Attachments.Count > 0 And (mai.Subject = "teszt" Or mai.SenderEmailAddress = "valami@domain.com") Then For Each mell In mai.Attachments mell.SaveAsFile "e:" & mell.FileName Next End If End Sub

Kérdésem az volna, hogy hogyan lehet megoldani, hogy egy konkrét fiók Beérkezett Üzenetek mappájába érkező mail-ek mellékleteit is letudjam menteni automatikusan.

A segítségeteket előre is köszönöm
Adam
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd