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

Làm cách nào để trả lời bình thường trong thư mục các mục đã gửi từ Outlook? 

Thông thường, khi bạn nhấp vào tính năng Trả lời trong thư mục Mục đã gửi để gửi một thư bổ sung khác cho những người bạn đã gửi, địa chỉ email của chính bạn sẽ được hiển thị tại trường Đến như hình ảnh chụp màn hình sau. Điều này có thể gây khó chịu cho bạn mỗi lần thay đổi địa chỉ. Làm cách nào để Outlook sử dụng địa chỉ của người nhận ban đầu, không phải của bạn?

doc trả lời email đã gửi 1

Trả lời bình thường trong thư mục Mục đã Gửi từ Outlook với tính năng Trả lời Tất cả

Trả lời bình thường trong thư mục Mục đã Gửi từ Outlook với mã VBA


Trả lời bình thường trong thư mục Mục đã Gửi từ Outlook với tính năng Trả lời Tất cả

Trong Outlook, Trả lời tất cả tính năng này có thể giúp bạn giải quyết vấn đề này, hãy làm như sau:

Khi bạn cần trả lời email đã gửi để gửi lại để giữ địa chỉ người nhận ban đầu, vui lòng nhấp vào Trả lời tất cả và địa chỉ của người nhận ban đầu được đặt tại Đến trường như ảnh chụp màn hình sau:

doc trả lời email đã gửi 2


Trả lời bình thường trong thư mục Mục đã Gửi từ Outlook với mã VBA

Đôi khi, bạn có thể quên Trả lời tất cả tính năng khi trả lời tin nhắn đã gửi, vì vậy mã VBA dưới đây có thể giúp bạn trả lời bình thường trong thư mục Mục đã Gửi bằng cách sử dụng tính năng Trả lời. Thực hiện theo các bước sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Trả lời bình thường trong thư mục Mục đã Gửi từ 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 trả lời email đã gửi 3

3. Sau đó, lưu mã và khởi động lại Outlook để có hiệu lực mã, ngay bây giờ, khi nhấp vào đáp lại để gửi lại một email trong Các mục đã gửi thư mục, địa chỉ của người nhận ban đầu được hiển thị tại trường Đến khi bạn cần.


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL