Birçok kullanıcı, Outlook'ta aynı içeriğe sahip seçili birden çok e-postayı toplu olarak yanıtlamalarına olanak tanıyan bir çözüm ister. Outlook böyle bir özellik sağlamasa da, yine de bir parça VBA koduyla elde edebilirsiniz.
Çok sayıda kullanıcının, Outlook'un tek seferde birden çok e-postaya aynı yanıtı göndermelerini destekleyen bir işlevi olmadığından şikayet ettiğini duydum. Birden çok e-posta seçtiklerinde, hem "Yanıtla" hem de "Tümünü Yanıtla" işlemleri grileşir - devre dışı bırakılır. Bu konuya bakarak, bundan sonra, bu özelliği gerçekleştirmek için bir yöntem paylaşacağız.
Aynı İçeriğe Sahip Birden Fazla E-postayı Toplu Olarak Yanıtlayın
- Öncelikle Outlook programınızı başlatın.
- Ardından, birden çok e-postayı yanıtlamak için kullanmak istediğiniz bir yanıt şablonu oluşturmanız gerekir.
- Öncelikle, yeni bir e-posta oluşturun.
- Ardından, yanıtlamak istediğiniz şeye göre bu e-postayı oluşturun.
- Ardından, "Dosya" yı tıklayın ve "Farklı Kaydet" seçeneğini seçin.
- Daha sonra, yeni "Farklı Kaydet" iletişim kutusuna bir ad girin ve "Farklı kaydet" kutusunda "Outlook Şablonu"nu seçin.
- Son olarak, “Tamam” düğmesine basın.
- Ardından, değişiklikleri kaydetmeden e-postayı kapatabilirsiniz.
- Daha sonra “Alt + F11” tuş butonlarına basmalısınız.
- Bundan sonra, Outlook VBA düzenleyici penceresi görüntülenecektir.
- Şimdi, “ThisOutlookSession” projesini bulup açmalı ve aşağıdaki VBA kodunu projeye kopyalamalısınız.
Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
Dim objCommandBarButton As Office.CommandBarButton
If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
'Add a "Same Reply" option to the context menu
With objCommandBarButton
.Style = msoButtonIconAndCaption
.Caption = "Same Reply"
.FaceId = 355
.OnAction = "Project1.ThisOutlookSession.SendSameReply"
End With
End If
End Sub
Sub SendSameReply()
Dim strTemplate As String
Dim objTemplateReply As Outlook.MailItem
Dim strHTMLBody As String
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objReply As Outlook.MailItem
'Input the name of the previously saved template
strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
strHTMLBody = objTemplateReply.HTMLBody
Set objSelection = Application.ActiveExplorer.Selection
For i = objSelection.count To 1 Step -1
Set objReply = objSelection(i).Reply
With objReply
.HTMLBody = strHTMLBody & objReply.HTMLBody
.Send
End With
Next
End Sub
- Son olarak mevcut pencereyi kapatıp bu makroyu deneyebilirsiniz.
- İlk olarak, posta listesinden birden fazla e-posta seçin.
- Ardından, üzerlerine sağ tıklayın.
- Ardından, içerik menüsünde “Aynı Yanıt” seçeneğini seçin ve tıklayın.
- Ardından, yanıt için kullanılan şablonu belirtmeniz istenecektir.
- Adı girdikten ve "Tamam" düğmesine bastıktan sonra, aynı yanıt seçilen bu e-postalara gönderilecektir.
Outlook Yolsuzluğa Eğilimli
Düzenli bir Outlook kullanıcısı olarak, çeşitli hatalara maruz kaldım. Bu nedenle, Outlook verilerimi korumak için çeşitli önlemler aldım. Ancak, Outlook'un hasara açık olması ve çökmenin tahmin edilmesinin zor olması nedeniyle, her zaman hazırlıklı olmam gerekiyor. Örneğin, verilerimi mümkün olan en kısa sürede kurtarmak için, dikkat çekici bir kurtarma aracını el altında bulundurdum – DataNumen Outlook Repair. Yapabiliyor Outlook'u düzelt herhangi bir yaygara olmadan dosya.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql bozulması ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com