Wie antworte ich normal im Ordner für gesendete Elemente aus Outlook?
Wenn Sie im Ordner "Gesendete Elemente" auf die Funktion "Antworten" klicken, um eine weitere zusätzliche Nachricht für die von Ihnen gesendeten Personen zu senden, wird normalerweise Ihre eigene E-Mail-Adresse im Feld "An" angezeigt (siehe folgenden Screenshot). Dies kann für Sie ärgerlich sein, wenn Sie die Adresse jedes Mal ändern. Wie kann Outlook die Adresse des ursprünglichen Empfängers verwenden, nicht Ihre?
Antworten Sie normalerweise im Ordner "Gesendete Objekte" aus Outlook mit VBA-Code
Antworten Sie normalerweise im Ordner "Gesendete Objekte" aus Outlook mit der Funktion "Alle antworten"
In Outlook wird die Allen antworten Die Funktion kann Ihnen bei der Lösung dieses Problems helfen. Gehen Sie wie folgt vor:
Wenn Sie die gesendete E-Mail zum erneuten Senden beantworten müssen, um die Adresse des ursprünglichen Empfängers beizubehalten, klicken Sie bitte auf Allen antworten Klicken Sie auf die Schaltfläche, und die Adresse des ursprünglichen Empfängers befindet sich unter Zu Feld wie folgt Screenshot gezeigt:
Antworten Sie normalerweise im Ordner "Gesendete Objekte" aus Outlook mit VBA-Code
Irgendwann können Sie das vergessen Allen antworten Funktion beim Beantworten der gesendeten Nachricht, sodass der folgende VBA-Code Ihnen helfen kann, mithilfe der Antwortfunktion normal im Ordner "Gesendete Objekte" zu antworten. Führen Sie die folgenden Schritte aus:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.
VBA-Code: Antworten Sie normalerweise im Ordner "Gesendete Objekte" aus 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. Speichern Sie dann den Code und starten Sie Outlook neu, um den Codeeffekt jetzt beim Klicken zu erzielen antworten um eine E-Mail erneut zu senden Gesendete Objekte Ordner wird die Adresse des ursprünglichen Empfängers nach Bedarf im Feld An angezeigt.
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.