Outlook'ta e-posta konusunu ek adıyla otomatik olarak nasıl doldurabilirim?
Outlook'ta bir e-postanın konusu olarak ek adını kullanmaya alışmış olanlar için, ek adını her seferinde konu satırına manuel olarak yazmak zaman alıcı olacaktır. Aşağıdaki gif'te gösterildiği gibi, bir ek eklediğinizde e-posta konu satırını ek adıyla otomatik olarak doldurmak istiyorsanız, bu eğitimdeki VBA yöntemi yardımcı olacaktır.
E-posta konusunu VBA koduyla ek adıyla otomatik olarak doldurun
E-posta konusunu Outlook'ta eklenen ekin adıyla otomatik olarak doldurmak için lütfen aşağıdaki VBA kodunu çalıştırın.
1. Outlook'unuzu başlatın, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Proje1 (VbProject.OTM) > Microsoft Outlook Nesneleri > Bu OutlookOturumu açmak için ThisOutlookSession (Kod) editörü.
3. Ardından aşağıdaki VBA kodunu kopyalayın. ThisOutlookSession (Kod) editörü.
VBA kodu: E-posta konusunu ek adıyla otomatik olarak doldurun
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Şimdi kodu kaydetmeniz ve Outlook'u yeniden başlatmanız gerekiyor.
5. Şu andan itibaren, konusu henüz doldurulmamış bir e-postaya ek eklediğinizde, Outlook için Kutools Ek adını konu olarak kullanmak isteyip istemediğinizi soran bir iletişim kutusu açılacaktır, Evet düğmesine basın.
Ardından konu satırı, eklenen ekin adıyla otomatik olarak doldurulacaktır.
notlar:
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.