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
Kód: Vybrat vše
Sub SaveAttachments(myMail As MailItem)
Dim vFrom As String, vSubject As String
Dim vFile As Attachment
vFrom = myMail.ReceivedByName
vSubject = myMail.Subject
If myMail.Attachments.Count > 0 Then
For i = 1 To myMail.Attachments.Count
Set vFile = myMail.Attachments(i)
If LCase(vFile.FileName) Like "*.csv" Then
vFile.SaveAsFile "c:\Exports\" & vFile.FileName
End If
Next i
End If
Set myMail = Nothing
Set vFile = Nothing
End Sub