Outlook'ta aynı anda birçok e-postadaki ekler kaydedilir mi?

Birisi bana bir gecede 200 e-posta gönderdi. iç çekmek

Önümüzdeki üç gece için her gece başka bir 200 bekliyorum (e-postalar bir sunucudan geliyor, bu yüzden onları toplu isteyin mümkün değildir).

Dosya eklerinin benzersiz dosya adları vardır, bu nedenle ekleri tüm e-posta grubundan bir kerede kaydetmenin kolay bir yolu var mı?

Her bir e-postayı ayrı ayrı açmaktan, sağ tıklama, kaydetme, durulama, tekrarlama ...

VBA'da akıcıyım, Excel makroları oluşturmak çok rahatım, bu nedenle tüm iletiler için belirli bir klasörü geçmenin ve her biri için ekleri kaydetmenin nispeten kolay olacağını hayal edebiliyorum, ancak daha önce bir Outlook makrosu yazmadım, aşina değilim nesne hiyerarşisi.

NirSoft'un OutlookAttachView bunu komut satırından bile kolayca yapabilir!

OutlookAttachView, Outlook'unuzda depolanan tüm iletileri tarar ve bulduğu tüm ekli dosyaların listesini görüntüler. Kolayca bir veya daha fazla ek seçebilir ve tümünü istediğiniz klasöre kaydedebilir, ayrıca posta kutunuzda çok fazla disk alanı kaplayan istenmeyen büyük ekleri silebilirsiniz. Eklerin listesini xml / html / text / csv dosyasına da kaydedebilirsiniz.

OutlookAttachView ücretsiz bir yazılımdır.

Outlook Eki Sökücü Eklentisi :

Ekleri kaydetmek ve ayıklamak için Outlook dosyalarınızın boyutunu küçülten ücretsiz Outlook eklentisi. Kullanımı kolay. Birçok özellik.

İşte bununla ilgili daha fazla seçenek.

Sue Mosher'in sitesi http://slipstick.com Outlook için harika bir kaynak. Aynı zamanda bir Microsoft MVP'sidir.

Orada kodlayıcılar için: Ekleri sabit sürücüye kaydedin ve alternatif olarak VBA kullanarak bir Eki kaydedin ve açın .

Aşağıdaki kod Outlook 2000 ve sonraki sürümlerde çalışır. Ekleri seçili mesajlardan kaydeder ancak ekleri mesajlardan silmez.

...

Bu sayfadaki kodu kopyalayıp ThisOutlookSession projenize yapıştırın.

Outlook'ta, VBA düzenleyicisini açmak için Alt + F11 tuşlarına basın ve Microsoft Outlook Nesneleri'ni genişletin, ardından düzenleme bölmesinde açmak için ThisOutlookSession'a çift tıklayın ve kodu yapıştırmak için Ctrl + V tuşlarına basın.

Kullanmak için önce Belgelerim altında OLAttachments adlı bir klasör oluşturmanız gerekir (kod sizin için oluşturmaz). Ardından bir veya daha fazla ileti seçin ve ekleri kaydetmek için makroyu çalıştırın. Makroları etkinleştirmeden veya makroyu imzalamadan önce uyarmak için makro güvenliğini ayarlamanız gerekir. Kodu düzenleyerek eklerin kaydedildiği klasör adını veya yolunu değiştirebilirsiniz.

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

Programlamak istemiyorsanız: Outlook için Ek Yönetim Araçları

Ben 30 postalarda bana bölünmüş RAR dosyasını göndermek için güzel olduğunu düşündüm bir kişiden e-posta ile bombalandı sonra başarıyla kullandım Microsoft tarafından yayınlanan bu VBA komut adı verilen mAttachmentSaver.

İlk olarak, komut dosyasını içeren arşivi indirmeniz gerekir .

Makroların etkinleştirilmesi önemlidir. Outlook 2010'da, Dosya »Seçenekler» Güven Merkezi »Güven Merkezi Ayarları» Makro Ayarları »Tüm makroları etkinleştir» Tamam »Tamam seçeneğine giderek bunu yapabilirsiniz . Sonra Outlook'u yeniden başlatmanız gerekir. Önceki sürümlerde, Araçlar »Makro» Güvenlik… altındadır .

Ardından, TechCenter makalesinde özetlenen adımları izleyin:

• Alt+F11VBE'yi Outlook'ta açmak için basın .

• mAttachmentSaver.basDosyayı Proje Gezgini'ne ( Ctrl+Rgöremiyorsanız basın ) veya Dosya >> Dosyayı İçe Aktar ... ( Ctrl+M) öğesine sürükleyin .

  ExecuteSavingEkleri kaydetmek için makroyu çalıştırın .

• Outlook kullanıcı arabirimine dönün Alt+F8ve Makrolar penceresini açmak için tuşuna basın .

• ExecuteSavingAdlar listesinden seçin ve ardından Çalıştır düğmesini tıklatın (Bu makroyu çalıştırmadan önce lütfen Outlook öğelerini seçmeyi unutmayın).

• Ekleri Klasöre Gözat iletişim kutusundan kaydetmek için belirli bir klasör seçin ve ardından Tamam düğmesini tıklatın.