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

Author: Siluvia Last Modified: 2025-08-07

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.

doc-subject-line-drop-down-list-1

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.

doc-subject-line-drop-down-list-2

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

doc-subject-line-drop-down-list-3

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.

doc-subject-line-drop-down-list-4

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

doc-subject-line-drop-down-list-5

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

doc-subject-line-drop-down-list-6

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

doc-subject-line-drop-down-list-7

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.

doc-subject-line-drop-down-list-8

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

12.1) "Komutları şuradan seç" açılır listesinde "Makrolar" seçeneğini seçin;

12.2) Komutlar listesi kutusunda "Project1.ChangeSubject" seçeneğini seçin;

12.3) "Ekle" düğmesine tıklayın;

12.4) "Tamam" düğmesine tıklayın. Ekran görüntüsüne bakın:

doc-subject-line-drop-down-list-9

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

doc-subject-line-drop-down-list-11

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:

1) Varolan konuyu açılır listeden seçilen herhangi bir konuyla değiştirebilirsiniz;

2) Bu yöntem, yeni bir pencerede e-postaya yanıt verirken veya iletilirken iyi çalışır;

3) Okuma bölmesinden ayrı bir pencere açmak yerine satır içi yanıt vermeyi tercih ediyorsanız, kullanıcı formunu aşağıdaki gibi getirebilirsiniz.

3.1) "Geliştirici" > "Makrolar" > "Project1.ChangeSubject" seçeneğine tıklayın. Ekran görüntüsüne bakın:

doc-subject-line-drop-down-list-13

3.2) Kullanıcı formu açıldığında, açılır listeden önceden belirlenmiş bir konu seçin ve "Tamam" düğmesine tıklayın, orijinal konu hemen değişecektir.

4) Açılır menüde "Değişiklik yok" seçeneğini seçerseniz, orijinal konu herhangi bir değişiklik olmadan korunacaktır.

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: