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

Author: Kelly Last Modified: 2025-06-10

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.