Lọc, lấy dữ liệu theo form mẫu, tự động lưu sheet và gửi email (1 người xem)

[bloodtrail]

Chào tất cả mọi người,

Mình có trường hợp như thế này, mình có bảng dữ liệu như file đính kèm. Tại sheet dữ liệu, ta có bảng số liệu của từng người. Tại đây nó sẽ lấy dữ liệu lần lượt của từng người, cho sang sheet gửi email.

Tiếp đến nó sẽ lưu lại sheet vừa tạo (tạo file excel mới, nếu có thể thì convert được sang pdf file) gửi email dựa theo cột email của sheet dữ liệu. Gửi email xong sẽ tự động xóa file vừa tạo.

Mục đích việc này là vì khi mình sử dụng megre mail của word, thì nó sẽ đính kèm nội dung trên email, khi in ra (đối với những người không biết sử dụng office) thì sẽ lỗi form. Ngoài ra việc tạo và đính kèm file để mình có thể viết thêm nội dung dặn dò trên email. Hình như sử dụng megre mail của word ko làm được kiểu này thì phải?

Trân trọng cảm ơn mọi người giúp đỡ,

 

[Quang_Hải]

Chào tất cả mọi người,

Mình có trường hợp như thế này, mình có bảng dữ liệu như file đính kèm. Tại sheet dữ liệu, ta có bảng số liệu của từng người. Tại đây nó sẽ lấy dữ liệu lần lượt của từng người, cho sang sheet gửi email.

Tiếp đến nó sẽ lưu lại sheet vừa tạo (tạo file excel mới, nếu có thể thì convert được sang pdf file) gửi email dựa theo cột email của sheet dữ liệu. Gửi email xong sẽ tự động xóa file vừa tạo.

Mục đích việc này là vì khi mình sử dụng megre mail của word, thì nó sẽ đính kèm nội dung trên email, khi in ra (đối với những người không biết sử dụng office) thì sẽ lỗi form. Ngoài ra việc tạo và đính kèm file để mình có thể viết thêm nội dung dặn dò trên email. Hình như sử dụng megre mail của word ko làm được kiểu này thì phải?

Trân trọng cảm ơn mọi người giúp đỡ,

Code dựa theo file mẫu của bạn, nếu thay đổi mẫu thì ráng chịu đừng la lên nhá

Sub GoiMail()
Dim  cll As Range, DL As Worksheet
For Each cll In Sheet1.Range(Sheet1.[A2], Sheet1.[A65536].End(3))
    With Sheet2
      .[B6] = cll.Offset(, 1)
      .[A11].Resize(, 5).Value = cll.Resize(, 5).Value
      .ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & cll & ".pdf"
    End With
    With CreateObject("Outlook.Application")
        .Session.Logon
        With .CreateItem(0)
            .To = cll.Offset(, 5)
            .Subject = Sheet2.[C1]
            .Body = "Kinh Goi Ong Ba " & cll.Offset(, 1) & vbNewLine & vbNewLine _
            & "noi dung dong 1" & vbNewLine _
            & "noi dung dong 2" & vbNewLine _
            & "noi dung dong 3" & vbNewLine & vbNewLine _
            & "Tran Trong" & vbNewLine & vbNewLine _
            & Sheet2.[B5]
            .Attachments.Add ThisWorkbook.Path & "\" & cll & ".pdf"
            .Display
      End With
    End With
    Kill ThisWorkbook.Path & "\" & cll & ".pdf"
Next
End Sub

 

[bloodtrail]

woa, quá tuyệt vời, em không nghĩ là có thể convert pdf, nhưng anh xử lý ngon lành, thay đổi form mẫu không sao đâu anh à, em sẽ dựa trên code a để ngâm cứu.

Em cảm ơn anh nhiều nha.

 

[janeha]

Em chào các anh chị,
các anh chị giúp em với, e đang muốn gửi mail với nội dung như file word, còn dữ liệu trong file excel.
E muốn lọc theo tên công ty và gửi mail cho họ (địa chỉ email ở Sheet 2) với nội dung mail có bảng dữ liệu và thông tin highlight.
Mọi người giúp em với!