Bạn có thường cần đính kèm các tệp cụ thể khi gửi email cụ thể trong Outlook không? Nếu vậy, bạn có thể cảm thấy thật tẻ nhạt khi thêm chúng theo cách thủ công mỗi lần. Bài viết này sẽ hướng dẫn bạn một phương pháp nhanh chóng để đạt được điều đó với Outlook VBA.
Trong công việc hàng ngày của tôi, tôi thường được yêu cầu đính kèm các tệp cụ thể khi gửi các email cụ thể. Chẳng hạn, hàng tuần, tôi phải gửi email cho cấp trên để báo cáo công việc hàng tuần của mình. Trong email này, tôi sẽ cần đính kèm một số tệp cụ thể, bao gồm nhật ký công việc, một số báo cáo thống kê dữ liệu, v.v. Tôi thường cập nhật những tập tin này mỗi tuần. Trước đây, trước tiên tôi thường soạn nội dung thư rồi thêm các tệp này theo cách thủ công. Tuy nhiên, hiện tại, tôi tìm thấy một thủ thuật thông minh hơn. Đó là sử dụng Outlook VBA để tự động hóa nó. Nếu bạn có các yêu cầu tương tự, vui lòng đọc tiếp để tìm hiểu các mã VBA cụ thể và các thao tác chi tiết.
Tự động đính kèm các tệp cụ thể khi gửi email cụ thể
- Trước tiên, hãy mở Outlook và chuyển đến tab “Nhà phát triển”.
- Sau đó, bạn có thể tìm và nhấp vào nút “Visual Basic”, thao tác này sẽ hiển thị cửa sổ trình soạn thảo VBA cùng một lúc.
- Trong cửa sổ tiếp theo, bạn nên nhấp đúp vào dự án “ThisOutlookSession” trên danh sách dự án bên trái.
- Tiếp theo, bạn nên sao chép và dán các mã VBA sau vào đó.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Sau đó, bạn sẽ được yêu cầu gán chứng chỉ kỹ thuật số cho dự án mới.
- Đầu tiên, nhấp vào nút “Công cụ” trên thanh công cụ và chọn “Chữ ký số”.
- Sau đó, trong hộp thoại “Chữ ký số” bật lên, nhấn nút “Chọn”,
- Sau đó, bạn có thể chọn một chứng chỉ hiện có.
- Cuối cùng nhấp vào một loạt “OK” để gán nó thành công.
- Sau đó, bạn phải sửa đổi cài đặt macro để chỉ cho phép macro được ký điện tử.
- Cuối cùng bạn có thể có một thử.
- Khi bạn nhấp vào “Gửi” để gửi thư cụ thể có chứa các từ cụ thể trong chủ đề hoặc được gửi đến liên hệ cụ thể, bạn sẽ thấy một hộp thông báo, giống như hình ảnh bên dưới.
- Sau đó, bạn có thể kiểm tra email đã gửi. Bạn chắc chắn sẽ tìm thấy các tập tin cài sẵn được đính kèm trong thư đã gửi.
Không bao giờ trì hoãn sửa lỗi Outlook
Đôi khi, ngay cả khi bạn gặp phải thông báo lỗi trong Outlook, sau khi đóng thông báo, bạn vẫn có thể tiếp tục làm việc. Nhưng thực ra đó không phải là một hành động nên làm. Điều bạn nên làm là loại bỏ chúng càng sớm càng tốt thay vì bỏ mặc chúng. Các vấn đề tích lũy sẽ dẫn đến sự cố nghiêm trọng. Nếu Outlook của bạn gặp sự cố, dữ liệu Outlook PST của bạn sẽ gặp rủi ro. Bạn nên biết điều đó dữ liệu Outlook PST bị hỏng là khá thắt nút. Khi đó, bạn không còn cách nào khác là nhờ đến một công cụ sửa chữa có kinh nghiệm và uy tín, chẳng hạn như DataNumen Outlook Repair.
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 chữa hư hỏng SQL Server hồ sơ 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