• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Nástěnka

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

Zaslal/a Raptor22 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ěď >

---

Jeza.m(15.3.2018 13:09)#039854

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

kabaka(15.3.2018 14:30)#039855

pozri

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse