Ana içeriğe atla

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

Outlook'ta farklı alıcılara dağıtılması gereken farklı önceden ayarlanmış e-posta konularınız olabilir. Bir e-posta oluştururken manuel olarak yazmadan bir konu seçmek için bir konu satırı açılır listesine sahip olmak çok verimli olacaktır. Tıpkı aşağıda gösterilen gif gibi. Bu öğretici, farklı önceden ayarlanmış konulara sahip bir açılır liste oluşturmanıza yardımcı olacak üç VBA kodu sağlar. Bir e-posta oluştururken, konu satırını otomatik olarak doldurmak için açılır menüden ihtiyacınız olan herhangi bir konuyu seçebilirsiniz. Bunu yapmak için lütfen adım adım kılavuzu izleyin.


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

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

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, tıklayın Ekle > Kullanıcı Formu.

3. Sonra KullanıcıForm1 altına yerleştirilir Project1 öğesinin sol bölmesinde Visual Basic editör. sürükleyerek bu kullanıcı formuna bir birleşik giriş kutusu ve bir komut düğmesi eklemeniz gerekir. Açılan kutu ve KomutDüğmesi sırasıyla Araç Kutusu için KullanıcıForm1.

4. Komut düğmesine sağ tıklayın ve seçin Emlaklar sağ tıklama menüsünde.

5. içinde Özellikler – KomutDüğmesi1 bölme, değiştir Başlık için alan OK. Bu eylem, komut düğmesinde görüntülenen metni değiştirecektir.

6. İlgili formu açmak için UserForm'daki boş alana çift tıklayın. Kullanıcı Formu (Kod) penceresini açın, ardından mevcut kodu aşağıdaki VBA koduyla değiştirin.

VBA kodu 1: Birden çok önceden ayarlanmış e-posta konusunu içeren bir açılır liste içeren 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 ayarlanmış e-posta konularıdır. “Değişiklik yok”, mevcut e-posta konusunun hiçbirini değiştirmemek anlamına gelir. VBA kodundaki önceden ayarlanmış e-posta konularını ihtiyaçlarınıza göre değiştirebilirsiniz.

7. Çift tıklama Project1 > Microsoft Outlook Nesneleri > Bu OutlookOturumu. Ardından aşağıdaki VBA kodunu ThisOutlookSession (Kod) 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. Tıklamaya gidin Ekle > modül içinde Visual Basic editör. Ardından aşağıdaki VBA kodunu kopyalayıp yapıştırın. Modül (Kod) pencere.

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 Ara Toplam + Q kapatmak için anahtarlar Visual Basic Düzenleyicisi penceresini açın ve Outlook uygulamasına dönün.

10. Tıklayın yeni e-posta düğmesi altında Ana Sayfa Bir e-posta oluşturmak için sekme.

11. Yeni mesaj penceresinde, Hızlı erişim araç çubuğunu özelleştir > Daha Komutlar.

12. içinde Outlook Seçenekleri iletişim kutusu, aşağıdaki gibi yapılandırmanız gerekir.

12.1) Seç Makrolar içinde Komutları seçin açılır liste;
12.2) Seç Proje1.DeğiştirKonu komutlar listesi kutusunda;
12.3) Ekle düğmesi;
12.4) OK buton. Ekran görüntüsüne bakın:

13. Sonra bir düğme görebilirsiniz mesaj penceresinin şeridine eklendi.

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

15. Bir e-posta mesajı oluştururken, önceden ayarlanmış bir konu eklemeniz gerekiyorsa, kullanıcı formunu görüntülemek için şeritteki yeni eklenen düğmeye tıklamanız, açılır menüden bir konu seçmeniz ve ardından OK konu satırına yerleştirmek için düğmesine basın.

notlar:

1) Açılır listeden seçilen herhangi bir konu ile mevcut konuyu değiştirebilirsiniz;
2) Bu yöntem, yeni bir pencerede bir e-postayı yanıtlarken veya iletirken iyi çalışır;
3) E-postaları ayrı bir pencere açmak yerine okuma panelinden in-line olarak yanıtlama eğilimindeyseniz, kullanıcı formunu aşağıdaki gibi açabilirsiniz.
3.1) Tıklayın Geliştirici > Makrolar > Proje1.DeğiştirKonu. Ekran görüntüsüne bakın:

3.2) Kullanıcı formu açıldığında, açılır listeden önceden ayarlanmış bir konu seçin ve OK düğmesine basarsanız, orijinal konu hemen değiştirilir.

4) seçerseniz Değişiklik yok açılır menüde, orijinal konu herhangi bir değişiklik yapılmadan korunacaktır.

En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

???? 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 ProToplu 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.

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I have made the procedure but when i clic on the macro button, they don't have any action ?
Could you help me ?
This comment was minimized by the moderator on the site
Hi,

Sorry for the inconvenience. Did you follow the instructions provided in the post exactly? Can you tell me which version of Excel you are using?
This comment was minimized by the moderator on the site
I would like to creat an E-mail draft with such a drop down list for the subject.
Is it possible to attache this function to an mail template or does it have to be installed in the software of each user?
This comment was minimized by the moderator on the site
Hi Hana,

The code can't be attached to an email template, users who need to use this dropdown list will need to follow the steps in the tutorial to add the code to their Outlook.
This comment was minimized by the moderator on the site
Hi,

This is great. Is it possible to do the same for Outlook Calendar invites...meetings and appointments?
This comment was minimized by the moderator on the site
Hi James Marr,

This method does not support Outlook Calendar at the moment. Sorry for the inconvenience.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations