Macro gửi bảng lương cá nhân qua email (5 người xem)

[vn1969]

Em đã post bài lên hỏi, và đã có bài trả lời, nhưng hôm nay không thể tìm thấy bài đã post.

Mọi người giúp em câu hỏi sau với:

Em có một bảng tính lương, với nhiều fields (col) và nhiều bản ghi của nhân viên (row), col cuối cùng là địa chỉ email, em muốn tạo một Macro để capture toàn bộ Fields + Row tương ứng của một nhân viên dựa trên email của người đó, rồi tự đông gửi email cho nhân viên đó về thông tin lương của họ. Có nghĩa là mỗi nhân viên sẽ nhân được qua email Row của mình + với tên các cột để biết thu nhập. Em gửi theo đây bảng excel mẫu, các anh chị giúp em với.

Chân thành cảm ơn ạ
Sơn

 

[ThuNghi]

Em đã post bài lên hỏi, và đã có bài trả lời, nhưng hôm nay không thể tìm thấy bài đã post.

Mọi người giúp em câu hỏi sau với:

Em có một bảng tính lương, với nhiều fields (col) và nhiều bản ghi của nhân viên (row), col cuối cùng là địa chỉ email, em muốn tạo một Macro để capture toàn bộ Fields + Row tương ứng của một nhân viên dựa trên email của người đó, rồi tự đông gửi email cho nhân viên đó về thông tin lương của họ. Có nghĩa là mỗi nhân viên sẽ nhân được qua email Row của mình + với tên các cột để biết thu nhập. Em gửi theo đây bảng excel mẫu, các anh chị giúp em với.

Chân thành cảm ơn ạ
Sơn

Bạn nghiên cứu link sau, tôi có nhớ reply rồi mà ai xóa mất.
Bác nvson hay bác tedaynui giúp 1 file cụ thể vấn đề này với, xem mà chả hiểu gì => không làm được => chưa giúp được.
http://www.giaiphapexcel.com/forum/showthread.php?t=8650

 

[SoiBien]

hướng dẫn mà bạn xem là gửi nguyên một file excel đi, còn yêu cầu của bạn là gửi từng record đi, như vậy bạn sẽ phải làm một động tác trước khi gửi mail đi đó là tạo ra một file mới gồm header và record tương ứng rồi mới gửi file vừa tạo đó đi được. như vậy, macro của bạn sẽ làm các công việc
- copy header sang một file mới,
Bắt đầu vòng lặp:
- copy record có địa chỉ email ở cột cuối sang file mới đó (có những người không có địa chỉ email thì không gửi)
- send email file vừa được copy record
-lặp lại các bước trên co đến hết.


tuy nhiên nếu bạn ko cài CDO thì bạn phải cài MS Outlook, đối với người nhận mail thì không quan trọng, nhưng nhất thiết phải cài CDO hoặc MS Outlook để dùng các code có sẵn để gửi mail đi.


Thân.

 

[vn1969]

Nếu thế thì Save As nhiều lắm đúng không ạ, bên em có đến 500 người

 

[ThuNghi]

Nếu thế thì Save As nhiều lắm đúng không ạ, bên em có đến 500 người

- Save as 1 file, send, xóa và next.
- To SB: Đang thắc mắc phần mail người gởi thí dùng cái gì để xác định, vd: người gởi là: Soibien@yahoo.com, còn người nhận thì x@yahoo.com, y@abc.com...Đã HD thì cụ thể luôn đi. Mình chưa bao giờ biết dùng outlook.

 

[alcatelpro]

Đồng chí nào cần thì thử cái này nhé.

 

[lien.nguyenthuy]

Bạn có thể hướng dẫn mọi người cách làm bản như bạn đã làm ko?

 

[hoanganhdl]

Mình dùng code như này, khi nào cần dùng thì gọi & truyền tham số vào

Sub mainmail(nguoinhan, cc, tieude, loichao, body, dinhkem)

    Dim OutApp As Object, OutMail As Object
                    
    On Error GoTo cleanup
    
    Set OutApp = CreateObject("Outlook.Application")
    
'Tao va goi mail
    'ActiveWindow.ActivateNext
    
    Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = nguoinhan
            .cc = cc
            .Subject = tieude
            If Len(dinhkem) > 0 Then
                .Attachments.Add dinhkem
            End If
            .HTMLbody = "<b>" & "<font style=font-size:14pt>" & loichao & "</b>" & "</font>" & _
                        "" & _
                        "<font style=font-size:14pt>" & _
                        body & _
                        "</font>" & _
                        "<br>"


            '.send
            .Display  'Or use Send
        End With
        
    On Error GoTo 0
            
   Set OutMail = Nothing
        
cleanup:
    Set OutApp = Nothing: Set OutMail = Nothing
    
End Sub

 

[david2004]

Các anh em lấy về sử dụng nha!
Hàng mới viết xong.

 

[babyheomoi]

Cám ơn bác nhé,sáng mai mình sẽ test thử!

 

[NguyenNgocThuHien]

Các anh em lấy về sử dụng nha!
Hàng mới viết xong.

Qua xem xét file của bạn, mình thấy bạn đã sử dụng một modul của mình đã share. Tuy nhiên bạn lại xóa hết những thông tin tác giả. Mình đã share thì mọi người có thể dùng, nhưng không nên chỉnh sửa tùy tiện, cũng như xóa thông tin tác giả mà nên giữ nguyên, như một sự tôn trọng tác giả. Sai lầm thì có thể sửa, nếu không bạn sẽ tự nhận những điều tiếng không hay từ cộng đồng.

 

