Outlook'ta iletiyi yanıtlarken sevgili bir gönderenin adını otomatik olarak nasıl oluşturulur?
E-posta mesajını yanıtlarken, gönderenin adını ve selamlarını manuel olarak yazmalısınız. Zaman kazanmak ve iş verimliliğini artırmak için, Outlook'ta otomatik olarak bir sevgili gönderenin adını ve selamlarını oluşturmayı düşünebilirsiniz. Bu makalede, Outlook'ta bu görevi çözmek için bazı yararlı yöntemler hakkında konuşacağım.
VBA kodu ile mesajı yanıtlarken sevgili gönderenin adını ve selamlarını otomatik olarak oluşturun
VBA kodu ile mesajı yanıtlarken sevgili gönderenin adını ve selamlarını otomatik olarak oluşturun
Aşağıdaki VBA kodu, bir e-posta mesajını yanıtlarken sevgili bir gönderenin adını ve selamlarını otomatik olarak eklemenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.
VBA kodu: Yanıtlarken sevgili bir gönderenin adını ve selamlarını otomatik olarak ekleyin:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Ardından Outlook'u kapatın ve kod etkisini almak için yeniden başlatın ve şimdi, bir e-posta mesajını yanıtladığınızda, sevgili bir gönderenin adı ve selamlamaları gövdeye otomatik olarak eklenir, ekran görüntüsüne bakın:
Outlook için Kutools ile mesajı yanıtlarken sevgili gönderenin adını ve selamlarını otomatik olarak oluşturun
Eğer varsa Outlook için Kutools, Onun ile Cevap verirken tebrik ekle özelliği, Outlook yanıtlarken gönderenin adını otomatik olarak ekleyecektir.
Outlook için Kutools : 100'den fazla kullanışlı Outlook eklentisi ile 60 günde sınırlama olmaksızın ücretsiz olarak deneyin. |
Kurduktan sonra Outlook için Kutoolslütfen bunu yap :
1. tıklayın Kutools > Opsiyonlar, ekran görüntüsüne bakın:
2. In Opsiyonlar iletişim kutusunun altında cevap sekme, kontrol et Cevap verirken tebrik ekle seçeneğini seçin ve ardından ihtiyacınız olan selamları girin, ekran görüntüsüne bakın:
3. Sonra tıklayın OK Bu ayarı bitirmek için, bundan sonra, bir mesajı yanıtlarken, selamlar mesaj gövdesinin önünde otomatik olarak oluşturulacaktır, ekran görüntüsüne bakın:
Kutools for Outlook'u indirmek ve şimdi ücretsiz deneme için tıklayın!
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.