Outlook penceresindeki ekleri diske kaydetmeden nasıl yeniden adlandırabilirim?
Alınan e-posta mesajının ekleri için, gelecekteki çalışmalarda kolayca tanımak için bu ekleri yeniden adlandırmak isteyebilirsiniz. Aslında, Outlook penceresinde ekleri diske kaydetmeden doğrudan yeniden adlandırmanız için Outlook yerleşik işlevi yoktur. Bu makalede, size Outlook'ta ekleri yeniden adlandırma yöntemlerini göstereceğiz.
Outlook'ta VBA kodu ile ekleri otomatik olarak kaydedin ve yeniden adlandırın
Kutools for Outlook ile diske kaydetmeden e-postadaki ekleri kolayca yeniden adlandırın
Outlook'ta VBA koduyla ekleri kaydedin ve yeniden adlandırın
Bu bölümde, seçilen e-postanın eklerini otomatik olarak kaydetmek için bir VBA kodu sağlayacağız. Kaydettikten sonra, eklerin son değiştirilme tarihinin orijinal ek adlarına önek olarak eklendiğini görebilirsiniz. Lütfen aşağıdaki işlemleri yapın.
1. içinde evraklar klasör, adlı yeni bir klasör oluşturun Ekler seçilen bir e-postanın eklerini kaydetmek ve yeniden adlandırmak için.
2. Kaydetmek ve değiştirilmiş tarihlerle yeniden adlandırmak istediğiniz ekleri olan e-postayı seçin.
3. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulama için Microsoft Visual Basic penceresi. İçinde Uygulama için Microsoft Visual Basic Pencere, tıklayın Ekle > modülve ardından Modül penceresine VBA kodunun altına yapıştırın.
VBA kodu: Ekleri kaydedin ve dosya adından önce değiştirilen tarihi ekleyin
Public Sub saveattachmentsadddate()
Dim itm As Outlook.MailItem
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim fso As Object
Dim oldName
Dim file As String
Dim DateFormat As String
Dim newName As String
Dim enviro As String
enviro = CStr(Environ("USERPROFILE"))
saveFolder = enviro & "\Documents\Attachments\"
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each itm In Selection
For Each objAtt In itm.Attachments
file = saveFolder & objAtt.DisplayName
objAtt.SaveAsFile file
'Get the file name
Set oldName = fso.GetFile(file)
DateFormat = Format(oldName.DateLastModified, "yyyy-mm-dd ")
newName = DateFormat & objAtt.DisplayName
oldName.Name = newName
Set objAtt = Nothing
Next
Next
Set fso = Nothing
End Sub
4. Tuşuna basın. F5 kodu çalıştırmak için anahtar ve seçilen e-postadaki ekler klasöre kaydedilir "\ Belgeler \ Ekler \" ve eklerin son değiştirilme tarihi, orijinal ek adlarına otomatik olarak bir önek olarak eklendi.
notlar:
Kutools for Outlook ile diske kaydetmeden e-postadaki ekleri kolayca yeniden adlandırın
Burada şiddetle tavsiye edilir Ekleri Yeniden Adlandırın özelliği Outlook için Kutools. Bu özellikle, Outlook penceresindeki ekleri diske kaydetmeden doğrudan yeniden adlandırabilirsiniz.
Outlook için Kutools : 100'den fazla kullanışlı Outlook eklentisiyle, 60 gün içinde hiçbir sınırlama olmaksızın ücretsiz denemek.
1. Kurulumdan sonra Outlook için Kutools, lütfen ekleri yeniden adlandıracağınız bir e-posta seçin ve ardından Kutools > Ek Araçları > Tümünü yeniden adlandır.
2. içinde Ekleri Yeniden Adlandırma iletişim kutusunda, seçilen e-postanın tüm eklerinin adının İsim sütun. Lütfen düzenlemek için bir ek adına çift tıklayın ve ardından OK butonuna basarak değişiklikleri kaydedin.
İpuçları: Tüm ek adlarını değiştirebilir veya iletişim kutusunda ihtiyaç duyduğunuz şekilde ek adlarından herhangi birini değiştirebilirsiniz.
Ardından, seçilen e-posta penceresinde ekler yeniden adlandırılır.
not: Belirli bir eki Okuma Bölmesinde seçip ardından öğesine tıklayarak yeniden adlandırabilirsiniz. Kutools > adını değiştirmek, yeniden adlandır iletişim kutusunda, alana yeni bir ad yazarak İsim kutusunu ve ardından OK kaydetmek için düğmesine basın. Ekran görüntüsüne bakın:
Bu yardımcı programı ücretsiz olarak denemek istiyorsanız, lütfen şu adrese gidin: yazılımı ücretsiz indirin önce ve sonra yukarıdaki adımlara göre işlemi uygulamaya gidin.
İlgili yazılar:
- Outlook'taki tüm ekleri birden çok e-postadan klasöre nasıl kaydedebilirim?
- Outlook'ta yanıtlarken ekler nasıl saklanır?
- Outlook'ta tüm ekler e-postadan nasıl kaldırılır?
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.