Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.