Come rispondere normalmente nella cartella della posta inviata da Outlook?

Normalmente, quando fai clic sulla funzione Rispondi nella cartella Posta inviata per inviare un altro messaggio aggiuntivo per le persone che hai inviato, il tuo indirizzo email verrà visualizzato nel campo A come mostrato nella seguente schermata. Questo può essere fastidioso per te cambiare l'indirizzo ogni volta. In che modo Outlook potrebbe utilizzare l'indirizzo del destinatario originale, non il tuo?

email di risposta del documento inviate 1

Rispondi normalmente nella cartella Posta inviata da Outlook con la funzione Rispondi a tutti

Rispondi normalmente nella cartella Posta inviata da Outlook con codice VBA

Rispondi normalmente nella cartella Posta inviata da Outlook con la funzione Rispondi a tutti

In Outlook, il Rispondi a tutti la funzione può aiutarti a risolvere questo problema, per favore fai come segue:

Quando è necessario rispondere all'e-mail inviata per l'invio di nuovo per mantenere l'indirizzo del destinatario originale, fare clic su Rispondi a tutti e l'indirizzo del destinatario originale si trova in A campo come mostrato nella seguente schermata:

email di risposta del documento inviate 2

Rispondi normalmente nella cartella Posta inviata da Outlook con codice VBA

A volte potresti dimenticare il file Rispondi a tutti quando si risponde al messaggio inviato, quindi il codice VBA riportato di seguito può aiutarti a rispondere normalmente nella cartella Posta inviata utilizzando la funzione Rispondi. Eseguire i seguenti passaggi:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: rispondi normalmente nella cartella Posta inviata da 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

email di risposta del documento inviate 3

3. Quindi, salva il codice e riavvia Outlook per ottenere l'effetto del codice, ora, quando fai clic Rispondi per inviare nuovamente un'e-mail Oggetti inviati cartella, l'indirizzo del destinatario originale viene visualizzato nel campo A di cui hai bisogno.