< návrat zpět

Nástěnka


Téma: Outlook - automatické uložení příloh z emailu rss

Zaslal/a 15.3.2018 12:15

Každý den dostávám najednou 30-40 e-mailů s podklady pro reporty. Ze všech těchto emailu si potřebuji uložit jejich přílohy. V každém z těchto emailu je jedna příloha, kterou potřebuji uložit do složky v PC, se stejným názvem, jak se jmenuje v příloze. Prosím, poradí někdo s makrem/skriptem do Outlooku?

Předem díky

Zaslat odpověď >

#039854
Jeza.m
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim arr() As String
Dim i As Integer
Dim ns As Outlook.Namespace
Dim itm As MailItem
Dim m As Outlook.MailItem

On Error Resume Next
Set ns = Application.Session
arr = Split(EntryIDCollection, ",")
For i = 0 To UBound(arr)
Set itm = ns.GetItemFromID(arr(i))

If itm.Class = olMail Then
Set m = itm
If m Is Nothing Then Exit Sub

'Zde je možnost nastavit filtr na předmět zprávy, tzn. ukládat se budou pouze přílohy zpráv začínajících daným textem
If Left(m.Subject, Len("PREDMET ZPRAVY")) = "PREDMET ZPRAVY" Then
SaveAtt m
End If

End If
Next
Set ns = Nothing
Set itm = Nothing
Set m = Nothing
End Sub


Public Sub SaveAtt(ByRef itm As MailItem)
On Error Resume Next
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\PRILOHY\"

For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & objAtt.DisplayName
Next
itm.UnRead = False
End Sub


M@citovat
#039855
kabaka
pozri

http://wall.cz/nastenka/outlooku-automaticke-ukladani-prilohycitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Kumulace listů do jednoho listu

MonikaV • 24.9. 17:18

skenovani a vyhledavani a oznaceni v tabulce

djph • 24.9. 13:44

Sečíst sloupec od 4 řádku

madar5 • 23.9. 8:32

Ověření dat

lubo • 22.9. 11:25

Ověření dat

Baja • 21.9. 22:33

Ověření dat

elninoslov • 21.9. 22:16

Ověření dat

Baja • 21.9. 21:53