Outlook'ta konular için açılır liste nasıl oluşturulur?

Outlook'ta farklı alıcılar arasında dağıtılması gereken farklı önceden belirlenmiş e-posta konularınız olabilir. E-posta yazarken manuel olarak yazmak yerine bir konu satırı açılır listesi olması çok verimli olacaktır. Aşağıda gösterilen gif gibi. Bu öğretici, size farklı önceden belirlenmiş konularla bir açılır liste oluşturmanıza yardımcı olacak üç VBA kodu sunar. E-posta yazarken, açılır menüden ihtiyacınız olan herhangi bir konuyu seçerek konu satırını otomatik olarak doldurabilirsiniz. Lütfen adım adım kılavuzu takip edin.

Outlook'ta VBA kodu ile konular için açılır liste oluşturun

Aslında, Outlook konu satırına bir açılır liste eklemenize izin vermez. Burada bir kullanıcı formu oluşturmanız ve bunu VBA kodlarıyla birleştirmeniz gerekir.

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

2. "Microsoft Visual Basic for Applications" penceresinde, "Ekle" > "UserForm" seçeneğine tıklayın.

3. Ardından "Visual Basic" düzenleyicisinin sol bölmesinde "Project1" altında "UserForm1" eklenir. "Araç Kutusu"ndan "ComboBox" ve "CommandButton" öğelerini sırasıyla "UserForm1" üzerine sürükleyerek bu kullanıcı formuna birleşik giriş kutusu ve bir komut düğmesi eklemeniz gerekir.

4. Komut düğmesine sağ tıklayın ve sağ tıklama menüsünden "Özellikler" seçeneğini seçin.

5. "Properties – CommandButton1" bölmesinde, "Caption" alanını "Tamam" olarak değiştirin. Bu işlem, komut düğmesinde görüntülenen metni değiştirecektir.

6. UserForm'daki boş alana çift tıklayarak ilgili "UserForm (Code)" penceresini açın ve mevcut kodu aşağıdaki VBA koduyla değiştirin.

VBA Kodu 1: Birden fazla önceden belirlenmiş e-posta konusu içeren açılır listeyle birlikte UserForm

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

Not: Kodda, "Konu 1, 2, 3, 4" ve "5", e-postalarınızda kullanmak istediğiniz önceden belirlenmiş e-posta konularıdır. “Değişiklik yok” mevcut e-posta konusunda hiçbir şeyi değiştirmeden bırakır. Önceden belirlenmiş e-posta konularını ihtiyaçlarınıza göre VBA kodunda değiştirebilirsiniz.

7. "Project1" > "Microsoft Outlook Nesneleri" > "ThisOutlookSession" öğesine çift tıklayın. Ardından aşağıdaki VBA kodunu "ThisOutlookSession (Code)" penceresine kopyalayın.

ThisOutlookSession penceresinde kullanılan VBA Kodu 2

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub

8. "Visual Basic" düzenleyicide "Ekle" > "Modül" seçeneğine devam edin. Ardından aşağıdaki VBA kodunu "Modül (Kod)" penceresine kopyalayıp yapıştırın.

Modül penceresinde kullanılan VBA Kodu 3

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

9. Kodları kaydedin ve "Alt" + "Q" tuşlarına basarak "Visual Basic Editor" penceresini kapatın ve Outlook uygulamasına geri dönün.

10. "Ana Sayfa" sekmesi altındaki "Yeni E-posta" düğmesine tıklayarak bir e-posta oluşturun.

11. Yeni ileti penceresinde, "Hızlı Erişim Araç Çubuğunu Özelleştir" > "Daha Fazla Komut" seçeneğine tıklayın.

12. "Outlook Seçenekleri" iletişim kutusunda, şu şekilde yapılandırmanız gerekir.

13. Daha sonra mesaj penceresinin Şeridine bir düğme eklendiğini görebilirsiniz.

14. Şimdi Outlook'u yeniden başlatmanız gerekiyor.

15. E-posta yazarken, önceden belirlenmiş bir konu eklemek isterseniz, Şeritteki yeni eklenen düğmeye tıklayarak kullanıcı formunu görüntüleyin, açılır menüden bir konu seçin ve ardından "Tamam" düğmesine tıklayarak konu satırını doldurun.

Notlar:

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

• Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
• Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
• Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
• Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
• Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
• Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

• Akıllı e-posta yanıtları
• Optimize edilmiş içerik
• Anahtar kelimeye dayalı taslaklar
• Akıllı içerik genişletme
• E-posta özetleme
• Çok dilli çeviri

En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın

---

En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!

Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı kolayca yönetir; yanıtlama, özetleme, optimize etme, uzatma, çeviri ve e-posta oluşturma işlemlerini zahmetsizce gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları engelle / Yinelenen e-postaları sil / Gelişmiş Arama / Klasörleri Düzenle...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...

🌟 Arayüz Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!

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

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Al'a Git

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

Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)

Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!

• ✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
• 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
• 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al