[NguyenNgocThuHien]

Cám ơn bác nhé,sáng mai mình sẽ test thử!

Bạn có thể tham khảo video sau, cho phép bạn tha hồ vẽ vời trong việc gửi email.

 

[david2004]

Bạn có thể tham khảo video sau, cho phép bạn tha hồ vẽ vời trong việc gửi email.

Qua xem xét file của bạn, mình thấy bạn đã sử dụng một modul của mình đã share. Tuy nhiên bạn lại xóa hết những thông tin tác giả. Mình đã share thì mọi người có thể dùng, nhưng không nên chỉnh sửa tùy tiện, cũng như xóa thông tin tác giả mà nên giữ nguyên, như một sự tôn trọng tác giả. Sai lầm thì có thể sửa, nếu không bạn sẽ tự nhận những điều tiếng không hay từ cộng đồng.

 

[CarotNho]

Xin lỗi các tác giả nha!
Mình xin đính chính lại một chút, Ứng dụng này mình phát triển dựa trên modul của thành viên NguyenNgocThuHien và một Modul xuất phiếu lương của một bạn mà mình không nhớ tên. Mình không phải dân lập trình, mình là dân network. Thấy 02 modul này hay nên mình kết hợp lại và trong quá trình vọc chắc sơ ý làm mất thông tin tác giả. Mình muốn chia sẽ để mọi người nghiên cứu thôi...
P/s : Lần đầu chuyển qua nghiên cưu vba cũng thú vị ghê

Bạn lấy ở đây nè.
Thấy code mở hoàn toàn, tha hồ copy, chỉnh sửa thoải mái, không lo vụ oánh dấu tác giả gì hết trơn. Mà còn hay hơn cái bạn nói ở trên nghe.

http://www.giaiphapexcel.com/diendan/threads/gửi-email-tính-lương-cho-từng-người.48211/page-6

http://www.giaiphapexcel.com/diendan/threads/gửi-email-từ-excel-bằng-vba.122394/page-2#post-790542

http://www.giaiphapexcel.com/diendan/threads/xuất-file-từ-bảng-excel.66491/#post-404313

http://www.giaiphapexcel.com/diendan/threads/gửi-mail-tự-động-từ-excel-từng-dòng-một.62746/

 

[kbw1]

Các anh em lấy về sử dụng nha!
Hàng mới viết xong.

Cảm ơn bạn,
Mai mình thử sẽ gửi phản hồi đến bạn!

 

[kbw1]

Các anh em lấy về sử dụng nha!
Hàng mới viết xong.

Thiếu file send mail rồi bạn ơi,

 

[NguyenNgocThuHien]

Xin lỗi các tác giả nha!
Mình xin đính chính lại một chút, Ứng dụng này mình phát triển dựa trên modul của thành viên NguyenNgocThuHien và một Modul xuất phiếu lương của một bạn mà mình không nhớ tên. Mình không phải dân lập trình, mình là dân network. Thấy 02 modul này hay nên mình kết hợp lại và trong quá trình vọc chắc sơ ý làm mất thông tin tác giả. Mình muốn chia sẽ để mọi người nghiên cứu thôi...
P/s : Lần đầu chuyển qua nghiên cưu vba cũng thú vị ghê

Nếu bạn đã nói vậy thì mình nghĩ bạn nên chỉnh sửa lại file của bạn, import nguyên bản modul của mình lại, và không chỉnh sửa gì. Điều này không khó và không gây rối loạn gì cho ứng dụng của bạn.

 

[nhile1995]

Các anh em lấy về sử dụng nha!
Hàng mới viết xong.

Em edit lại file của anh David theo bảng lương bên em rồi, nhưng đến khi gửi mail thì chẳng thấy tệp đính kèm đâu cả. Vào thư mục mới thấy file cho mỗi nhân viên đều chưa được tạo. Lỗi này fix như thế nào ạ?

 

[cdtam]

Bạn lấy ở đây nè.
Thấy code mở hoàn toàn, tha hồ copy, chỉnh sửa thoải mái, không lo vụ oánh dấu tác giả gì hết trơn. Mà còn hay hơn cái bạn nói ở trên nghe.

http://www.giaiphapexcel.com/diendan/threads/gửi-email-tính-lương-cho-từng-người.48211/page-6

http://www.giaiphapexcel.com/diendan/threads/gửi-email-từ-excel-bằng-vba.122394/page-2#post-790542

http://www.giaiphapexcel.com/diendan/threads/xuất-file-từ-bảng-excel.66491/#post-404313

http://www.giaiphapexcel.com/diendan/threads/gửi-mail-tự-động-từ-excel-từng-dòng-một.62746/

Nội dung này hay và cần thiết thật.Cám ơn bạn nhiều

 

[david2004]

Em edit lại file của anh David theo bảng lương bên em rồi, nhưng đến khi gửi mail thì chẳng thấy tệp đính kèm đâu cả. Vào thư mục mới thấy file cho mỗi nhân viên đều chưa được tạo. Lỗi này fix như thế nào ạ?

code này dựa và mã nhân viên ( cells (1,2) ) để sinh ra file phiếu lương
Khi bạn edit theo phiếu lương của bạn thi phải chỉnh code ở đây lại
Bạn vào đây để edit lại nha!