Makro zapisujące załączniki z określonego folderu

Pytania, uwagi, problemy związane z Microsoft Office Outlook, wersje 2007, 2010, 2013 i 2016.

Moderator: Moderatorzy

Makro zapisujące załączniki z określonego folderu

Postprzez jaryszek » Pt 19.05.2017 09:25

Hej,

Posiadam taki kod :

Kod: Zaznacz cały
Public WithEvents FolderItems As Outlook.Items

Private Sub Application_Startup()
   Set FolderItems = Session.GetDefaultFolder(olFolderInbox).Folders("FolderTest").Items
End Sub

Private Sub FolderItems_ItemAdd(ByVal Item As Object)
    On Error Resume Next
   
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String

Dim myDestFolder As Outlook.Folder
Set myDestFolder = Outlook.Session.GetDefaultFolder(olFolderInbox).Folders("FolderTest").Folders("processed")

sSaveFolder = "C:\temp"
   
For Each oAttachment In Item.Attachments
    If oAttachment.DisplayName Like "*.doc" Then
        oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    End If
Next

''Item.Move myDestFolder

End Sub


Makro działa tak, że przy dodaniu jakichkolwiek emaili do folderu "FolderTest" --> "processed" powinno zapisać automatycznie każdy załącznik z plikiem "*.doc".

Niestety ono nie działa, coś musiałem niechąco zmienić, że to nie idzie teraz...

Proszę o pomoc,
Pozdrowienia,
Jacek Antek
jaryszek
 
Posty: 1
Dołączył(a): Pt 19.05.2017 07:51

Re: Makro zapisujące załączniki z określonego folderu

Postprzez OShon » Pt 19.05.2017 09:44

Podając ścieżkę zapomniałeś o "\"

Dla bardziej zaawansowanych deklaracji polecam swój dodatek, w którym prezentuje więcej opcji: Automatyczny zapis załączników wiadomości email
Obrazek
Oskar Shon - MVP Office System/Development 11/17, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki do Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 8878
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl


Powrót do Microsoft Outlook 2007 / 2010 / 2013 / 2016

Kto przegląda forum

Użytkownicy przeglądający ten dział: Bing [Bot] i 7 gości

cron