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.
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:
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? 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 Pro: Toplu 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.