cách gửi email tới nhiều người nhận và đính kèm file khác nhau

[dinhhanghuong]

Dear cả nhà,
Mình có một bài tập là hàng tháng (tới đây phải gửi hàng ngày) 215 file khác nhau (hoặc các sheet khác nhau trong cùng 1 file cũng được) tới 215 địa chỉ email khác nhau.

Kiểu như gửi báo cáo bán hàng tới 215 agent khác nhau nhưng chỉ được gửi danh sách khách hàng của agent đó thôi.
Trong file đính kèm là:
- sheet distribution list: là sheet có tên/ email người nhận có tên sheet cần gửi attach
- các sheet còn lại là nội dung cần tách riêng để gửi.
Cả nhà giúp nhé.

Dinhhanghuong.

 

[vanle33]

Dear cả nhà,
Mình có một bài tập là hàng tháng (tới đây phải gửi hàng ngày) 215 file khác nhau (hoặc các sheet khác nhau trong cùng 1 file cũng được) tới 215 địa chỉ email khác nhau.

Kiểu như gửi báo cáo bán hàng tới 215 agent khác nhau nhưng chỉ được gửi danh sách khách hàng của agent đó thôi.
Trong file đính kèm là:
- sheet distribution list: là sheet có tên/ email người nhận có tên sheet cần gửi attach
- các sheet còn lại là nội dung cần tách riêng để gửi.
Cả nhà giúp nhé.

Dinhhanghuong.

Bạn thử tham khảo ở đây http://www.giaiphapexcel.com/forum/showthread.php?48211-G%E1%BB%ADi-email-t%C3%ADnh-l%C6%B0%C6%A1ng-cho-t%E1%BB%ABng-ng%C6%B0%E1%BB%9Di

 

[dinhhanghuong]

Dear bạn Vanle33,
File của phần trong forum về việc gửi thông tin chi tiết lương thì người ta paste ngay thông tin ra ngoài email. Nhưng mình đang cần là 1 file ecxel cơ vì số liệu khá nhiều dòng cũng như sẽ bao gồm cả công thức/ chart.

Có bạn nào biết viết/ sửa code mảrco thì sửa giúp mình với.

 

[vanle33]

Dear bạn Vanle33,
File của phần trong forum về việc gửi thông tin chi tiết lương thì người ta paste ngay thông tin ra ngoài email. Nhưng mình đang cần là 1 file ecxel cơ vì số liệu khá nhiều dòng cũng như sẽ bao gồm cả công thức/ chart.

Có bạn nào biết viết/ sửa code mảrco thì sửa giúp mình với.

Bạn gửi cả file của bạn sang topic đó và nhờ các cao thủ code sửa code cho bạn!

 

[dinhhanghuong]

Dear cả nhà,
Mình đã nhờ được 1 em IT ở cơ quan mình giúp. Đã khá ổn theo yêu cầu của mình. (cũng luộc/xào/nấu lại trên 1 file đc hỗ trợ trên mạng) - mình up lên kể mọi người tham khảo và sử dụng khi cần.

 

[MinhKhai]

Dear cả nhà,
Mình đã nhờ được 1 em IT ở cơ quan mình giúp. Đã khá ổn theo yêu cầu của mình. (cũng luộc/xào/nấu lại trên 1 file đc hỗ trợ trên mạng) - mình up lên kể mọi người tham khảo và sử dụng khi cần.

File của bạn mình chạy thử mà không thấy hoạt động (không có thông báo gì, mail không gửi và không nhận được, OE cài sẵn, các thông tin trên form excel đã điền đủ). Sao vậy nhỉ ??

 

[tetekh]

Em có câu hỏi y chang chị dinhhanghuong,
kính mong anh chị nào text thử file chị Hương đính kèm và giúp em với
Chân thành cảm ơn các anh chị

 

[thanh73bs]

