Note: The other languages of the website are Google-translated. Back to English

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 de 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.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL