Chào Amanda!
Đây là Ryan4 từ ExtendOffice. Cảm ơn bạn đã gửi địa chỉ email của mình để giúp giải quyết vấn đề của tôi, tôi dự định trở thành một thành viên tích cực kể từ khi khám phá ra cộng đồng tuyệt vời của bạn, vì vậy tôi hy vọng sẽ giải quyết được vấn đề tải lên tệp của mình cuối cùng!
Còn bây giờ, vui lòng xem tệp đính kèm tại đây. Tôi đã cập nhật mã để đọc "Thoát Sub" thay vì "Kết thúc nếu", tuy nhiên, tôi vẫn nhận được lỗi không có tùy chọn gỡ lỗi. Bạn có thể tư vấn? Có lẽ đó là cấu trúc của tôi hoặc thụt lề.
Cảm ơn một lần nữa để được giúp đỡ của bạn!
Ryan
Chào Ryan,
Đã nhận được email thông báo. Vì có thể có những người dùng khác gặp vấn đề tương tự, tôi sẽ trả lời ở đây.
Vui lòng thử phương pháp dưới đây:
1. Công khai
Tài liệu tham khảo.
2. kiểm tra
Thư viện đối tượng Microsoft Outlook 16.0.
Lưu ý: Thay vì 16.0, bạn có thể có 15.0, 14.0, v.v.
3. Thay thế mã bên dưới
Dim xOutApp As Object
Dim xOutMail As Object
đến
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Vui lòng thử 3 bước trên. Vì vba của bạn hoạt động tốt trên máy tính của chúng tôi, vì vậy rất khó để chúng tôi khắc phục sự cố. Hy vọng rằng phương pháp này sẽ giúp bạn!
Amanda