Cảm ơn bạn dinhhanghuong, mình đã tải tệp Gui Mail của bạn, tuy nhiên mình k khởi tạo được nút send để gửi bạn, kể cả khi mình sử dụng ngay chính file của bạn, mình thay địa chỉ mail cũng không gửi được, bạn chỉ giúp mình nhé. Cảm ơn bạn nhiều!

 

[Duy Dang]

Dear Dinhhanghuong
Có cách nào để chèn nội dung email vào không bạn?
Với lại khi nhấn nút send thì gửi bao nhiêu địa chỉ mail tương ứng phải click Ok To All/Allow bấy nhiêu lần, có thể khắc phục được không ạ.
Nếu 2 điểm này được khắc phục mình nghĩ đây là cách hoàn hảo rồi

 

[befaint]

Dear Dinhhanghuong
Có cách nào để chèn nội dung email vào không bạn?
Với lại khi nhấn nút send thì gửi bao nhiêu địa chỉ mail tương ứng phải click Ok To All/Allow bấy nhiêu lần, có thể khắc phục được không ạ.
Nếu 2 điểm này được khắc phục mình nghĩ đây là cách hoàn hảo rồi

Bài #5:
http://www.giaiphapexcel.com/diendan/threads/gửi-email-từ-excel-bằng-vba.122394/#post-767131

 

[tranphuson]

Dear cả nhà,
Mình đã nhờ được 1 em IT ở cơ quan mình giúp. Đã khá ổn theo yêu cầu của mình. (cũng luộc/xào/nấu lại trên 1 file đc hỗ trợ trên mạng) - mình up lên kể mọi người tham khảo và sử dụng khi cần.

Cho mình hỏi là file này rất hay - nhưng khi tạo Sheet khác hay đổi font thì mặc định vẫn là font chữ Hàn Quốc. Có cách nào chỉnh sửa font này thay đổi được không?

Xin cảm ơn

 

[dangcamhoang87]

Chào anh chị,

Mình có file này và nhu cầu cần gửi mail nhiều file đính kèm khác nhau cho nhiều người, mình đã có sửa code lại rồi nhưng mà file đính kèm lại không đúng được

Nhờ anh chị xem và hướng dẫn mình với ạ, cám ơn cả nhà.

"
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range
Dim FileCell As Range
Dim rng As Range

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set sh = Sheets("Sheet1")

Set OutApp = CreateObject("Outlook.Application")

For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)

'Enter the path/file names in the C:Z column in each row
Set rng = sh.Cells(cell.Row, 1).Range("B1:Z4")

If cell.Value Like "?*@?*.?*" And _
Application.WorksheetFunction.CountA(rng) > 0 Then
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = cell.Value
.cc = Range("c2").Value
.Subject = Range("B2").Value
.Body = cell.Offset(0, -1).Value

For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell

.Send 'Or use .Display
End With

Set OutMail = Nothing
End If
Next cell

Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub"

 

[Maika8008]

Chào anh chị,

Mình có file này và nhu cầu cần gửi mail nhiều file đính kèm khác nhau cho nhiều người, mình đã có sửa code lại rồi nhưng mà file đính kèm lại không đúng được

Nhờ anh chị xem và hướng dẫn mình với ạ, cám ơn cả nhà.

"
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range
Dim FileCell As Range
Dim rng As Range

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set sh = Sheets("Sheet1")

Set OutApp = CreateObject("Outlook.Application")

For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)

'Enter the path/file names in the C:Z column in each row
Set rng = sh.Cells(cell.Row, 1).Range("B1:Z4")

If cell.Value Like "?*@?*.?*" And _
Application.WorksheetFunction.CountA(rng) > 0 Then
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = cell.Value
.cc = Range("c2").Value
.Subject = Range("B2").Value
.Body = cell.Offset(0, -1).Value

For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell

.Send 'Or use .Display
End With

Set OutMail = Nothing
End If
Next cell

Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub"

Bạn tìm bài của thành viên thnghiachau lấy file về dùng luôn cho tiện.

 

[dangcamhoang87]

Bạn tìm bài của thành viên thnghiachau lấy file về dùng luôn cho tiện.

Cám ơn bạn nhiều nha