Excel VBA - gặp sự cố khi lưu email dưới dạng PDF và đính kèm *Vui lòng trợ giúp

Excel VBA - gặp sự cố khi lưu email dưới dạng PDF và đính kèm *Vui lòng trợ giúp

Xin chào,

Tôi đang sử dụng đoạn mã bên dưới để viết email chứa dữ liệu trong Excel. Email sẽ được gửi đến địa chỉ email và số fax. Vấn đề là dịch vụ fax của chúng tôi (Concord) yêu cầu fax gửi qua email phải ở dạng tệp đính kèm PDF hoặc Word. Vì vậy, bất kỳ fax nào được gửi đi sẽ không bao gồm nội dung email.

Tôi cần tìm cách lưu email dưới dạng PDF và đính kèm vào email trước khi gửi. Tôi đã thử lưu email dưới dạng .pdf và đính kèm vào email gốc bằng mã bên dưới nhưng không được.

Có ai giúp tôi trước khi tôi nhổ hết tóc không? Đây là mã:

-------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Nếu Không Giao Nhau(Mục Tiêu, Phạm Vi("T:T")) Không Có Gì Thì

Làm mờ OutApp như đối tượng
Làm mờ OutMail thành Đối tượng
Dim strbody As String

ID = Phạm vi("b" & ActiveCell.Row).Giá trị
CName = Phạm vi("O" & ActiveCell.Row).Giá trị
cemail = Phạm vi("P" & ActiveCell.Row).Giá trị
Cfax = Phạm vi("Q" & ActiveCell.Row).Giá trị
strbody1 = "..."

Đặt OutApp = CreateObject("Outlook.Application")
Đặt OutMail = OutApp.CreateItem(0)


Với OutMail
.Trưng bày
.Đến = (cemail) & ";" & "1" & (Cfax) & "@concordsend.com"
.cc = ""
.BCC = ""
.Subject = "Đánh giá tuân thủ Western Union --" & (aname)
.HTMLBody = "<HTML><BODY>" & (strbody1) & "</BODY></HTML>" & .HTMLBody
.SaveAs ("C:\Users\XXXX\Desktop" & .Subject & ".pdf")
.Tệp đính kèm.Thêm ("C:\Users\XXXX\Desktop" & .Chủ đề & ".pdf")
.Trưng bày

Kết thúc bằng
Khi lỗi GoTo 0

Với ứng dụng
.EnableEvents = Đúng
.ScreenUpdating = Đúng
Kết thúc bằng

Đặt OutMail = Không có gì
Set OutApp = Không có gì

CẢM ƠN!!!!




Trả lời:

Tôi nghĩ rằng bạn có thể sẽ cần phải thực hiện hai lần truyền riêng biệt - một lần đến địa chỉ email và lần còn lại đến máy fax

Xem Ken Puls gửi email bằng VBA

http://www.excelguru.ca/content.php?249-Easy-Outlook-Email-Integration#comments_start

Comments

Post a Comment

Popular posts from this blog

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Image
Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể. Trong excel 2003, trong mục tùy chỉnh thanh công cụ, người ta có thể lấy một nút và chỉnh sửa hình ảnh của nút đó. Điều tôi muốn làm trong excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy cập nhanh và để nút đó chạy một macro cụ thể. Ví dụ, tạo nút có chữ G lớn và khi nhấp vào, nút sẽ thực hiện truy vấn web và nhập giá vàng từ kitco.com. Có cách nào để thực hiện việc này trong Excel 2010 không? Trả lời: Xin chào, Để bật tab Nhà phát triển 1. Trên tab Tệp , chọn Tùy chọn để mở hộp thoại Tùy chọn . 2. Nhấp vào Tùy chỉnh Ribbon ở phía bên trái của hộp thoại. 3. Trong mục Chọn lệnh từ ở phía bên trái hộp thoại, chọn Lệnh phổ biến . 4. Trong mục Tùy chỉnh Dải băng ở phía bên phải hộp thoại, chọn Tab chính trong hộp danh sách thả xuống, sau đó chọn hộp kiểm Nhà phát triển . 5. Nhấp vào OK . Để biết thêm thông tin về cách tạo ...
Read more

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Image
Excel 2016 - mở tất cả các tệp trong MỘT phiên bản Xin chào, Tôi gặp sự cố với Excel 2016 (16.0.10228.20051 32-bit): Tôi có một phiên bản Excel đang chạy. (NB - hộp kiểm " Bỏ qua các ứng dụng khác sử dụng Trao đổi dữ liệu động (DDE) " trong Tùy chọn nâng cao KHÔNG được chọn.) Điều tôi cần là - đối với tất cả các tệp Excel mà tôi sắp mở để mở trong phiên bản Excel đầu tiên và duy nhất của mình e, luôn luôn và bất kể: - tôi mở bao nhiêu tập tin cùng một lúc, - nơi chứa các tập tin (tức là trên ổ đĩa cục bộ hoặc trên OneDrive nên hệ thống cần tải chúng xuống trước khi mở) và kể cả khi mở tệp Excel từ các ứng dụng Office khác, tức là tệp đính kèm Outlook. Hành vi mà tôi thấy trong Excel 2016 tốt nhất là không nhất quán: 1. Khi mở nhiều tệp bổ sung cùng một lúc từ đĩa (chọn nhiều tệp/nhấp chuột phải/Mở) - nó sẽ mở n tệp đầu tiên trong phiên bản Excel đầu tiên, nhưng sau đó từ tệp n +1, nó bắt đầu mở chúng trong phiên bản mới . 2. Một biến thể của trường hợp trên là k...
Read more

Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ

Image
Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ Chào mọi người, Tôi biết có nhiều bài viết liên quan đến vấn đề này nhưng câu trả lời không thỏa đáng với môi trường của tôi. Chúng tôi xử lý số lượng tài liệu mỗi ngày và lưu vào máy tính để bàn -> việc bỏ chặn không cắt được tài liệu đó cũng như vô hiệu hóa chế độ xem được bảo vệ bằng phần mềm ransomware gần đây mà NHS nhận được (bảo mật cần được giữ nguyên). Thông báo có nội dung: 'Không thể mở hoặc lưu thêm bất kỳ tài liệu nào vì không có đủ bộ nhớ hoặc dung lượng ổ đĩa' -> mặc dù việc thực hiện 2 giải pháp trên sẽ khắc phục được điều này (đó không phải là bộ nhớ, chỉ là một tin nhắn ngu ngốc nếu tôi thành thật) . Tuy nhiên, tôi chỉ cần có thể mở tệp ở chế độ xem được bảo vệ, không gặp lỗi. Có ai có thể sửa lỗi này 'đúng cách' chưa? Nếu vậy xin vui lòng cho tôi biết để tôi có thể triển khai rộng rãi hoạt động kinh doanh này. Tôi đã tìm thấy cài đặt gpe trong cấu hình người dùng -> thành phần windo...
Read more