Batch In tệp đính kèm PDF trong Outlook
Bài viết này được viết bởi Sean Tsai, một chuyên gia lưu trữ dữ liệu và là người bạn tốt của How-To Geek
Bạn đã bao giờ muốn in mọi tệp đính kèm bạn nhận được trong hộp thư điện tử Outlook của mình chưa? Giả sử bạn đã đăng ký dịch vụ email fax đến PDF miễn phí và bạn muốn chúng được in ra tự động giống như một máy fax kiểu cũ.
Đây là một cách nhanh chóng để đạt được điều đó nếu bạn cảm thấy thoải mái với một chút lập trình VB (macro).
Những gì chúng tôi hiển thị ở đây là tạo quy tắc trong Outlook và di chuyển các email fax đến vào một thư mục con riêng biệt. Sử dụng mã VB, chúng tôi tạo một macro để bạn thực hiện công việc in đối với mọi email trong thư mục con đó để bạn không phải mở email và in từng tệp đính kèm.
Bước 1
Tạo một thư mục con có tên là hàng loạt bản in có tên trong hộp thư - Tên của bạn trong Outlook.
Bước 2
Tạo quy tắc (từ menu Công cụ / Quy tắc và Cảnh báo) trong Outlook giống như sau:
Đặt địa chỉ email từ nhà cung cấp dịch vụ fax của bạn trong trường Email [email protected]. Trong dòng chủ đề, đặt văn bản liên tục được gửi từ nhà cung cấp fax mỗi lần (không đặt văn bản sẽ bị thay đổi định kỳ). 3lần thứ lĩnh vực hàng loạt bản in hàng loạt là thư mục con bạn vừa tạo ở bước đầu tiên.
Bước 3
Tạo một macro VB. Trước tiên, hãy mở trình soạn thảo VB bằng cách vào Công cụ / Macro / Visual Basic Editor. Bạn sẽ thấy trình soạn thảo VB trông như thế này:
Bước 4
Từ cửa sổ Project bên trái, nhấp chuột phải vào mục Project1 và chèn mô-đun có tên Module1:
Bước 5
Khi Module1 được tạo, sao chép mã bên dưới vào cửa sổ ở bên phải như trong dấu đầu dòng # 3.
Public Sub PrintAttachments () Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt As Đính kèm Dim FileName As String Dim i As Integer Đặt Inbox = GetNamespace ("MAPI"). ) Đối với mỗi mục trong Hộp thư đến. Các mặt hàng cho mỗi Atmt trong Mục. Tất cả các tệp đính kèm được lưu trước tiên trong thư mục tạm thời C: \ Temp. Hãy chắc chắn để tạo thư mục này. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'vui lòng thay đổi thư mục chương trình cho phù hợp nếu Acrobat Reader không được cài đặt trên ổ C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Trình đọc \ acrord32.exe "" / h / p "" "+ Tên tệp +" "" ", vbHide Mục tiếp theo.Delete 'xóa dòng này nếu bạn không muốn xóa email tự động Tiếp theo Đặt hộp thư đến = Không có gì kết thúc phụ Lưu ý rằng bạn có thể cần thay đổi dòng mã gọi Acrobat để khớp với đường dẫn trên hệ thống của bạn.
Bước 6
Bây giờ thiết lập đã hoàn tất. Tất cả các email từ nhà cung cấp fax của bạn sẽ được chuyển đến Bản in Batch của bạn khi họ đến. Xin lưu ý, trong ví dụ, chúng tôi hy vọng tất cả các tệp đính kèm đều ở định dạng PDF vì vậy chúng tôi sử dụng Acrobat acrord32.exe để in mọi tệp đính kèm.
Sử dụng Macro
Bây giờ, khi bạn muốn in tất cả các tệp đính kèm, chỉ cần đi tới macro và chạy macro PrintAttachments và tất cả các tệp đính kèm sẽ được in liên tục. Email sẽ bị xóa và chuyển vào thùng rác sau khi được in.
Lưu ý: các bản in được định tuyến đến máy in mặc định của bạn để bạn phải đảm bảo trình điều khiển máy in hợp lệ được thiết lập và chọn.
Hy vọng điều này hữu ích!
