VBA Macro outlook 2013/2016

[birgis]

Ahoj, prosím o radu.
Používám v outlooku tento script-viz dole (script jsem našel na netu), který spouštím pomocí pravidel - vše funguje jak má.
Problém mám ten, že daný email se mi v outlooku zobrazí až je toto makro dokončeno. Ale já bych potřeboval aby se email stáhl do outlooku a pak se toto macro spustilo. Případně nějakým způsobem v makru stáhnout poštu do outlooku a pak pokračovat v běhu.
Je to srozumitelné? Dokázal by mi někdo poradit-upravit? Díky za jakoukoli pomoc

Code: [Vybrat vše] [Zobrazit/Skrýt] [Download] (Bez_jmena.vb)

1. Sub SaveAttachments(myMail As MailItem)
2. Dim vFrom As String, vSubject As String
3. Dim vFile As Attachment
4.  
5. vFrom = myMail.ReceivedByName
6. vSubject = myMail.Subject
7.  
8. If myMail.Attachments.Count > 0 Then
9.         For i = 1 To myMail.Attachments.Count
10.             Set vFile = myMail.Attachments(i)
11.             If LCase(vFile.FileName) Like "*.csv" Then
12.             vFile.SaveAsFile "c:\Exports\" & vFile.FileName
13.             End If
14.         Next i
15. End If
16. Set myMail = Nothing
17. Set vFile = Nothing
18. End Sub

GeSHi © Codebox Plus Extension

[Reklama]