Skip to main content

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

Author: Kelly Last Modified: 2025-08-07

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ı

Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!

Yepyeni Kutools for Outlook'u100’den fazla harika özellikle deneyimleyin! Hemen indirin!

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

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için Mevcut) / E-postaları Zamanla Gönder / Gönderirken Kural ile Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Birden Fazla Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl ...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Sahtekarlık E-postalarını 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 Sihri: 😊Daha Fazla Şık ve Güzel Emoji / Önemli e-postalar geldiğinde seni uyarır / Outlook’u Kapatmak Yerine Küçült ...

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

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçili 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 dil desteği!

Kutools for Outlook'un tüm özelliklerini tek tıkla hemen açın. Beklemeyin, şimdi indirip verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2