Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

Outlook e-postalarını sabit diske nasıl otomatik olarak kaydedebilirim?

Author Kelly Last modified

Yedekleme, iş kanıtları veya diğer amaçlar için Outlook e-postalarını sabit diske kaydetmek isteyebilirsiniz. Birkaç e-postayı manuel olarak Outlook'tan sürükleme yöntemiyle diske kaydetmek kolaydır. Ancak, her gelen e-postayı otomatik olarak diske nasıl kaydedebileceğinizi biliyor musunuz? Bu makale, bunu Outlook'ta gerçekleştirmek için bir VBA tanıtacaktır.

Outlook e-postalarını otomatik olarak sabit diske kaydetme

Outlook e-postalarını otomatik olarak sabit diske kaydetme

Bu yöntem, her gelen e-postayı belirli bir diske tek tek HTML dosyası olarak kaydetmek için bir VBA tanıtmaktadır. Lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. Project1'i genişletin ve "ThisOutlookSession" öğesine çift tıklayarak açın, ardından aşağıdaki VBA kodunu ThisOutlookSession penceresine yapıştırın. Ekran görüntüsüne bakınız:

VBA: Outlook e-postalarını otomatik olarak HTML dosyaları olarak diske kaydetme

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
    Dim xNameSpace As Outlook.NameSpace
    Set xNameSpace = Outlook.Application.Session
    Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
    Dim FSO
    Dim xMailItem As Outlook.MailItem
    Dim xFilePath As String
    Dim xRegEx
    Dim xFileName As String
    On Error Resume Next
    xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
    xFilePath = xFilePath & "\MyEmails"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists(xFilePath) = False Then
        FSO.CreateFolder (xFilePath)
    End If
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.IgnoreCase = False
    xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
    If objItem.Class = olMail Then
        Set xMailItem = objItem
        xFileName = xRegEx.Replace(xMailItem.Subject, "")
        xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
    End If
    Exit Sub
End Sub

3. VBA kodunu kaydedin ve Microsoft Outlook'unuzu yeniden başlatın.

Şu andan itibaren, her gelen e-posta “MyEmails” klasörüne tek tek HTML dosyası olarak kaydedilecektir.

Notlar:
(1) Bu VBA, Belgeler klasörü altında “MyEmails” adında bir klasör oluşturacaktır. Otomatik olarak kaydedilen e-postaları şu klasör yolu ile bulabilirsiniz: C:\Users\kullanıcı_adınız\Documents\MyEmails
(2) Bu VBA, varsayılan e-posta hesabının Gelen Kutusu klasöründe alınan e-postalarla çalışacaktır.

İlgili Makaleler

Outlook'ta toplu/seçili e-postaları Excel/Text/PST dosyasına nasıl aktarabilirim?

En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!

Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı kolayca yönetir; yanıtlama, özetleme, optimize etme, uzatma, çeviri ve e-posta oluşturma işlemlerini zahmetsizce gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları engelle / Yinelenen e-postaları sil / Gelişmiş Arama / Klasörleri Düzenle...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...

🌟 Arayüz Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!

Tek tıkla Kutools for Outlook'u anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2

🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin

Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)

Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!

  • ✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
  • 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
  • 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint