Hur svarar jag normalt i mappen för skickade objekt från Outlook?

Normalt, när du klickar på Svara-funktionen i mappen Skickade objekt för att skicka ytterligare ett meddelande till de personer som du har skickat, visas din egen e-postadress i fältet Till som följande skärmdump visas. Detta kan vara irriterande för dig att ändra adress varje gång. Hur skulle Outlook kunna använda den ursprungliga mottagarens adress, inte din?

doc-svar skickade e-postmeddelanden 1

Svara normalt i mappen Skickade objekt från Outlook med funktionen Svara alla

Svara normalt i mappen Skickade objekt från Outlook med VBA-kod

Svara normalt i mappen Skickade objekt från Outlook med funktionen Svara alla

I Outlook är Svara alla funktionen kan hjälpa dig att lösa detta problem, gör så här:

När du behöver svara på det skickade e-postmeddelandet för att skicka igen för att behålla den ursprungliga mottagarens adress, klicka Svara alla -knappen och den ursprungliga mottagarens adress finns på Till fält som följande skärmdump visas:

doc-svar skickade e-postmeddelanden 2

Svara normalt i mappen Skickade objekt från Outlook med VBA-kod

Någon gång kan du glömma Svara alla funktionen när du svarar på det skickade meddelandet, så nedanstående VBA-kod kan hjälpa dig att svara normalt i mappen Skickade objekt med hjälp av funktionen Svara. Gör med följande steg:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Svara normalt i mappen Skickade objekt från 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-svar skickade e-postmeddelanden 3

3. Spara sedan koden och starta om Outlook för att få kodeffekten nu när du klickar Svara för att skicka ett e-postmeddelande igen Skickade föremål mappen visas den ursprungliga mottagarens adress i fältet Till efter behov.