Rất nhiều bạn đang làm công tác tính lương có mong muốn là có thể gửi được phiếu lương có mật khảu nhưng không biết phải làm sao. Chúng tôi xin chia sẻ cách làm như sau đầu tiên bạn phải tách mail merge phiếu lương thành nhiều file riêng lẻ sau đó các bạn mới dùng cách gửi mail có file đính kèm thì lúc đó các bạn mới hoàn thành được gửi phiếu lương có mật khẩu được.

Để có thể gửi mail đính kèm file bằng VBA code được thì yêu cầu các bạn phải thực hiện trước các thao tác sau

– Bật được cửa sổ VBA trong excel bằng cách nhấn tổ hợp phím: ALT + F11

– Bật tính năng liên kết với Outlook, trong giao diện VBA chọn Tools/Reference/ Microsoft Outlook object libarary

– Chọn Insert Module

Sau khi làm xong điều kiện trên, bạn copy đoạn code gửi mail đính kèm file bằng VBA code sau đây vào trong file excel, bấm Run là xong

Sub guimail()
Dim app As Outlook.Application
Set app = CreateObject(“Outlook.Application”)
For i = 4 To 6
Dim olMail As Outlook.MailItem
Set olMail = app.CreateItem(olMailItem)
olMail.To = Cells(i, 91)
olMail.Subject = “thu nghiem”
olMail.Body = “mat khau la” & Cells(i, 5).Value
olMail.Attachments.Add ThisWorkbook.Path & “\PAYLIP” & Cells(i, 4).Value & “.docx”
olMail.Send
Next i
End Sub

Giải thích

– i: số thứ tự hàng

– 5,91,….: số thứ tự cột

– ThisWorkbook.Path & “\PAYLIP” & Cells(i, 4).Value & “.docx”: đường dẫn chứa file cần đính kèm

Hy vọng với bài viết trên, sẽ giúp cho các bạn đang làm công tác tính lương biết thêm đoạn VBA code để nâng cao trình độ của bản thân, cũng như đáp ứng được các yêu cầu trong chuyển đổi số hiện nay

______________________________________________________________________________________________________________________________

Đọc thêm các bài viết khác

– Gửi email bằng VBA code

– Tách mail merge thành nhiều file