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

[Monkey1508]

Em chào Anh/Chị,
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 ạ

 

[Maika8008]

Em chào Anh/Chị,
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 tìm trên diễn đàn, có nhiều code hay và sáng sủa hơn thế nhiều.

 

[Maika8008]

Bạn tham khảo bài #14 của link này, có cả gửi bằng Outlook lẫn Gmail.
https://www.giaiphapexcel.com/diend...hàng-loạt-qua-outlook-vba.150417/#post-982647

 

[Monkey1508]

Bạn tham khảo bài #14 của link này, có cả gửi bằng Outlook lẫn Gmail.
https://www.giaiphapexcel.com/diendan/threads/xin-code-gửi-phiếu-lương-hàng-loạt-qua-outlook-vba.150417/#post-982647

Dạ, mình cảm ơn bạn nhiều nhé.

 

[nguyenthuy13388]

Bạn tham khao file đính kèm nhé

 

[Monkey1508]

Bạn tham khao file đính kèm nhé

cảm ơn bạn nhiều ạ

 

[Monkey1508]

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

 

[nguyenthuy13388]

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

chụp ảnh lỗi lên mình xem nhé

 

[Monkey1508]

chụp ảnh lỗi lên mình xem nhé

Nhờ bạn xem giúp mình với nhé, cảm ơn bạn nhiều

 

[thnghiachau]

Em chào Anh/Chị,
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 ạ

Tôi có làm một file giống như bạn yêu cầu, bạn có thể tham khảo nhá...

 

[Maika8008]

Tôi có làm một file giống như bạn yêu cầu, bạn có thể tham khảo nhá...

Tôi có giới thiệu ở bài #3 đó bạn. File vẫn như vậy hay là có thêm bớt gì?

P/S: lâu ngày ít thấy bạn xuất hiện ha?

 

[thnghiachau]

Tôi có giới thiệu ở bài #3 đó bạn. File vẫn như vậy hay là có thêm bớt gì?

P/S: lâu ngày ít thấy bạn xuất hiện ha?

Hehe... cái này "sát và giống" cái bạn í cần thôi ah....
Bữa ni mình bận công trường "xa" không thời gian bạn ơi...

 

[tranphuson]

Tôi có làm một file giống như bạn yêu cầu, bạn có thể tham khảo nhá...

Mình thấy file của bạn rất hữu ích và mình cũng áp dụng được cho công việc của mình.

Nhân tiện cho mình hỏi là nếu kéo nội dung mail lên phía trên sát thì sửa lại như thế nào


Xin cảm ơn

 

[thnghiachau]

Mình thấy file của bạn rất hữu ích và mình cũng áp dụng được cho công việc của mình.

Nhân tiện cho mình hỏi là nếu kéo nội dung mail lên phía trên sát thì sửa lại như thế nào

View attachment 260195
Xin cảm ơn

Xin lỗi bạn, rất tiếc là không được bạn ơi....

 

[Hoàng Tuấn 868]

Xin lỗi bạn, rất tiếc là không được bạn ơi....

Bạn ơi, lấy kéo cắt đoạn thừa phía trên được mà.

 

[katori123]

Bạn tham khao file đính kèm nhé

Có cách nào ấn gửi phát là nó gửi luôn không ạ? của mình ấn vào nó nhảy ra outlook xong phải thêm 1 bước nữa là ấn send trong outlook

 

[nguyenthuy13388]

Có cách nào ấn gửi phát là nó gửi luôn không ạ? của mình ấn vào nó nhảy ra outlook xong phải thêm 1 bước nữa là ấn send trong outlook

bạn sửa lại phần Sub guimail như code dưới đây (phần chữ đỏ):

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

 

[katori123]

bạn sửa lại phần Sub guimail như code dưới đây (phần chữ đỏ):

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

Cảm ơn bạn. Mình đã làm được rồi.

 

[katori123]

Su
End Sub

Cho mình hỏi thêm chút. Là làm sao để khi gửi sẽ tự động thêm chữ ký vào trong mail ạ? Cảm ơn bạn.

 

[babyheomoi]

Tôi có làm một file giống như bạn yêu cầu, bạn có thể tham khảo nhá...

Đơn giản, dễ xài, dễ dùng và đáp ứng đủ nhu cầu. Cám ơn bạn!
Ps: trường hợp cc, bcc thêm thì thế nào bạn nhỉ?