Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

Làm thế nào để chèn tất cả các tên người nhận email cơ thể trong Outlook?

Đôi khi, bạn có thể cần phải chèn tên của tất cả người nhận vào cơ thể thư khi soạn email trong Outlook. Tất nhiên, bạn có thể sao chép và dán tên vào cơ thể từng cái một. Tuy nhiên, rất tẻ nhạt nếu có hàng chục tên người nhận phải được dán. Bài viết này, tôi sẽ nói về một cách dễ dàng để giải quyết công việc này trong Outlook.

Chèn tất cả các tên người nhận vào email thân với mã VBA trong Outlook


Chèn tất cả các tên người nhận vào email thân với mã VBA trong Outlook

Mã VBA sau có thể giúp bạn chèn tất cả tên người nhận từ trường Đến vào cơ thể thư, vui lòng thực hiện như sau:

1. Khởi chạy Outlook, và sau đó giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đun, và dán mã sau trong Mô-đun Cửa sổ.

Mã VBA: Chèn tên người nhận vào thân thư:

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. Và sau đó vẫn ở trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Công cụ > dự án đi đến Tài liệu tham khảo-Project1 hộp thoại và kiểm tra Thư viện Đối tượng Microsoft Word tùy chọn từ Tài liệu tham khảo có sẵn hộp danh sách, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OK để đóng hộp thoại, bây giờ, bạn nên thêm mã này vào Thanh công cụ truy cập nhanh.

5. Tạo một tin nhắn mới bằng cách nhấp vào Email mới, Trong Thông điệp cửa sổ, nhấp Tùy chỉnh thanh công cụ truy cập nhanh biểu tượng, và chọn Thêm lệnh, xem ảnh chụp màn hình:

6. Trong Tùy chọn Outlook hộp thoại:

(1.) Chọn Macros từ Chọn lệnh từ danh sách thả xuống;

(2.) Và sau đó chọn tên mã VBA mà bạn đã chèn ngay bây giờ;

(3.) Nhấp Thêm để thêm mã vào Tùy chỉnh thanh công cụ truy cập nhanh hộp danh sách.

7. Và sau đó một biểu tượng macro được hiển thị trong Thanh công cụ truy cập nhanh như sau ảnh chụp màn hình hiển thị:

8. Bây giờ, khi bạn nhấp vào biểu tượng macro, tên người nhận từ trường To sẽ được chèn vào cơ thể thư như sau:

Các công cụ sản xuất được đề nghị

bắn kutools triển vọng tab kutools 1180x121
bắn kutools triển vọng kutools cộng với tab 1180x121

Kutools cho Outlook - Hơn cả chức năng nâng cao 100 cho Outlook, cải thiện hiệu quả 70% cho bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chuyển tiếp nhiều email riêng lẻ với một cú nhấp chuột và tự động chuyển tiếp theo quy tắc.
  • Tự động CC / BCC mỗi khi gửi email và dễ dàng tùy chỉnh các quy tắc và tự động trả lời mà không yêu cầu máy chủ trao đổi.
  • Bộ lọc email rác mạnh mẽ, xóa email trùng lặp, trả lời bằng tệp đính kèm, một loạt các thao tác bằng một cú nhấp chuột, v.v.
  • Dùng thử miễn phí không giới hạn ngày không giới hạn. Bảo đảm hoàn lại tiền trong ngày. 60 năm miễn phí nâng cấp và hỗ trợ. Mua một lần, sử dụng mãi mãi.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.