Hoe normaal te antwoorden in de map met verzonden items vanuit Outlook?

Normaal gesproken, wanneer u op de functie Beantwoorden in de map Verzonden items klikt om nog een extra bericht te verzenden voor de mensen die u hebt verzonden, wordt uw eigen e-mailadres weergegeven in het veld Aan, zoals in de volgende schermafbeelding. Dit kan vervelend zijn als u het adres elke keer wijzigt. Hoe kon Outlook het adres van de oorspronkelijke ontvanger gebruiken, niet het uwe?

doc antwoord verzonden e-mails 1

Antwoord normaal in de map Verzonden items vanuit Outlook met de functie Allen beantwoorden

Antwoord normaal in de map Verzonden items vanuit Outlook met VBA-code

Antwoord normaal in de map Verzonden items vanuit Outlook met de functie Allen beantwoorden

In Outlook is het Allen beantwoorden functie kan u helpen dit probleem op te lossen, doe dit als volgt:

Als u de verzonden e-mail opnieuw moet beantwoorden om het oorspronkelijke adres van de ontvanger te behouden, klikt u op Allen beantwoorden knop, en het adres van de oorspronkelijke ontvanger bevindt zich op het Naar veld als volgend screenshot getoond:

doc antwoord verzonden e-mails 2

Antwoord normaal in de map Verzonden items vanuit Outlook met VBA-code

Soms vergeet u de Allen beantwoorden functie bij het beantwoorden van het verzonden bericht, dus de onderstaande VBA-code kan u helpen normaal te antwoorden in de map Verzonden items door de functie Beantwoorden te gebruiken. Voer de volgende stappen uit:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: antwoord normaal in de map Verzonden items vanuit Outlook:

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 antwoord verzonden e-mails 3

3. Sla vervolgens de code op en start Outlook opnieuw om het code-effect nu te verkrijgen wanneer u klikt Antwoorden om een e-mail opnieuw te verzenden in Verzonden items map, wordt het adres van de oorspronkelijke ontvanger weergegeven in het veld Aan.