Note: The other languages of the website are Google-translated. Back to English

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.

Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır