Hvordan svarer man normalt i mappen med sendte varer fra Outlook?
Normalt, når du klikker på Svar-funktionen i mappen Sendte elementer for at sende endnu en besked til de personer, du har sendt, vil din egen e-mailadresse blive vist i feltet Til som vist på følgende skærmbillede. Det kan være irriterende for dig at ændre adressen hver gang. Hvordan kunne Outlook bruge den oprindelige modtagers adresse, ikke din?
Svar normalt i mappen Sendte elementer fra Outlook med funktionen Svar alle
Svar normalt i mappen Sendte elementer fra Outlook med VBA-kode
Svar normalt i mappen Sendte elementer fra Outlook med funktionen Svar alle
I Outlook er Svar alle funktion kan hjælpe dig med at løse dette problem, gør venligst som dette:
Når du skal besvare den sendte e-mail for at sende den igen for at beholde den oprindelige modtagers adresse, skal du klikke Svar alle knappen, og den oprindelige modtagers adresse er placeret på Til felt som følgende skærmbillede vist:
Svar normalt i mappen Sendte elementer fra Outlook med VBA-kode
Nogle gange glemmer du måske Svar alle funktion, når du besvarer den sendte besked, så nedenstående VBA-kode kan hjælpe dig med at svare normalt i mappen Sendte elementer ved at bruge Svar-funktionen. Gør med følgende trin:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.
VBA-kode: Svar normalt i mappen Sendte elementer fra 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
3. Gem derefter koden, og genstart Outlook for at få kodeeffekten nu, når du klikker Svar at sende en e-mail ind igen Sendte ting mappe, vises den oprindelige modtagers adresse i feltet Til efter behov.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.