Zapisywać załączniki z wielu wiadomości e-mail jednocześnie w Outlooku?

Ktoś wysłał mi 200 e-maili z dnia na dzień, z jednym plikiem załącznika pliku. westchnienie

Spodziewam się kolejnych 200 co noc przez następne trzy noce (e-maile pochodzą z serwera, więc proszenie ich o grupowanie nie jest możliwe).

Załączniki plików mają unikalne nazwy plików, więc czy istnieje prosty sposób na zapisanie załączników z całej grupy wiadomości e-mail jednocześnie?

Nie chciałbym otwierać każdego e-maila osobno, klikać prawym przyciskiem myszy, zapisywać, płukać, powtarzać ...

Biegle posługuję się językiem VBA, bardzo wygodnie tworzę makra Excela, więc mogę sobie wyobrazić, że przejście do danego folderu dla wszystkich wiadomości i zapisanie załączników dla każdego powinno być stosunkowo łatwe, ale nie napisałem wcześniej makra programu Outlook, nie znam się na nim hierarchia obiektów.

OutlookAttachView firmy NirSoft może to zrobić łatwo, nawet z poziomu wiersza poleceń!

OutlookAttachView skanuje wszystkie wiadomości przechowywane w Outlooku i wyświetla listę wszystkich załączonych plików, które znajdzie. Możesz łatwo wybrać jeden lub więcej załączników i zapisać je wszystkie w wybranym folderze, a także usunąć niechciane duże załączniki, które zajmują zbyt dużo miejsca na dysku w skrzynce pocztowej. Możesz także zapisać listę załączników w pliku xml / html / text / csv.

OutlookAttachView jest darmowy.

Dodatek do usuwania załączników programu Outlook :

Bezpłatny dodatek do programu Outlook do zapisywania i wyodrębniania załączników, zmniejszając rozmiar plików programu Outlook. Łatwy w użyciu. Wiele funkcji.

Oto kilka innych opcji.

Witryna Sue Mosher http://slipstick.com to fantastyczny zasób dla programu Outlook. Jest również Microsoft MVP.

Dla programistów: Zapisz załączniki na dysku twardym lub alternatywnie zapisz i otwórz załącznik za pomocą VBA .

Poniższy kod działa w programie Outlook 2000 i nowszych wersjach. Zapisuje załączniki z wybranych wiadomości, ale nie usuwa załączników z wiadomości.

…

Skopiuj i wklej kod z tej strony do swojego projektu ThisOutlookSession.

W programie Outlook naciśnij klawisze Alt + F11, aby otworzyć edytor VBA i rozwiń Obiekty Microsoft Outlook, a następnie kliknij dwukrotnie ThisOutlookSession, aby otworzyć go w okienku edycji, i Ctrl + V, aby wkleić kod.

Aby go użyć, musisz najpierw utworzyć folder w folderze Moje dokumenty o nazwie OLAttachments (kod nie utworzy go dla Ciebie). Następnie wybierz jedną lub więcej wiadomości i uruchom makro, aby zapisać załączniki. Musisz włączyć zabezpieczenia makr, aby ostrzegały przed włączeniem makr lub podpisaniem makra. Możesz zmienić nazwę folderu lub ścieżkę, w której zapisywane są załączniki, edytując kod.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

A jeśli nie chcesz programować: Narzędzia do zarządzania załącznikami dla programu Outlook

Po tym, jak zbombardowano mnie e-mailami od osoby, która pomyślała, że ​​miło jest przesłać mi podzielony plik RAR w 30 wiadomościach, z powodzeniem użyłem skryptu VBA opublikowanego przez Microsoft o nazwie mAttachmentSaver.

Najpierw musisz pobrać archiwum zawierające skrypt .

Ważne jest, aby makra były włączone. W programie Outlook 2010 możesz to zrobić, przechodząc do Plik »Opcje» Centrum zaufania »Ustawienia Centrum zaufania» Ustawienia makr »Włącz wszystkie makra» OK »OK . Następnie musisz ponownie uruchomić program Outlook. W przypadku wcześniejszych wersji jest on w menu Narzędzia »Makro» Bezpieczeństwo… .

Następnie wykonaj czynności opisane w artykule TechCenter:

• Naciśnij, Alt+F11aby otworzyć VBE w Outlooku.

• Przeciągnij mAttachmentSaver.basplik do Eksploratora projektu (naciśnij, Ctrl+Rjeśli go nie widzisz) lub przez Plik >> Importuj plik ... ( Ctrl+M).

  Uruchom ExecuteSavingmakro, aby zapisać załączniki.

• Wróć do interfejsu użytkownika programu Outlook, a następnie naciśnij, Alt+F8aby otworzyć okno Makra.

• Wybierz ExecuteSavingz listy nazw, a następnie kliknij przycisk Uruchom (pamiętaj, aby wybrać elementy programu Outlook przed uruchomieniem tego makra).

• Wybierz określony folder, aby zapisać załączniki w oknie dialogowym Przeglądaj w poszukiwaniu folderu , a następnie kliknij przycisk OK .