cách viết Body mail nhiều dòng trong VBA trên Excel

[hoangnam_vt]

Nhờ anh/chị chỉ giúp cách viết Body của Mail trên VBA thành nhiều dòng. Thanks all.
Mình viết mà nó không xuống dòng.

 

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

Nhờ anh/chị chỉ giúp cách viết Body của Mail trên VBA thành nhiều dòng. Thanks all.
Mình viết mà nó không xuống dòng.
View attachment 266250

Bạn thay VbNewLine thành thẻ "<br>" là được nhé.

 

[Hoàng Trọng Nghĩa]

Do mail dùng ngôn ngữ HTML nên xuống hàng phải dùng <br> nhé bạn!

    outlMail.HTMLBody = ThisWorkbook.Sheets(2).Cells(1, 8) & _
    ThisWorkbook.Sheets(2).Cells(i, 4) & " ( " & _
    ThisWorkbook.Sheets(2).Cells(1, 9) & _
    ThisWorkbook.Sheets(2).Cells(i, 2) & " )" & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(4, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(5, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(6, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(7, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(8, 1)
    outlMail.Attachments.Add ThisWorkbook.Path & "\Files\" & ThisWorkbook.Sheets(2).Cells(i, 5)
    outlMail.Send

Bài đã được tự động gộp: 17/9/21

Bạn thay VbNewLine thành thẻ "<br>" là được nhé.

View attachment 266254

Trùi ui, vừa gửi xong đã thấy Hai Lúa gửi lên trước rồi! kakakka

 

[hoangnam_vt]

Do mail dùng ngôn ngữ HTML nên xuống hàng phải dùng <br> nhé bạn!

    outlMail.HTMLBody = ThisWorkbook.Sheets(2).Cells(1, 8) & _
    ThisWorkbook.Sheets(2).Cells(i, 4) & " ( " & _
    ThisWorkbook.Sheets(2).Cells(1, 9) & _
    ThisWorkbook.Sheets(2).Cells(i, 2) & " )" & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(4, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(5, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(6, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(7, 1) & "<br>" & _
    ThisWorkbook.Sheets(3).Cells(8, 1)
    outlMail.Attachments.Add ThisWorkbook.Path & "\Files\" & ThisWorkbook.Sheets(2).Cells(i, 5)
    outlMail.Send

Bài đã được tự động gộp: 17/9/21

Trùi ui, vừa gửi xong đã thấy Hai Lúa gửi lên trước rồi! kakakka

Thanks nhiều nhé.

Bài đã được tự động gộp: 18/9/21

Mình muốn thêm định dạng font cho Body mail là cở chữ 14, font là Time new roman. thì thêm như thế nào vậy. Thanks

 

[Hoàng Trọng Nghĩa]

Thanks nhiều nhé.

Bài đã được tự động gộp: 18/9/21

Mình muốn thêm định dạng font cho Body mail là cở chữ 14, font là Time new roman. thì thêm như thế nào vậy. Thanks

Thì bạn thêm câu lệnh này vào:

"<font style=""font-family: Times New Roman; font-size: 14pt;""/font>"

outlMail.HTMLBody = "<font style=""font-family: Times New Roman; font-size: 14pt;""/font>" & _
            ThisWorkbook.Sheets(2).Cells(1, 8) & _
            ThisWorkbook.Sheets(2).Cells(i, 4) & " ( " & _
            ThisWorkbook.Sheets(2).Cells(1, 9) & _
            ThisWorkbook.Sheets(2).Cells(i, 2) & " )" & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(4, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(5, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(6, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(7, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(8, 1)

 

[hoangnam_vt]

Thì bạn thêm câu lệnh này vào:

"<font style=""font-family: Times New Roman; font-size: 14pt;""/font>"

outlMail.HTMLBody = "<font style=""font-family: Times New Roman; font-size: 14pt;""/font>" & _
            ThisWorkbook.Sheets(2).Cells(1, 8) & _
            ThisWorkbook.Sheets(2).Cells(i, 4) & " ( " & _
            ThisWorkbook.Sheets(2).Cells(1, 9) & _
            ThisWorkbook.Sheets(2).Cells(i, 2) & " )" & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(4, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(5, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(6, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(7, 1) & "<br>" & _
            ThisWorkbook.Sheets(3).Cells(8, 1)

Mình muốn cho dòng đó vào một Tab (khoản trống đầu dòng) thì làm thế nào vậy. Thanks.

 

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

Mình muốn cho dòng đó vào một Tab (khoản trống đầu dòng) thì làm thế nào vậy. Thanks.

Bạn thử thêm thẻ &emsp; vào nhé.

 

[Hoàng Trọng Nghĩa]

Mình muốn cho dòng đó vào một Tab (khoản trống đầu dòng) thì làm thế nào vậy. Thanks.

Bạn thêm &ensp; hoặc &emsp;

en tương đương với 1 khoảng trắng, em tương đương 2 khoảng trắng, en = 1/2 em.

 

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

Bạn thêm &ensp; hoặc &emsp;

en tương đương với 1 khoảng trắng, em tương đương 2 khoảng trắng, en = 1/2 em.

Khoảng trắng tương đương như sau nhé anh:

• 1 cách trắng: &nbsp;
• 2 cách trắng: &ensp;
• 4 cách trắng: &emsp;

 

[hoangnam_vt]

Khoảng trắng tương đương như sau nhé anh:

• 1 cách trắng: &nbsp;
• 2 cách trắng: &ensp;
• 4 cách trắng: &emsp;

Mình gán <ul> thì nó đã nhẩy vào 1 Tab. thụt vào 1 khoản giống mình nhấn phím Tab. Thanks

Bài đã được tự động gộp: 22/9/21

Cho hỏi khi mình muốn nhận được thông tin đã gửi đến Mail người nhận, người nhận đã đọc.

bằng cách nào trong VBA vậy. Thanks

 

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

Mình gán <ul> thì nó đã nhẩy vào 1 Tab. thụt vào 1 khoản giống mình nhấn phím Tab. Thanks

Bài đã được tự động gộp: 22/9/21

Cho hỏi khi mình muốn nhận được thông tin đã gửi đến Mail người nhận, người nhận đã đọc.
View attachment 266481
bằng cách nào trong VBA vậy. Thanks

Bạn thêm 2 dòng sau vào nhé.

    outlMail.OriginatorDeliveryReportRequested = True
    outlMail.ReadReceiptRequested = True