Xin chào anh chị GPE!
Em học trên mạng biết cách gửi mail hàng loạt bằng VBA, em bị vướng ở chỗ là em muốn phần Body em không biết cách nào để gửi một văn bản có định dạng (tùy chọn font chữ, cỡ chữ, màu chữ,...) hoặc là gửi đi một bảng nhiều dòng nhiều cột trong Excel, ví dụ như gửi thêm bảng dưới đây trong phần body của mail:
Em chỉ gửi được một thư có body cơ bản như này thôi ạ:
Đây là code của em:
Vậy anh chị cho em hỏi là có cách nào gửi mail mà phần Body có định dạng và gửi kèm theo bảng biểu được không ạ! Em xin cám ơn!
Em học trên mạng biết cách gửi mail hàng loạt bằng VBA, em bị vướng ở chỗ là em muốn phần Body em không biết cách nào để gửi một văn bản có định dạng (tùy chọn font chữ, cỡ chữ, màu chữ,...) hoặc là gửi đi một bảng nhiều dòng nhiều cột trong Excel, ví dụ như gửi thêm bảng dưới đây trong phần body của mail:
Em chỉ gửi được một thư có body cơ bản như này thôi ạ:
Đây là code của em:
Mã:
Sub GuiMailHangLoat()
Dim olApp As Outlook.Application ' bien ung dung outlut
Dim olMail As Outlook.MailItem
Set olApp = CreateObject("Outlook.Application") ' gan bien
Set olMail = olApp.CreateItem(olMailItem) ' gan mail
Dim i As Long, lr As Long
Dim MailNhan As String
Dim BodyMSG As String
Dim TieuDe As String
Dim FileDinhKem As String
With ShOutIn
MailNhan = .Range("AB4").Value
BodyMSG = .Range("AB7").Value
TieuDe = .Range("AB5").Value
FileDinhKem = .Range("AB6").Value
' Cau truc gui mai
olMail.To = MailNhan ' gui cho ai (nguoi nhan)
olMail.Subject = TieuDe ' tieu de mail
olMail.Body = BodyMSG ' phan than
olMail.Attachments.Add FileDinhKem
olMail.Send ' lenh gui di
MsgBox "Xong!"
End With
End SubVậy anh chị cho em hỏi là có cách nào gửi mail mà phần Body có định dạng và gửi kèm theo bảng biểu được không ạ! Em xin cám ơn!
