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

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.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL