Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

Jak zapisywać załączniki bez otwierania wiadomości e-mail w Outlooku?

Często może być konieczne zapisywanie załączników z otrzymanych wiadomości e-mail na dyskach komputera. Zapisanie załącznika lub wszystkich załączników z wiadomości e-mail jest łatwe, ale jak zapisać załączniki z wielu wiadomości e-mail jednocześnie? Zwykle musisz wielokrotnie otwierać wiadomości e-mail i zapisywać załączniki. Czy są jakieś sztuczki, aby pozbyć się powtarzających się operacji? W tym przypadku mogą Ci pomóc metody przedstawione w tym samouczku.

Zapisuj załączniki z co najmniej jednej wiadomości e-mail bez otwierania za pomocą kodu VBA
Zapisuj załączniki z jednej lub więcej wiadomości e-mail bez otwierania za pomocą niesamowitego narzędzia


Zapisuj załączniki z co najmniej jednej wiadomości e-mail bez otwierania za pomocą kodu VBA

Poniższy kod VBA może pomóc w zapisywaniu załączników z jednej lub więcej wiadomości e-mail w tym samym czasie bez otwierania wiadomości e-mail w Outlooku. Wykonaj następujące czynności.

1. Wybierz wiadomość e-mail lub wiele wiadomości e-mail, dla których chcesz zapisać załączniki, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Rozwiń Obiekty programu Microsoft Outlook kliknij dwukrotnie plik Ta sesja programu Outlook otworzyć Kod a następnie skopiuj do niego poniższy kod VBA.

Kod VBA: zapisuj załączniki bez otwierania wiadomości e-mail

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. wciśnij F5 klucz do uruchomienia kodu. Następnie PrzeglądajDlaFolder pojawi się okno, wybierz folder do zapisania załączników, a następnie kliknij OK przycisk.

Następnie wszystkie załączniki w wybranych wiadomościach e-mail są natychmiast zapisywane w wybranym folderze.

Uwaga: Wszystkie załączniki zostaną odłączone od wiadomości e-mail i zachowają w treści wiadomości odpowiednie łącza do ścieżek zapisu.


Zapisuj załączniki z jednej lub więcej wiadomości e-mail bez otwierania za pomocą niesamowitego narzędzia

Jeśli jesteś nowicjuszem w VBA, metoda opisana w tej sekcji będzie dobrym wyborem.

Tutaj polecam Zapisz wszystkie załączniki narzędzia Kutools dla programu Outlook dla Was. Jeśli chcesz po prostu zapisać załączniki bez odłączania się od wybranych wiadomości e-mail, funkcja Zapisz wszystkie załączniki pomoże Ci to łatwo zrobić. Wykonaj następujące czynności.
Przed zastosowaniem Kutools for Outlook proszę pobierz i zainstaluj po pierwsze.

1. Wybierz wiadomości e-mail zawierające zapisane załączniki, kliknij Kutools > Narzędzia załącznikówZapisz wszystkie.

2. w Zapisz ustawienia w oknie dialogowym, musisz:

  • 2.1) W Zapisz załączniki w tym folderze wybierz folder, w którym chcesz zapisać załączniki;
  • 2.2) Zapisz załączniki w poniższym stylu box jest opcjonalny, aby utworzyć podfolder ze stylem certian do zapisywania załączników lub zmienić nazwę zapisanych załączników na styl certian.
  • 2.3) Kliknij OK aby rozpocząć zapisywanie wszystkich załączników z wybranych e-maili.

Wskazówki: Przy powyższej konfiguracji wszystkie załączniki zostaną zapisane w określonym folderze. Jeśli chcesz zapisać tylko niektóre załączniki z certyfikatem, na przykład tylko pliki PDF ze słowem certyfikatu „faktura” w nazwie pliku, możesz skonfigurować warunki filtrowania w następujący sposób.  

  • Kliknij Opcje zaawansowane przycisk, aby rozwinąć Stan filtras;
  • Określ warunki w oparciu o swoje potrzeby.
    Porady: Tutaj sprawdzam Nazwa załącznika zawiera, a następnie wpisz „faktura” w polu tekstowym, a następnie zaznacz Typ załącznika wpisz „.pdf” w polu tekstowym.

3. W następnym wyskakującym oknie dialogowym kliknij tak aby kontynuować.

Następnie załączniki w wybranych wiadomościach e-mail są zapisywane od razu w określonym folderze.

Wskazówki: Aby odłączyć załączniki od wybranych wiadomości e-mail i pozostawić tylko hiperłącza do załączników w treści wiadomości e-mail, plik Odłącz wszystkie załączniki funkcja może pomóc.

  Jeśli chcesz mieć bezpłatny okres próbny (60-dniowy) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Powiązane artykuły

Automatycznie pobieraj / zapisuj załączniki z Outlooka do określonego folderu
Ogólnie rzecz biorąc, możesz zapisać wszystkie załączniki jednego e-maila, klikając Załączniki> Zapisz wszystkie załączniki w Outlooku. Ale jeśli chcesz zapisać wszystkie załączniki ze wszystkich otrzymanych e-maili i odbieranych e-maili, czy jesteś idealny? W tym artykule przedstawimy dwa rozwiązania do automatycznego pobierania załączników z programu Outlook do określonego folderu.

Zachowaj załączniki podczas odpowiadania w Outlooku
Gdy przekazujemy wiadomość e-mail w programie Microsoft Outlook, oryginalne załączniki tej wiadomości e-mail pozostają w przesłanej wiadomości. Jednak gdy odpowiadamy na wiadomość e-mail, oryginalne załączniki nie zostaną dołączone do nowej wiadomości zwrotnej. W tym miejscu przedstawimy kilka sztuczek dotyczących zachowywania oryginalnych załączników podczas odpowiadania w programie Microsoft Outlook.

Wyszukaj słowa w załączniku (treści) w programie Outlook
Kiedy wpisujemy słowo kluczowe w polu wyszukiwania błyskawicznego w programie Outlook, będzie ono wyszukiwać je w tematach, treściach, załącznikach itp. Wiadomości e-mail. Ale teraz muszę tylko wyszukać słowo kluczowe w treści załącznika tylko w programie Outlook, masz jakiś pomysł? W tym artykule przedstawiono szczegółowe kroki łatwego wyszukiwania słów w treści załącznika w programie Outlook.


    Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

    • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
    • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
    • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
    • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
    • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
    strzał Kutools Outlook Kutools tab 1180x121
    shot Kutools Outlook Kutools Plus Tab 1180x121
     
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.