Outlook e-postalarını otomatik olarak sabit sürücüye / diske nasıl kaydedebilirim?
Yedekleme, çalışma kanıtları veya diğer amaçlar için Outlook e-postalarını sabit sürücüye kaydetmek isteyebilirsiniz. Outlook'tan diske elle sürükleyerek birkaç e-postayı diske kaydetmek kolaydır. Ancak, gelen her e-postayı otomatik olarak diske nasıl kaydedeceğinizi biliyor musunuz? Bu makale, Outlook'ta işlemek için bir VBA tanıtacaktır.
Outlook e-postalarını otomatik olarak sabit sürücüye / diske kaydedin
Outlook e-postalarını otomatik olarak sabit sürücüye / diske kaydedin
Bu yöntem, Outlook'taki her gelen e-postayı belirli bir diske ayrı HTML dosyası olarak otomatik olarak kaydetmek için bir VBA sunacaktır. Lütfen aşağıdaki işlemleri yapın:
1. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.
2. Project1'i genişletin ve çift tıklayın Bu OutlookOturumu açın ve ardından ThisOutlookSession penceresine VBA kodunun altına yapıştırın. Ekran görüntüsüne bakın:
VBA: Outlook e-postalarını HTML dosyaları olarak otomatik olarak diske kaydedin
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, gelen her e-posta "MyEmails" klasörüne ayrı HTML dosyası olarak kaydedilecektir.
notlar:
(1) Bu VBA, Belgeler klasörü altında “MyEmails” adlı bir klasör oluşturacaktır. Otomatik olarak kaydedilen e-postaları bu klasör yolu ile öğrenebilirsiniz: C: \ Kullanıcılar \ kullanıcı_adınız \ Belgeler \ E-postalarım
(2) Bu VBA, varsayılan e-posta hesabının Gelen Kutusu klasörüne alınan e-postalarla çalışır.
İlgili Makaleler
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.