Outlook'tan gönderilen öğeler klasöründe normal şekilde nasıl yanıt verilir?

Normalde, gönderdiğiniz kişilere başka bir ek mesaj göndermek için Gönderilmiş öğeler klasöründeki Yanıtla özelliğini tıkladığınızda, aşağıda gösterilen ekran görüntüsü gibi Kime alanında kendi e-posta adresiniz görüntülenecektir. Bu, her seferinde adresi değiştirmek sizin için can sıkıcı olabilir. Outlook'un sizin adresinizi değil asıl alıcının adresini kullanmasını nasıl sağlayabilir?

doc cevap e-postaları 1 gönderdi

Outlook'tan Gönderilmiş Öğeler klasöründe Tümünü Yanıtla özelliğiyle normal yanıtla

Outlook'tan Gönderilmiş Öğeler klasöründe VBA kodu ile normal şekilde yanıtlayın

Outlook'tan Gönderilmiş Öğeler klasöründe Tümünü Yanıtla özelliğiyle normal yanıtla

Outlook'ta Hepsini cevapla özelliği bu sorunu çözmenize yardımcı olabilir, lütfen şu şekilde yapın:

Orijinal alıcının adresini korumak için gönderilen e-postayı tekrar gönderilmek üzere yanıtlamanız gerektiğinde lütfen tıklayın Hepsini cevapla düğmesi ve orijinal alıcının adresi için aşağıdaki ekran görüntüsü gibi alan:

doc cevap e-postaları 2 gönderdi

Outlook'tan Gönderilmiş Öğeler klasöründe VBA kodu ile normal şekilde yanıtlayın

Bazen unutabilirsin Hepsini cevapla Bu özelliği, gönderilen mesajı yanıtlarken, aşağıdaki VBA kodu, Yanıtla özelliğini kullanarak Gönderilmiş Öğeler klasöründe normal şekilde yanıtlamanıza yardımcı olabilir. Aşağıdaki adımları uygulayı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: Outlook'tan Gönderilmiş Öğeler klasöründe normal şekilde yanıtlayın:

Option Explicit
Private WithEvents GExplorer As Explorer
Private WithEvents GMailItem As MailItem
Private Sub Application_Startup()
    Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
   On Error Resume Next
   Set GMailItem = GExplorer.Selection.Item(1)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xResponse As MailItem
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim i As Integer
Dim xTo As String, xCC As String, xBCC As String, xName As String
On Error Resume Next
If Application.ActiveExplorer.CurrentFolder <> Session.GetDefaultFolder(olFolderSentMail) Then
    Exit Sub
End If
Cancel = True
Set xResponse = GMailItem.Reply
Set xRecipients = GMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
    Set xRecipient = xRecipients.Item(i)
    xName = xRecipient.Name
    If Left(xName, 1) = "'" Then
        xName = Mid(xName, 2, Len(xRecipient.Name) - 2)
    End If
    Select Case xRecipient.Type
        Case olTo
            xTo = xName & ";" & xTo
        Case olCC
            xCC = xName & ";" & xCC
        Case olBCC
            xBCC = xName & ";" & xBCC
    End Select
Next
With xResponse
    .To = xTo
    .CC = xCC
    .BCC = xBCC
End With
xResponse.Recipients.ResolveAll
xResponse.Display
End Sub

doc cevap e-postaları 3 gönderdi

3. Ardından, kodu kaydedin ve şimdi tıkladığınızda kod efektini almak için Outlook'u yeniden başlatın. cevap bir e-postayı yeniden göndermek için Eşya gönder klasörde, orijinal alıcının adresi ihtiyaç duyduğunuzda Kime alanında görüntülenir.