CÁCH COPY BẢNG TỪ EXCEL VÀO OUTLOOK ĐỂ GỬI EMAIL HÀNG LOẠT

Chia sẻ bởi:hands

★★★★★

‹ Định dạng tô màu theo mã hàng... VBA tải file có yêu cầu đăng... ›

Quảng cáo

Chào các anh /chị,

Hiện tại em đang tập tành nghiên cứu VBA và cần tạo macro để gửi email báo giá cho khách hàng.
Em muốn add Bảng giá vào body email thì có thể làm thế nào ạ?
Thật tình em có dùng gg search nhiều nhưng không thấy bài hướng dẫn T.T

Em cám ơn các anh chị nhiều ạ.

Vì bạn không đính kèm tập tin nên tôi đề nghị code như ở dưới. Tôi chỉ mất công 1 lần. Nếu cần thì tự sửa và ghi nhớ là luôn có tập tin + mô tả kỹ. Đừng để người khác mất công nhiều lần. Tôi không thích kiểu: "Thời gian của người khác, công sức của người khác không tiếc. Vết thương của người khác không đau (không làm mình đau)".

Cũng có thể tự tạo chuỗi "<table> … </table" từ vùng chứa bảng trên sheet (dùng vòng lặp FOR) rồi thêm vào .HTMLBody

Giả sử toàn bộ nội dung thư (chào gặp mặt, thông tin, bảng, chào tạm biệt) nằm trong vùng Sheet1.Range("A1:I21").

Public Function SaveRangetoHTMLString(rng As Range) As String
'    Hàm trả về nội dung HTML
Dim text As String, tmpfile As String, fso As Object
    tmpfile = Environ$("temp") & "/" & format(Now, "ddmmyyhhmmss") & ".html"
    rng.Worksheet.Parent.PublishObjects.Add(xlSourceRange, tmpfile, rng.Worksheet.Name, rng.Address, xlHtmlStatic).Publish True
    Set fso = CreateObject("Scripting.FileSystemObject")
    text = fso.OpenTextFile(tmpfile, , -1).ReadAll
    SaveRangetoHTMLString = text
    Kill tmpfile
    Set fso = Nothing
End Function

Trong code gửi thư:
...
With OutMail
    .BodyFormat = olFormatHTML
    .To = "..."
    .Subject = "..."
    .HTMLBody = SaveRangetoHTMLString(Sheet1.Range("A1:I21"))
    .Display
'   .send
End With
...

www.giaiphapexcel.com/diendan/threads/c%C3%81ch-copy-b%E1%BA%A2ng-t%E1%BB%AA-excel-v%C3%80o-outlook-%C4%90%E1%BB%82-g%E1%BB%ACi-email-h%C3%80ng-lo%E1%BA%A0t.161521/

tạo nhóm báo giá trên telegram gửi phát thôi. Chịu khó thuyết phục người dùng telegram .. Thử coi sao

@batman1
Cảm ơn bác đã chia sẻ code cho mọi người. Em đã chạy code của bác rất là ok, mấy ngày nay em tìm quá trời.
Mà bác cho em hỏi 1 chút là, đoạn trả về nội dung HTML bác có thể gợi ý làm thế nào để nó dùng đc kiểu Unicode ko, lúc em xuất mail nó toàn lỗi font chữ ạ.
Cảm ơn bác rất nhiều!