KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Outlook’ta e-posta konusunu ek dosya adıyla otomatik olarak nasıl doldurabilirsiniz?

YazarSiluvia Değiştirme Tarihi

Outlook’ta e-posta konusuna her seferinde ek adını elle yazmak, özellikle ek adını konu olarak kullanmaya alışkın olanlar için oldukça zaman alıcı olabilir. Aşağıdaki GIF’te gösterildiği gibi, bir ek eklediğinizde e-posta konusunu otomatik olarak bu ek adıyla doldurmak istiyorsanız, bu öğreticideki VBA yöntemi tam size göre!


VBA koduyla E-posta Konusu'yi Ek Adı ile otomatik olarak doldurun

Lütfen Outlook’ta e-posta konusunu “Ek Ekle” olarak otomatik doldurmak için aşağıdaki VBA kodunu çalıştırın.

1. Outlook'u başlatın ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Project1 (VbProject.OTM) > Microsoft Outlook Nesneleri > ThisOutlookSession öğesine çift tıklayarak ThisOutlookSession (Kod) düzenleyicisini açın.

3. Ardından aşağıdaki VBA kodunu ThisOutlookSession (Kod) düzenleyicisine kopyalayın.

VBA kodu: E-posta Konusu'yi Ek Adı ile otomatik olarak doldur

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

doc-autofill-subject-line-with-attachment-name-2

4. Artık kodu kaydedip Outlook'u yeniden başlatmanız gerekiyor.

5. Bundan sonra, henüz konusu doldurulmamış bir e-postaya ek eklediğinizde, Kutools for Outlook, ek adını konu olarak kullanmak isteyip istemediğinizi soran bir iletişim kutusu açacaktır; Evet düğmesine tıklayın.

doc-autofill-subject-line-with-attachment-name-3

Böylece konu satırı otomatik olarak "Ek Ekle" adıyla doldurulur.

doc-autofill-subject-line-with-attachment-name-4

Notlar:

1) Zaten konuyu doldurduysanız, ek eklemek iletişim kutusunu açmaz.
2) Geçerli e-postadan mevcut bir konuyu kaldırsanız bile imleç hâlâ konu satırında görünüyorsa, ek eklemek iletişim kutusunu yine açmaz. Konuyu kaldırdıktan sonra, kodun çalışması için ileti kutusunu yenilemek amacıyla konu satırının dışına tıklamanız gerekir.
3) Aynı anda birden fazla ek eklerseniz, yalnızca ilk eklenen dosyanın adı e-postanın konusu olarak kullanılabilir.

Outlook’ta Yapay Zeka Posta Asistanı: Daha Akıllı Yanıtlar, Net İletişim (tek tıkla sihir!)

Kutools for Outlook’un Yapay Zeka Posta Asistanı ile günlük Outlook görevlerinizi hızlandırın! Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesajlarınızı zahmetsizce taslak haline getirip iyileşmenize yardımcı olur.
doc ai email handle

Bu özellik şunları destekler:

  • Akıllı Yanıtlar: Geçmiş sohbetlerinize dayanarak özelleştirilmiş, net ve hemen kullanıma hazır yanıtlar alın.
  • Geliştirilmiş İçerik: E-posta metninizi netlik ve etki açısından otomatik olarak güçlendirin.
  • Zahmetsiz Yazım: Anahtar kelimeleri girin, gerisini çoklu Yazı Stili ile yapay zeka halletsin.
  • Akıllı Uzantılar: Bağlama duyarlı önerilerle fikirlerinizi daha da geliştirin.
  • Özetleme: Uzun e-postaların kısa ve öz özetlerini anında alın.
  • Küresel Erişim: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

  • Akıllı e-posta yanıtları
  • İyileştirilmiş içerik
  • Anahtar kelimeye dayalı taslaklar
  • Akıllı içerik uzantısı
  • E-posta özetleme
  • Çok dilli çeviri

Beklemeyin—Yapay Zeka Posta Asistanı’nı şimdi indirin ve keyfini çıkarın!


En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ek Dosyalar Pro: Toplu Kaydet, Toplu Ayır, Toplu Sıkıştır, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing’e Karşı E-postalar / 🕘Gönderenin Mevcut Saati: Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’u tek bir tıkla anında etkinleştirin! Beklemeyin, hemen indirin ve verimliliğinizi artırın!

kutools for outlook features1kutools for outlook features2

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

  • ✅Tek tıkla kullanım kolaylığı: Beş kurulum paketini tek seferde indirin.
  • 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
  • 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint