Xử lý ký tự Unicode khi gửi mail tự động

[vu_tuan_manh_linh]

Tôi viết đoạn code gửi mail tự động, trong đó "Chủ đề" và "Nội dung" mail được định sẵn tùy từng loại mail. Tuy nhiên gặp phải vấn đề hiển thị tiếng Việt. Ví dụ: tôi gửi đoạn text "Chúng tôi đã nhận được hồ sơ của bạn. Chúng tôi sẽ liên hệ lại sau khi xem xét hồ sơ. Cảm ơn bạn đã quan tâm.", nhưng mail nhận được lại hiển thị: "Chúng tôi dã nh?n du?c h? so c?a b?n. Chúng tôi s? liên h? l?i sau khi xem xét h? so. C?m on b?n dã quan tâm.".
Hiện tại chưa biết cách khắc phục vấn đề này. Mong diễn đàn trợ giúp! Xin cảm ơn!

 

[snow25]

Tôi viết đoạn code gửi mail tự động, trong đó "Chủ đề" và "Nội dung" mail được định sẵn tùy từng loại mail. Tuy nhiên gặp phải vấn đề hiển thị tiếng Việt. Ví dụ: tôi gửi đoạn text "Chúng tôi đã nhận được hồ sơ của bạn. Chúng tôi sẽ liên hệ lại sau khi xem xét hồ sơ. Cảm ơn bạn đã quan tâm.", nhưng mail nhận được lại hiển thị: "Chúng tôi dã nh?n du?c h? so c?a b?n. Chúng tôi s? liên h? l?i sau khi xem xét h? so. C?m on b?n dã quan tâm.".
Hiện tại chưa biết cách khắc phục vấn đề này. Mong diễn đàn trợ giúp! Xin cảm ơn!

Cách đơn giản nhất là bạn gán nó vào 1 ô cells rồi gọi nó vào trong code.Còn muốn viết tiếng việt trong code cần phải viết theo hàm.CHRW

 

[vu_tuan_manh_linh]

Cách đơn giản nhất là bạn gán nó vào 1 ô cells rồi gọi nó vào trong code.Còn muốn viết tiếng việt trong code cần phải viết theo hàm.CHRW

Tôi đã thử cách gõ Unicode vào 1 cell và gọi ra, dùng hàm TCVN3toUnicode() cũng không được. Tôi sẽ thử cách dùng hàm chrw() xem thế nào. Cảm ơn bạn!

 

[chucuoi92]

Tôi viết đoạn code gửi mail tự động, trong đó "Chủ đề" và "Nội dung" mail được định sẵn tùy từng loại mail. Tuy nhiên gặp phải vấn đề hiển thị tiếng Việt. Ví dụ: tôi gửi đoạn text "Chúng tôi đã nhận được hồ sơ của bạn. Chúng tôi sẽ liên hệ lại sau khi xem xét hồ sơ. Cảm ơn bạn đã quan tâm.", nhưng mail nhận được lại hiển thị: "Chúng tôi dã nh?n du?c h? so c?a b?n. Chúng tôi s? liên h? l?i sau khi xem xét h? so. C?m on b?n dã quan tâm.".
Hiện tại chưa biết cách khắc phục vấn đề này. Mong diễn đàn trợ giúp! Xin cảm ơn!

Mình cũng thường gửi mail như bạn và cũng gặp trường hợp đó, giải quyết như sau:
Viết nội dung vào một names, sau đó dùng một biến string để lấy names đó
NoiDung = Evaluate(ActiveWorkbook.Names("ABC").RefersTo)
---------------------------------------
Có thể mình hiểu sai câu hỏi.

 

[vu_tuan_manh_linh]

Mình cũng thường gửi mail như bạn và cũng gặp trường hợp đó, giải quyết như sau:
Viết nội dung vào một names, sau đó dùng một biến string để lấy names đó
NoiDung = Evaluate(ActiveWorkbook.Names("ABC").RefersTo)

Oh! Thanks bạn nhé! Tôi thử ngay và luôn!

 

[vu_tuan_manh_linh]

Mình cũng thường gửi mail như bạn và cũng gặp trường hợp đó, giải quyết như sau:
Viết nội dung vào một names, sau đó dùng một biến string để lấy names đó
NoiDung = Evaluate(ActiveWorkbook.Names("ABC").RefersTo)
---------------------------------------
Có thể mình hiểu sai câu hỏi.

Rất tiếc cách này cũng không được. Mình dùng Unicode dựng sẵn. Cả unicode tổ hợp cũng không được!

 

[vu_tuan_manh_linh]

Vấn đề đã được giải quyết bằng cách thêm câu lệnh: iMsg.BodyPart.Charset = "utf-8".