Tüm Ekleri Outlook'tan İndirmenin 3 Yolu

Tüm yolları öğrenmek için bu kılavuzu gözden geçirin

Profesyonel bir kullanıcı olarak, Outlook'ta alınan e-postalardan tonlarca ek indirmek monoton ve zaman alıcı olabilir.

Neyse ki, her biri için Kaydet düğmesine basmak zorunda kalmadan Outlook'ta bir e-postadan birden çok eki aynı anda kolayca indirebilirsiniz. Ayrıca, birden çok e-postada bulunan birden çok eki basit bir geçici çözümle indirmek de mümkündür.

Adım adım prosedürü merak ediyorsanız, prosedür boyunca size rehberlik ederken bizimle kalın.

Bir e-postadaki tüm ekleri nasıl indiririm?

1. Masaüstü uygulamasını kullanma

1. Başlat Microsoft Outlook Windows PC'nizdeki uygulama.
2. Ekleri indirdiğiniz okuma bölmesinde bu e-postayı arayın ve açın.
3. Şuna geç: Ekler bölümünde, sağ bölümdeki dosya eklerinden birine sağ tıklayın ve Tüm ekleri kaydet açılır menüde
instagram story viewer
4. basın Ctrl tuşuna basın ve açılan küçük iletişim kutusunda indirmek istediğiniz tüm ekleri seçin.
5. basın TAMAM Gerekli ekleri seçtikten sonra düğmesine basın.
6. yeni Farklı kaydet eklerinizi kaydetmek için açılır pencere açılacaktır. Ek dosyalarını kaydetmek istediğiniz klasöre göz atın ve TAMAM Ekin indirilmesini başlatmak için sağ alttaki düğme.

Her dosyayı ayrı ayrı indirmek yerine, bir e-postaya eklenmiş tüm dosyaları bir kerede kolayca indirebilirsiniz.

2. Web uygulamasını kullanma

1. Erişmek Microsoft Outlook web uygulaması tercih ettiğiniz web tarayıcısını kullanın ve oturum açmanız istendiğinde oturum açma kimlik bilgilerinizi sağlayın.
2. seçin Gelen kutusu sol menü çubuğundaki klasör Ev Web uygulamasının bölümü.
3. E-posta içeriğini yeni bir pencerede görüntülemek için söz konusu e-postayı çift tıklayın.
4. Tıkla Hepsini indir Ekleri bir ZIP dosyası biçiminde indirmek için düğmesine basın.
5. İndirme konumunu seçin ve TAMAM düğmesi Farklı kaydet iletişim kutusu açılır.

Bu, Outlook uygulaması yerine web uygulamasını tercih ediyorsanız, tüm e-posta eklerini tek bir e-postadan indirmek için basit bir yöntemdir.

Birden çok e-postadaki tüm ekleri nasıl indirebilirim?

NOT

Bu yöntemi yalnızca Outlook 2019, 2016, 2013, 2010, 2007 veya 2003 kullanıyorsanız deneyebilirsiniz.

1. Yeni bir klasör oluştur

1. Kullan pencereler + e başlatmak için kısayol Dosya Gezgini.
2. Şuraya git: Belgeler sol kenar çubuğundan klasör.
3. Sağ bölümde herhangi bir yere sağ tıklayın ve seçin Yeni bunu takiben Dosya bağlam menüsünden.
4. Klasör adına çift tıklayın ve şu şekilde yeniden adlandırın: Ekler.

2. Bir VBA betiği oluşturun

1. Şimdi Windows PC'nizde Outlook uygulamasını başlatın.
2. Seç Dosya seçeneğini seçin ve ardından Seçenekler sol kenar çubuğundan.
3. Seçme Şeridi Özelleştir sol panelden Kelime Seçenekleri pencere.
4. seçin Geliştirici seçeneği Ana Sekmeler ve tuşuna basın Artı Geliştirici modunu Outlook şerit menüsüne eklemek için simge.
5. Word Seçenekleri açılır penceresini kapatın ve ardından Geliştirici modu bunu takiben Visual Basic ana menüden.
6. Seçme 1. Proje varsayılan olarak görüntülenir ve ardından Sokmak bunu takiben Modül Modül penceresine erişmek için
7. Şimdi aşağıdaki kodu kopyalayıp içine yapıştırın Modül1 ve pencereyi kapatın.

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. VBS betiğini çalıştırın

1. Şuna geç: Geliştirici modu ve sonra seçin Visual Basic Outlook şeridinden.
2. Seçme Modül1 ve vur F5 kodu çalıştırmak için tuş.
3. Tıkla Eki Kaydet eylemi onaylamak için ekleri seçtikten sonra düğmesine basın.

VBA betikleri, Microsoft Outlook'ta ek indirme işlemini otomatikleştirmenizi sağlar. Ancak, bilgisayarınıza zarar vermemek için VBA komut dosyalarıyla dikkatli bir şekilde ilerlemelisiniz.

Hepsi bu kılavuzda! Microsoft Outlook uygulamasından tüm e-posta eklerini kolayca indirmenin farklı yollarının farkında olduğunuzu umuyoruz.

Eğer Outlook'ta bir şeyler ters gitti hatası uygulamasında, bu kılavuzda önerilen çözümleri deneyin.

Herhangi bir sorunuz varsa veya başka yöntemler hakkında bilginiz varsa, yorumlar bölümünde bize bildirin.