Làm cách nào để chèn tất cả tên người nhận vào nội dung email 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 nội dung 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 nội dung từng cái một. Tuy nhiên, sẽ rất tẻ nhạt nếu có hàng tá tên người nhận cần đượ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ả tên người nhận vào nội dung email bằng mã VBA trong Outlook

Chèn tất cả tên người nhận vào nội dung email bằng 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 Tới vào nội dung thư, vui lòng thực hiện như sau:

1. Khởi chạy Outlook, rồi nhấn 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ô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Chèn tên người nhận vào nội dung 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-Dự án1 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 Tin nhắn cửa sổ, nhấp Tùy chỉnh thanh công cụ truy cập nhanh biểu tượng và chọn Các lệnh khác, xem ảnh chụp màn hình: