Olvassa el ezt az útmutatót, hogy megtanulja az összes módot
- A Microsoft lehetővé teszi az e-mailhez csatolt összes melléklet letöltését egy mozdulattal.
- Hasonlóképpen több mellékletből is letölthet mellékleteket a VB kód használatával.
- Olvassa el ezt az útmutatót a több melléklet letöltésének lépésről lépésre történő megismeréséhez.
Professzionális felhasználóként az Outlookban kapott e-mailek rengeteg mellékletének letöltése monoton és időigényes lehet.
Szerencsére egyszerre több mellékletet is letölthet egyetlen e-mailből az Outlook alkalmazásban anélkül, hogy mindegyiknél meg kellene nyomnia a Mentés gombot. Ezenkívül egy egyszerű megoldással több, több e-mailben található mellékletet is letölthet.
Ha kíváncsi a lépésről lépésre történő eljárásra, tartson velünk, miközben végigvezetjük az eljáráson.
Hogyan tölthetek le minden mellékletet egy e-mailből?
1. Az asztali alkalmazás használata
- Indítsa el a Microsoft Outlook alkalmazást a Windows PC-n.
- Keresse meg és nyissa meg az e-mailt az olvasópanelen, ahonnan letölti a mellékleteket.
- Váltson a Mellékletek szakaszt a felső menüsorban, kattintson a jobb gombbal a jobb oldali részben található egyik fájlmellékletre, és válassza ki Mentse el az összes mellékletet a legördülő menüben.
- megnyomni a Ctrl gombot, és a megnyíló kis párbeszédpanelen válassza ki az összes letölteni kívánt mellékletet.
- megnyomni a rendben gombot a szükséges mellékletek kiválasztása után.
- Egy új Mentés másként megnyílik egy előugró ablak a mellékletek mentéséhez. Keresse meg azt a mappát, ahová menteni szeretné a csatolmányokat, és nyomja meg a gombot rendben gombra a jobb alsó sarokban a melléklet letöltésének elindításához.
Könnyen letöltheti az e-mailekhez csatolt összes fájlt egyszerre, ahelyett, hogy minden egyes fájlt külön-külön töltene le.
2. A webalkalmazás használata
- Hozzáférés a Microsoft Outlook webalkalmazás az előnyben részesített webböngésző használatával, és adja meg bejelentkezési adatait, amikor a rendszer kéri a bejelentkezést.
- Válaszd ki a Beérkezett üzenetek mappát a bal oldali menüsorból itthon része a webalkalmazásnak.
- Kattintson duplán a kérdéses e-mailre az e-mail tartalmának új ablakban való megtekintéséhez.
- Kattints a Mind letöltése gombot a mellékletek ZIP-fájl formájában történő letöltéséhez.
- Válassza ki a letöltési helyet, és nyomja meg a gombot rendben gombot, ha a Mentés másként megnyílik a párbeszédpanel.
Ez egy egyszerű módszer az összes e-mail melléklet letöltésére egy e-mailből, ha a webalkalmazást részesíti előnyben az Outlook alkalmazás helyett.
Hogyan tölthetem le az összes mellékletet több e-mailből?
Ezt a módszert csak akkor próbálhatja ki, ha Outlook 2019, 2016, 2013, 2010, 2007 vagy 2003 alkalmazást használ.
1. Hozzon létre egy új mappát
- Használja a ablakok + E parancsikon az indításhoz Fájlkezelő.
- Navigáljon a Dokumentumok mappát a bal oldalsávról.
- Kattintson a jobb gombbal bárhová a jobb oldali szakaszon, és válassza ki Új követi Mappa a helyi menüből.
- Kattintson duplán a mappa nevére, és nevezze át a következőre Mellékletek.
2. Hozzon létre egy VBA-szkriptet
- Most indítsa el az Outlook alkalmazást a Windows PC-n.
- Válaszd a Fájl opciót, majd válassza ki Lehetőségek a bal oldalsávról.
- Válassza ki Szalag testreszabása a bal oldali panelről Szóbeállítások ablak.
- Válaszd ki a Fejlesztő opció a Fő lapok és nyomja meg a Plusz ikonra a Fejlesztői mód hozzáadásához az Outlook szalagmenüjéhez.
- Zárja be a Word beállításai előugró ablakot, majd válassza ki Fejlesztői mód követi Visual Basic a főmenüből.
- Válassza ki Projekt1 alapértelmezettként jelenik meg, majd válassza ki Beszúrás követi Modul a Modul ablak eléréséhez.
- Most másolja ki és illessze be a következő kódot 1. modul és csukja be az ablakot.
Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. Dim xMailItem As Outlook.MailItem. Dim xAttachments As Outlook.Attachments. Dim xSelection As Outlook.Selection. Dim i As Long. Dim xAttCount As Long. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String. On Error Resume Next. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection. xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then VBA.MkDir xFolderPath. End If. GFilepath = ""
For Each xMailItem In xSelection Set xAttachments = xMailItem.Attachments xAttCount = xAttachments.Count xSaveFiles = "" If xAttCount > 0 Then For i = xAttCount To 1 Step -1 GCount = 0 xFilePath = xFolderPath & xAttachments.Item(i).FileName GFilepath = xFilePath xFilePath = FileRename(xFilePath) If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then xAttachments.Item(i).SaveAsFile xFilePath If xMailItem.BodyFormat <> olFormatHTML Then xSaveFiles = xSaveFiles & vbCrLf & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If xFso.FileExists(xPath) Then GCount = GCount + 1 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath) FileRename = FileRename(xPath)
End If. xFso = Nothing. End Function 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
3. Futtassa a VBS szkriptet
- Váltson a Fejlesztői mód majd válassza ki Visual Basic az Outlook szalagról.
- Válassza ki 1. modul és megütötte a F5 gombot a kód futtatásához.
- Kattints a Melléklet mentése gombot a mellékletek kiválasztása után a művelet megerősítéséhez.
A VBA-szkriptek lehetővé teszik a mellékletletöltési folyamat automatizálását a Microsoft Outlook programban. A számítógép károsodásának elkerülése érdekében azonban óvatosan járjon el a VBA-szkriptekkel.
Ebben az útmutatóban minden benne van! Reméljük, tisztában van azzal, hogy milyen különböző módokon töltheti le az összes e-mail mellékletet a Microsoft Outlook alkalmazásból.
Ha belefut a Hiba történt, hiba történt az Outlookban alkalmazást, próbálja ki az ebben az útmutatóban javasolt megoldásokat.
Ha bármilyen kérdése van, vagy tud más módszerekről, tudassa velünk a megjegyzések részben.