Xuống dòng trong htmlBody Mail (1 người xem)

[dungnh1501]

Chào mọi người,
Mình đang tự mày mò code VBA để tạo file gửi mail, hiện tại mình gặp 1 vấn đề là khi add thêm chữ ký vào email thì phải sử dụng câu lệnh .htmlBody để lấy thêm hình ảnh chữ ký, nhưng nếu dùng .htmlBody thì nếu dữ liệu trong ô excel phần body của mình có phần xuống dòng, khi đẩy lên mail sẽ bị xóa mất và dính liền vào nhau.


Các bạn hỗ trợ giùm mình phương án với, mình mò mãi mà không ra. Mình gửi kèm file xlsm.

 

[Hai Lúa Miền Tây]

Chào mọi người,
Mình đang tự mày mò code VBA để tạo file gửi mail, hiện tại mình gặp 1 vấn đề là khi add thêm chữ ký vào email thì phải sử dụng câu lệnh .htmlBody để lấy thêm hình ảnh chữ ký, nhưng nếu dùng .htmlBody thì nếu dữ liệu trong ô excel phần body của mình có phần xuống dòng, khi đẩy lên mail sẽ bị xóa mất và dính liền vào nhau.
View attachment 163751
View attachment 163753
Các bạn hỗ trợ giùm mình phương án với, mình mò mãi mà không ra. Mình gửi kèm file xlsm.

Bạn dùng thẻ <BR> để xuống dòng

Dear all, <BR>abc,<BR> cbg

 

[dungnh1501]

Bạn dùng thẻ <BR> để xuống dòng

Bạn ơi, nếu dùng thẻ đó ở trong excel thì mình làm đc rồi, nhưng mình muốn gõ tự do ở phần excel rồi mình dùng code ở VBA để nó giữ lại y chang đó bạn

 

[doveandrose]

Bạn ơi, nếu dùng thẻ đó ở trong excel thì mình làm đc rồi, nhưng mình muốn gõ tự do ở phần excel rồi mình dùng code ở VBA để nó giữ lại y chang đó bạn

thì dùng hàm Replace(text,Chr(10),"<br>") xem sao , phải linh động chứ .

 

[Hai Lúa Miền Tây]

Bạn ơi, nếu dùng thẻ đó ở trong excel thì mình làm đc rồi, nhưng mình muốn gõ tự do ở phần excel rồi mình dùng code ở VBA để nó giữ lại y chang đó bạn

Thì bạn gõ như thế nào thì qui ước nó như thế ấy, thay thế cái qui ước đó thành thẻ đó là được mà.

noidung = Replace((Range("D" & i).Value), Chr(10), "<BR>")

 

[dungnh1501]

Thì bạn gõ như thế nào thì qui ước nó như thế ấy, thay thế cái qui ước đó thành thẻ đó là được mà.

Tks bạn
Bạn chỉ luôn giùm mình cách sửa font chữ của các dòng bên dưới với

 

[Hai Lúa Miền Tây]

Tks bạn
Bạn chỉ luôn giùm mình cách sửa font chữ của các dòng bên dưới với
View attachment 163758

Bạn nên tìm đọc thêm về các thẻ của HTML nhé. Khi nào bí quá mới hỏi.

noidung = "<font size='5' face='Tahoma' color='blue'>" & Replace((Range("D" & i).Value), Chr(10), "<BR>") & "</font>"