Stránka 1 z 1

VBA Macro outlook 2013/2016

Napsal: 15 bře 2016 16:05
od 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


  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