Outlook'ta "Tümünü Yanıtla" Kullanılırken Orijinal Gönderici Dışındaki Tüm Alıcılar "Bilgi" Alanına Otomatik Olarak Nasıl Taşınır?

Bazı kullanıcılar, Outlook'ta "Tümünü Yanıtla" seçeneğini kullanırken, orijinal gönderen dışındaki tüm alıcıları her zaman "Bilgi" alanına taşır. Bu makale, Outlook VBA ile hareketi otomatikleştirmek için bir yöntem tanıtacaktır.

Varsayılan olarak, bir e-postayı yanıtlamak için "Tümünü Yanıtla"yı seçtiğinizde, orijinal olarak "Kime" alanında olan tüm alıcılar yanıtlayan postada "Kime" alanına yerleştirilecektir. Ancak birçok kullanıcı, "Kime" alanında yalnızca orijinal gönderici olacak şekilde tüm alıcıları "Bilgi" alanına taşımak ister. Bu gereksinime yanıt olarak, burada otomatik olarak gerçekleştirebilen bir VBA kodu parçası göstereceğiz.

"Tüm Alıcıları Yanıtla"daki "Bilgi" Alanına Orijinal Gönderici dışındaki Tüm Alıcıları Otomatik Olarak Taşı

1. İlk etapta, Outlook programınızı başlatın.
2. Ardından ana Outlook penceresinde “Alt + F11” tuş düğmelerine basın.
3. Sonra Outlook VBA düzenleyicisine gireceksiniz.
4. Ardından, “ThisOutlookSession” projesini bulup açmalısınız.
5. Daha sonra aşağıdaki VBA kodlarını bu proje penceresine kopyalayıp yapıştırmanız gerekmektedir.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

6. Bundan sonra, bu makroyu imzalamalı ve ardından dijital olarak imzalanmış makrolara izin vermek için Outlook makro ayarlarınızı değiştirmelisiniz.
7. Son olarak, yeni VBA projesini etkinleştirmek için Outlook'u yeniden başlatabilirsiniz.
8. Bundan sonra, "Tümünü Yanıtla" seçeneğini kullanarak e-postaları her yanıtladığınızda, tüm alıcıların "Kime" alanında yalnızca orijinal gönderen olmak üzere "CC" alanına taşındığını göreceksiniz.

PST Bozulması Durumunda Panik Yapmayın

PST dosyanız, müşteri bilgileri vb. gibi birçok değerli verinizi içeriyorsa, PST dosyanız bozulduğunda endişelenmeniz gerekir. Ancak, dosyanızı yakın zamanda yedeklediyseniz, asla paniğe kapılmazsınız. Yedeklemeler, verilerinizi geri almanızı sağlar. hasarlı görünüm verileri zahmetsiz bir kolaylıkla Ancak böyle bir yedekleme yoksa, yine de güçlü bir kurtarma aracı kullanabilirsiniz. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com