| 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 |
Gửi mail mỗi người một sheet khác nhau
- Thread starter Thbv
- Ngày gửi
darknightno007
Thành viên hoạt động
- Tham gia
- 26/11/15
- Bài viết
- 180
- Được thích
- 54
- Nghề nghiệp
- Kế toán
Thấy code bạn viết có rồi mà, cần set thêm điều kiện nữa là ok.
Upvote
0
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,043
- Được thích
- 7,936
- Nghề nghiệp
- Làm đủ thứ
Cố gắng tùy biến nhé.
Mã:
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
Lần chỉnh sửa cuối:
Upvote
0
Mong bạn giúp đỡ. Mình không tùy biến được
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
Mong các bạn giúp đỡ. Xin cảm ơn các bạn
Bài đã được tự động gộp:
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:
Mong các bạn giúp đỡ. Xin cảm ơn các bạn
Lần chỉnh sửa cuối:
Upvote
0
Upvote
0
