Đôi khi, khi bạn gửi hoặc nhận email có nhiều người nhận, bạn có thể muốn tạo một nhóm liên hệ cho những người nhận này. Bài viết này sẽ giới thiệu một cách nhanh chóng để thực hiện nó với Outlook VBA.
Trong bài viết trước của chúng tôi “Cách tạo Nhóm liên hệ từ Danh sách người nhận”, chúng ta đã biết được một phương pháp chung để tạo nhóm liên hệ cho người nhận email. Đó là trước tiên chọn và sao chép người nhận từ email, sau đó tạo nhóm liên hệ theo cách thủ công và dán người nhận vào trường “Thành viên ->”. Rõ ràng, phương tiện này cực kỳ cồng kềnh. Do đó, ở đây chúng tôi sẽ giới thiệu một phương pháp khác, sẽ sử dụng Outlook VBA để nhanh chóng đạt được một nhóm liên hệ mới. Bạn có thể chỉ cần nhấn một nút mà không cần phải sao chép và dán nhiều lần. Đọc tiếp để biết các bước phức tạp và mã VBA.
Tạo Nhóm Liên hệ từ Danh sách Người nhận của Email
- Trước tiên, bạn nên chuyển đến tab “Nhà phát triển” trong Outlook.
- Sau đó, trong tab này, bạn có thể xác định vị trí và nhấp vào nút “Visual Basic”.
- Sau đó, một cửa sổ “Microsoft Visual Basic for Applications” mới sẽ mở ra. Bây giờ bạn nên mở một mô-đun mới bằng cách nhấp vào “Chèn” > “Mô-đun”.
- Tiếp theo trong cửa sổ mô-đun mới, bạn có thể sao chép và dán các mã sau vào đó.
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- Sau đó, bạn có thể thoát khỏi cửa sổ “Visual Basic” hiện tại và tiến hành thêm macro mới vào Thanh công cụ truy cập nhanh. Nhấp vào mũi tên xuống trong Thanh công cụ truy cập nhanh và chọn “Lệnh khác” từ danh sách thả xuống của nó.
- Sau đó, bạn sẽ vào cửa sổ “Tùy chọn Outlook”. Lúc này, bạn cần thực hiện các bước sau:
- Đầu tiên, đặt “Chọn lệnh từ” thành “Macro”.
- Sau đó tìm kiếm và đưa ra macro đã thêm trước đó.
- Tiếp theo bấm vào nút “Add” ở trung tâm.
- Cuối cùng nhấn nút “OK”.
- Sau đó, bạn có thể quay lại ngăn thư Outlook của mình và dùng thử.
- Lúc đầu, bạn có thể quảng cáo chiêu hàng trên một thư trong bất kỳ thư mục thư nào.
- Sau đó bấm vào nút trong Quick Access Toolbar, như hình bên dưới:
- Và tiếp theo, bạn sẽ nhận được một hộp thông báo yêu cầu bạn chỉ định tên cho nhóm liên hệ mới.
- Sau đó nhấp vào nút “OK”. Ngay lập tức, nhóm liên hệ mới, chứa tất cả những người nhận email đã chọn, sẽ mở ra. Bạn có thể nhấn “Save & Close” để lưu nó.
Phải có trong Bảo vệ dữ liệu Outlook
Do Outlook dễ bị tấn công, bạn nên thực hiện đầy đủ các biện pháp phòng ngừa để bảo vệ dữ liệu Outlook của mình. Đầu tiên, bạn nên tạo một bản sao lưu dữ liệu Outlook thường xuyên. Ngoài ra, bạn cần biết cách tìm và chạy công cụ sửa lỗi có sẵn Scanpst.exe. Điều cần thiết cuối cùng nhưng không kém phần quan trọng là một ngoại hình xuất sắc công cụ sửa chữa dữ liệu Outlook bị hỏng, Chẳng hạn như DataNumen Outlook Repair, sẽ giải cứu bạn nếu sao lưu và Scanpst.exe đều bị lỗi.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa SQL Server lỗi cơ sở dữ liệu mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm