Gửi email tiếng Việt từ VBA

Chia sẻ bởi:hands

★★★★★

‹ CÁCH SỬ DỤNG MÃ ID KHI NỘP... Đánh số thứ tự dạng 1, 1.1,... ›

Quảng cáo

Chào mọi người. Mình đang muốn viết đoạn code gửi email chào mừng + một số giấy tờ tới lao động mới mỗi khi có 1 lao động mới được add vào file excel.
Do tính chất công việc nên mình thường xuyên cần gửi nên muốn tạo đoạn code VBA.
Về code để Outlook tự gửi email, lấy fiel attached thì mình làm được nhưng chưa biết làm thế nào để Outook nó gửi được email tiếng Việt, có định dạng ạ.

Nếu lệnh cho nó gửi theo giá trị gán vào các ô trong excel thì email khi gửi ra chỉ là dạng chữ thường, không format được (bôi đậm 1 số từ, căn giữa. lùi lề) cũng như không kèm chữ ký mặc định được.

Vậy mình lên đây hỏi mọi người, mong mọi người gọi ý giải pháp.

Mình cảm ơn.

Ví dụ nội dung khi gõ trên Excel:
Kính gửi các Anh/Chị, Em gửi anh chị thông tin xuất hóa đơn ………………….. 
6581
Mình hay sử dụng cách củ chuối này, bạn tham khảo:
Muốn màu chữ nào thì thay code màu chữ đó, ví dụ mình thích màu xanh dương nhạt thì mã code là #0D3B69, mình để link lấy mã màu bên dưới, bạn tự lấy mã màu bạn muốn.
Font chữ, mình đang xài arial, nếu muốn bạn có thể đổi font khác, tương tự với cỡ chữ, mình đang để cỡ 11, bạn có thể đổi nếu muốn.
Nội dung, nếu muốn xuống hàng thì cứ kẹp  muốn ghi cái gì đó tùy bạn 
Nếu muốn bôi đen:  Muốn ghi cái gì đó tùy bạn

Link bạn có thể lấy mã màu ở đây:
www.2dtx.com/home/html-color-codes.php

Còn bạn muốn thêm chữ ký thì có thể làm kiểu:

Dim olMail As Outlook.MailItem
            Set olMail = olApp.CreateItem(olMailItem)
            olMail.Display
            Signatures = olMail.HTMLBody
              ..................
olMail.HTMLBody = ThisWorkbook.Sheets(....).Cells(... , ...) [B]& Signatures[/B]