Nhờ sửa lỗi gửi email bằng CDO

[MinhKhai]

Chào các anh chị.

Em có tìm được đoạn code để gửi email bằng VBA thông qua CDO
Khi dùng với 1 maibox khác thì chạy được, trong khi dùng mailbox Exchange của em thì chạy báo lỗi như hình dưới. Em đã Google mã lỗi như dưới mà không xử lý.
Nhờ các anh chị, ai có kinh nghiệm với lỗi trên thì xin giúp đỡ. Em xin gửi riêng thông tin mailbox

 

[HeSanbi]

smtpserver phải được đặt kiểu như "smtp.gmail.com", "mailbox01.contoso.com", ...