Gửi mail từ excel(người nhận chỉ nhận được sheet có tên họ)

[Huongsambi]

Hello cả nhà, sắp tới mình muốn gửi phiếu đánh giá cho từng nhân viên từ excel( Mỗi nhân viên sẽ chỉ nhận được file có tên họ). Mình cũng đã tìm hiểu và theo dõi một số kênh thì đều ghi là dùng marcos/VBA. Mọi người có thể cho mình xin cách tạo code(hoặc code có sẵn) và hướng dẫn thao tác được không ạ?
Mình cảm ơn!

 

[befaint]

xin cách tạo code

Cái này là bí kíp "di truyền" sao cho được bạn.

 

[Huongsambi]

Cái này là bí kíp "di truyền" sao cho được bạn.

Bạn không cho thì bạn có thể hướng dẫn các thao tác để mình làm được hem ahihi

 

[snow25]

Bạn không cho thì bạn có thể hướng dẫn các thao tác để mình làm được hem ahihi

Cho cái file lên đây mới biết gửi thế nào chứ.Và nói chi tiết ra.

 

[Quang_Hải]

Bạn không cho thì bạn có thể hướng dẫn các thao tác để mình làm được hem ahihi

Cơ bản là như vầy. Muốn kèm file thì thêm vài dòng nữa

Sub Goimail()
With CreateObject("Outlook.Application")
   .Session.Logon
      With .CreateItem(0)
        .to = "diem_vuong@yahoo.com"
        .Subject = "Đơn Gia Hạn Thời Gian Hưởng Dương"
        .Body = "Dear " & vbNewLine & vbNewLine _
        & "noi dung dong 1" & vbNewLine _
        & "noi dung dong 2" & vbNewLine _
        & "noi dung dong 3" & vbNewLine _
        & "noi dung dong 4" & vbNewLine & vbNewLine _
        & "Tran Trong" & vbNewLine & vbNewLine _
        & "Nguyen Van Teo"
        .display
      End With
End With
End Sub

 

[Huongsambi]

Cho cái file lên đây mới biết gửi thế nào chứ.Và nói chi tiết ra.

File đó bên mình vẫn đang thu thập và tổng hợp thông tin, nên trong thời gian chờ xong, mình tìm hiểu trước. Mình cứ tưởng có code chung

 

[Huongsambi]

Cơ bản là như vầy. Muốn kèm file thì thêm vài dòng nữa

Sub Goimail()
With CreateObject("Outlook.Application")
   .Session.Logon
      With .CreateItem(0)
        .to = "diem_vuong@yahoo.com"
        .Subject = "Đơn Gia Hạn Thời Gian Hưởng Dương"
        .Body = "Dear " & vbNewLine & vbNewLine _
        & "noi dung dong 1" & vbNewLine _
        & "noi dung dong 2" & vbNewLine _
        & "noi dung dong 3" & vbNewLine _
        & "noi dung dong 4" & vbNewLine & vbNewLine _
        & "Tran Trong" & vbNewLine & vbNewLine _
        & "Nguyen Van Teo"
        .display
      End With
End With
End Sub

Em cảm ơn anh ạ./.