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

[Dung Nguyen 25121997]

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 ạ.

 

[batman1]

Vì bạn không đính kèm tập tin nên tôi đề nghị code như ở dưới. Tôi chỉ mất công 1 lần. Nếu cần thì tự sửa và ghi nhớ là luôn có tập tin + mô tả kỹ. Đừng để người khác mất công nhiều lần. Tôi không thích kiểu: "Thời gian của người khác, công sức của người khác không tiếc. Vết thương của người khác không đau (không làm mình đau)".

Cũng có thể tự tạo chuỗi "<table> ... </table" từ vùng chứa bảng trên sheet (dùng vòng lặp FOR) rồi thêm vào .HTMLBody

Giả sử toàn bộ nội dung thư (chào gặp mặt, thông tin, bảng, chào tạm biệt) nằm trong vùng Sheet1.Range("A1:I21").

Public Function SaveRangetoHTMLString(rng As Range) As String
'    Hàm trả 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
...

 

[87kilua]

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

 

[toando9x]

@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!

 

[hoangkiss]

@toando9x : Minh doan kha nang nam o code nay : Public Function SaveRangetoHTMLString(rng As Range) As String

Ban tham khao cach nay xem : https://www.giaiphapexcel.com/diend...ự-động-đính-kèm-file-và-bảng-tổng-hợp.137200/

How to save a Unicode character to a text file

This is in Word for MAC VBA. I want to save the Unicode character from a text box to text file. For example this character "⅛". I use this code. Dim N as Long N = FreeFile Dim strText as String

stackoverflow.com