Gửi mail đính kèm file

[boysanhdieu]

Chào các bác,
Em tính dùng VBA để gửi mail đính kèm file hàng loạt
Nhưng code sau khi chạy không thấy báo lỗi, vẫn run Outlook nhưng không gửi thư đi
Các bác xem dùm code có bị lỗi chổ nào không hay Outlook của mình có vấn đề (Outlook 2010)
Thanks các bác

 

[thnghiachau]

Chào các bác,
Em tính dùng VBA để gửi mail đính kèm file hàng loạt
Nhưng code sau khi chạy không thấy báo lỗi, vẫn run Outlook nhưng không gửi thư đi
Các bác xem dùm code có bị lỗi chổ nào không hay Outlook của mình có vấn đề (Outlook 2010)
Cảm ơn các bác

.BCC = Sheets("Settings").Cells(4, 2).Value là Tên file chứ đâu phải địa chỉ mail cho BCC đâu???
và cái này OutApp.Session.Logon hình như không cần (bỏ nó đi)

 

[boysanhdieu]

.BCC = Sheets("Settings").Cells(4, 2).Value là Tên file chứ đâu phải địa chỉ mail cho BCC đâu???
và cái này OutApp.Session.Logon hình như không cần (bỏ nó đi)

Thanks bạn đã sửa giúp
File đính kèm ở ổ D:\test có cần đặt tên vd : mark for terminal_tung.xlsx hay để tung.xlsx
File mình chạy vẫn không gửi được mail bạn ơi

 

[thnghiachau]

Cảm ơn bạn đã sửa giúp
File đính kèm ở ổ D:\test có cần đặt tên vd : mark for terminal_tung.xlsx hay để tung.xlsx
File mình chạy vẫn không gửi được mail bạn ơi

File đính kèm theo code của bạn là D:\mark for terminal_tung.xlsx (theo file minh gời lai)

FileLink = Sheets("Settings").Range("b2").Value & _
Sheets("Settings").Range("b4").Value & _
Sheets("Email_List").Cells(RowNum, 1).Value & _
"." & Sheets("Settings").Range("b5").Value

ý đồ của bạn sao tui không biết!!! bạn tự chỉnh nha!