Gửi mail mỗi người một sheet khác nhau

[Thbv]

Mình có 1 file "GUIMAIL": Trong file có 1 sheet "Mail' và các sheet tên sheet là các mã đơn vị

Sheet "Mail" có 3 cột: Cột B là cột "Mã đơn vị" (tên mã giống tên các sheet mã đơn vị), cột C là cột "diachimail", cột D là cột " Guihaykhonggui" (Nếu gửi thì là Y, không gửi để trống)

YÊU CẦU: Nhấn nút Mail thì nó tìm ở cột D của sheet "Mail" nếu có chữ Y (tức là gửi) thì tìm cột B "Madonvi" đối chiếu với tên các sheet "Madonvi" Nếu thấy trùng tên thì tách sheet đó thành file và thì gửi vào địa chỉ mail ở cột "địa chỉ mail" cùng dòng ở cột C, nếu không thấy thì thôi

Ví dụ theo biểu: D3 có chữ Y nên gửi, Đối chiếu cột B3 là H1, tìm H1 ở các sheet thấy có sheet H1, tách sheet H1 ra và gửi vào địa chỉ mail C3 là NguyenvanA@yahoo.com (Chỉ NguyenvanA@yahoo.com là nhận được)

Mong được giúp đỡ xin cảm ơn nhiều

 

[darknightno007]

Mình có 1 file "GUIMAIL": Trong file có 1 sheet "Mail' và các sheet tên sheet là các mã đơn vị

Sheet "Mail" có 3 cột: Cột B là cột "Mã đơn vị" (tên mã giống tên các sheet mã đơn vị), cột C là cột "diachimail", cột D là cột " Guihaykhonggui" (Nếu gửi thì là Y, không gửi để trống)

YÊU CẦU: Nhấn nút Mail thì nó tìm ở cột D của sheet "Mail" nếu có chữ Y (tức là gửi) thì tìm cột B "Madonvi" đối chiếu với tên các sheet "Madonvi" Nếu thấy trùng tên thì tách sheet đó thành file và thì gửi vào địa chỉ mail ở cột "địa chỉ mail" cùng dòng ở cột C, nếu không thấy thì thôi

Ví dụ theo biểu: D3 có chữ Y nên gửi, Đối chiếu cột B3 là H1, tìm H1 ở các sheet thấy có sheet H1, tách sheet H1 ra và gửi vào địa chỉ mail C3 là NguyenvanA@yahoo.com (Chỉ NguyenvanA@yahoo.com là nhận được)

Mong được giúp đỡ xin cảm ơn nhiều

Thấy code bạn viết có rồi mà, cần set thêm điều kiện nữa là ok.

 

[Thbv]

Mình chưa làm được. Mong bạn giúp đỡ

 

[Quang_Hải]

Mình có 1 file "GUIMAIL": Trong file có 1 sheet "Mail' và các sheet tên sheet là các mã đơn vị

Sheet "Mail" có 3 cột: Cột B là cột "Mã đơn vị" (tên mã giống tên các sheet mã đơn vị), cột C là cột "diachimail", cột D là cột " Guihaykhonggui" (Nếu gửi thì là Y, không gửi để trống)

YÊU CẦU: Nhấn nút Mail thì nó tìm ở cột D của sheet "Mail" nếu có chữ Y (tức là gửi) thì tìm cột B "Madonvi" đối chiếu với tên các sheet "Madonvi" Nếu thấy trùng tên thì tách sheet đó thành file và thì gửi vào địa chỉ mail ở cột "địa chỉ mail" cùng dòng ở cột C, nếu không thấy thì thôi

Ví dụ theo biểu: D3 có chữ Y nên gửi, Đối chiếu cột B3 là H1, tìm H1 ở các sheet thấy có sheet H1, tách sheet H1 ra và gửi vào địa chỉ mail C3 là NguyenvanA@yahoo.com (Chỉ NguyenvanA@yahoo.com là nhận được)

Mong được giúp đỡ xin cảm ơn nhiều

Cố gắng tùy biến nhé.

Sub Send_Email()
Dim sArr(), i As Long, tmp As String, TmpName As String
With Sheets("Mail")
   sArr = .Range("B3", .Range("B" & Rows.Count).End(3)).Resize(, 3).Value
End With
For i = 1 To UBound(sArr)
   If UCase(sArr(i, 3)) = "Y" Then
      tmp = UCase(sArr(i, 1))
      Sheets(tmp).Copy
      With ActiveWorkbook
         TmpName = ThisWorkbook.Path & "\" & tmp & ".xlsx"
         .SaveAs ThisWorkbook.Path & "\" & tmp, 51
         .Close
      End With
      With CreateObject("Outlook.Application")
         .Session.Logon
         With .CreateItem(0)
            .To = sArr(i, 2)
            .Subject = "AYZ"
            .Body = "Dear " & vbNewLine & vbNewLine           
            .Attachments.Add TmpName
            .Display
         End With
      End With
      Kill TmpName
   End If
Next
End Sub

 

[Thbv]

Mong bạn giúp đỡ. Mình không tùy biến được

Bài đã được tự động gộp: 10/9/20

Mã và tên sheet trùng nhau. Nếu thấy tên sheet và tên mã trùng nhau thì dựa trên cột D là Y thì gửi, nếu trống thì là không gửi

Bài đã được tự động gộp: 10/9/20

Mong các bạn giúp đỡ. Xin cảm ơn các bạn

 

[Quang_Hải]

Mong bạn giúp đỡ. Mình không tùy biến được

Bài đã được tự động gộp: 10/9/20

Mã và tên sheet trùng nhau. Nếu thấy tên sheet và tên mã trùng nhau thì dựa trên cột D là Y thì gửi, nếu trống thì là không gửi

Bài đã được tự động gộp: 10/9/20

Mong các bạn giúp đỡ. Xin cảm ơn các bạn

Có code rồi mà không biết copy vào để sử dụng nữa thì ai giúp được cho bạn đây???

 

[Thbv]

Chỗ nội dung 1,2,3,4 ..., đánh chỗ nào bạn?

 

[Quang_Hải]

Chỗ nội dung 1,2,3,4 ..., đánh chỗ nào bạn?

Mình đã chỉnh lại đoạn code phía trên. Bạn thử xem coi được chưa. Mình chỉ giúp nổi tới đây thôi nhé
Chúc may mắn.

 

[Thbv]

Cảm ơn bạn
quanghai1969
nhiều nhé