Bazen, birkaç ek içeren bir e-postayı ilettiğinizde, iletme sırasında ekleri doğrudan yeniden adlandırmak isteyebilirsiniz. Bu makale size Outlook VBA ile bunu nasıl başaracağınızı öğretecektir.
Varsayılan olarak Outlook, kullanıcının iletme sırasında ekleri yeniden adlandırmasına izin vermez. Bu nedenle, onları yeniden adlandırmak isterseniz, benzersiz yol, dosyaları önce bilgisayarınızdaki yerel bir klasöre kaydetmek, ardından yeniden adlandırmak ve ardından yönlendiren e-postaya yeniden eklemektir. Bu yöntemin oldukça zahmetli olduğu açıktır. Ayrıca, bazen bu dosyalar sizin için önemsiz olabilir, bu yüzden onları gerçekten bilgisayarınıza kaydetmek istemezsiniz. Bu durumda, ekli dosyaları doğrudan yönlendirme e-postalarında yeniden adlandırmanıza izin verecek daha hızlı bir yöntemi özlemelisiniz. Aşağıda, Outlook VBA aracılığıyla gerçekleştirmek için bir yaklaşım yer almaktadır.
Bir E-postayı İletirken Ekleri Yeniden Adlandırın
- İlk olarak, Outlook'u başlatın ve “Geliştirici” sekmesine gidin.
- Ardından “Visual Basic” düğmesini bulun ve tıklayın.
- Bundan sonra, yeni açılır pencerede “Ekle” > “Modül”ü seçerek yeni bir modül açın.
- Ardından, aşağıdaki VBA kodlarını kopyalayıp içine yapıştırmanız gerekir.
Sub RenameAttachmentsWhenForwarding()
Dim olItem As MailItem
Dim Att As Attachment
Dim Atts As Attachments
Dim olForward As MailItem
Dim FWAtt As Attachment
Dim FWAtts As Attachments
Dim FSO As Object
Dim TempFPath As Object
Dim FilePath As String
Dim strName As String
Dim strExten As String
Dim strFile As String
Set olItem = Application.ActiveExplorer.Selection.Item(1)
Set Atts = olItem.Attachments
Set olForward = olItem.Forward
olForward.Display
On Error Resume Next
For Each Att In Atts
'Get the path to Temporary Folder
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFPath = FSO.GetSpecialFolder(2)
FilePath = TempFPath.Path & "\"
'Rename the attachments
strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
'Change "4" based on the length of the attachment file extension
strExten = Right(Att.FileName, 4)
strFile = FilePath & strName & "." & strExten
If strName <> "" Then
'Save the attachments to the Temporary Folder
Att.SaveAsFile (strFile)
'Add the attachments saved in new names from the Temporary Folder
olForward.Attachments.Add (strFile)
Set FWAtts = olForward.Attachments
'Remove the original attachments
For Each FWAtt In FWAtts
If InStr(FWAtt.FileName, Att.FileName) > 0 Then
FWAtt.Delete
End If
Next
End If
Next
End Sub
- Bundan sonra, mevcut "Visual Basic" penceresinden çıkıp her zamanki gibi yeni makroyu Hızlı Erişim Araç Çubuğuna eklemeye devam edebilirsiniz.
- Sonunda bir deneyebilirsin.
- Öncelikle bir e-posta seçin ve ardından Hızlı Erişim Araç Çubuğundaki yeni makro düğmesini tıklayın.
- Ardından yeni bir yönlendirme e-postası açılacaktır. Eklenen dosyaları orijinal adlarıyla "Eklendi" satırında görebilir ve ayrıca belirli bir ek için yeni bir ad girmenizi isteyen bir iletişim kutusu alabilirsiniz.
- Tüm dosyalar için yeni adlar belirledikten ve "Tamam" ı tıkladıktan sonra, eklenen tüm dosyaların yeni adlarda olduğunu göreceksiniz.
- Sonunda yönlendirme e-postalarını oluşturabilir ve mesajı göndermek için "Gönder" düğmesine basabilirsiniz.
Outlook'unuza Yönelik Tüm Potansiyel Tehditlere Karşı Tetikte Olun
Outlook'un bozulmaya açık olduğu kabul edilmektedir. Bu nedenle, Outlook verilerini virüs bulaşması, kötü amaçlı yazılım saldırısı ve dahil olmak üzere tüm tehditlere karşı korumak uzun soluklu bir görevdir. Outlook PST veri hasarıvb. En önemli işlem, Outlook verilerinizin düzenli olarak yedeğini almaktır. Ayrıca, en iyi onarım araçlarından birini elinizin altında bulundurmak da akıllıca olacaktır, örneğin DataNumen Outlook Repair, kullanışlı olacak.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. hasarlı mdf'yi onarın ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com