Gửi mail hàng loạt có đính kèm file riêng lẻ

Chia sẻ bởi:hands

★★★★★

‹ Xin trợ giúp hàm chuyển năm sinh... Nhờ giúp chuyển từ sub lọc dữ... ›

Quảng cáo

Nhờ Anh/Chị, hỗ trợ giúp em cách gửi email hàng loạt có đính kèm file riêng lẻ ạ.
Em có đính kèm file bên dưới, tuy nhiên file này chỉ chạy ra đúng 1 email nhưng em đang cần gửi đến từng email với từng file khác nhau.
Em cảm ơn Anh/Chị nhiều ạ

Mail hoạt động bình thường với nhiều địa chỉ trong danh sách. Nhược điểm là nhiều người nhận nhưng lại cùng chủ đề, cùng nội dung, cùng file đính kèm.
Bạn tham khao file đính kèm nhé

bạn cho mình hỏi thêm vì về mảng này mình bị tối á hic, ví dụ trong trương hợp mình muốn gửi đến nhiều người hơn nữa thì mình điều chỉnh file này như thế nào ạ, vì mình copy thêm dòng add thêm email và file đính kèm thì file báo lỗi k chạy dc dòng email dc add. cảm ơn bạn nhiều nhé.

Sub guimail()
Dim OutApp As Object
Dim OutMail As Object
Dim Lr&, i&, Sh As Worksheet
Dim Arr, k&

Set OutApp = CreateObject("Outlook.Application")
Set Sh = Sheets("Sendmail")

Lr = Sh.Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To Lr
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = Sh.Range("B" & i).Value
        .cc = Sh.Range("C" & i).Value
        .BCC = Sh.Range("D" & i).Value
        .Subject = Sh.Range("E" & i).Value
        .body = Sh.Range("F" & i).Value
        Arr = Split(Sh.Range("G" & i).Value, Chr(10))
        For k = 0 To UBound(Arr)
            .Attachments.Add Arr(k)
        Next k
        '.display (xem lại) .send (gui ngay)
        .send
    End With
    Set OutMail = Nothing
Next i
Set OutApp = Nothing
End Sub