Send mail cho các record được lọc (3 người xem)

[comtri]

Tôi không biết trong Access có thể kích hoạt gửi email có record được lọc trên form, hay trong query hoặc table. Mong các bạn GPE trả lời giúp. Cám ơn các bạn.

 

[Hai Lúa Miền Tây]

Tôi không biết trong Access có thể kích hoạt gửi email có record được lọc trên form, hay trong query hoặc table. Mong các bạn GPE trả lời giúp. Cám ơn các bạn.

Bạn thử code sau:

Private Sub cmdSendMail_Click()
Dim Body, Subj As String
Dim App, Mail

Set App = CreateObject("Outlook.application")
Set Mail = App.CreateItem(0)
  
  Mail.To = Me.txtDiaChi.Value
  Subj = "Tieu de email: " & Me.txtTieuDe.Value
  Mail.Subject = Subj
    
    If IsNull(Me.txtNoiDung.Value) Then
        MsgBox "Ban phai nhap noi dung can gui cho " & txtTen, vbCritical, "Khong duoc de trong noi dung"
        Me.txtNoiDung.SetFocus
        Exit Sub
    End If
   
    Body = Me.txtNoiDung.Value
    Mail.Body = Body
    Mail.Send

End Sub

Private Sub Form_Load()
txtDiaChi = "domfootwear@giaiphapexcel.com"
txtTen = "Anh Hai Lua"

End Sub

Tham khảo thêm file đính kèm nhé.

 

[comtri]

Cám ơn bạn rất nhiều. Bạn có thể vui lòng chỉ thêm làm sao để đưa danh sách địa chỉ người gửi trong bảng (ví dụ bảng email, trong file đính kèm) vào khung To của Form1 không?

Chúc bạn mọi sự tốt lành.

 

[Hai Lúa Miền Tây]

Cám ơn bạn rất nhiều. Bạn có thể vui lòng chỉ thêm làm sao để đưa danh sách địa chỉ người gửi trong bảng (ví dụ bảng email, trong file đính kèm) vào khung To của Form1 không?

Chúc bạn mọi sự tốt lành.

Thì bạn đổi cái textbox đó thành combobox là được.
Xem file nhé.

 

[comtri]

Xin lỗi bạn, ý tôi muốn là gửi một lúc cho nhiều người dựa vào danh sách đã lọc sẵn (ví dụ, gửi cho tất cả những địa chỉ có trong bảng email). Cám ơn bạn rất nhiều vì đã giúp mình tận tình.

 

[Hai Lúa Miền Tây]

Xin lỗi bạn, ý tôi muốn là gửi một lúc cho nhiều người dựa vào danh sách đã lọc sẵn (ví dụ, gửi cho tất cả những địa chỉ có trong bảng email). Cám ơn bạn rất nhiều vì đã giúp mình tận tình.

Thì bạn đưa nó vào vòng lặp là được.
Code như sau:

Option Compare Database

Private Sub cmdSendMail_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM [email]")

Dim Body, Subj As String
Dim App, Mail
rs.MoveFirst
Do While Not rs.EOF
    txtDiaChi = rs!email
    txtTen = rs!ten
    Set App = CreateObject("Outlook.application")
    Set Mail = App.CreateItem(0)
      
      Mail.To = Me.txtDiaChi.Value
      Subj = "Tieu de email: " & Me.txtTieuDe.Value
      Mail.Subject = Subj
        
        If IsNull(Me.txtNoiDung.Value) Then
            MsgBox "Ban phai nhap noi dung can gui cho " & txtTen, vbCritical, "Khong duoc de trong noi dung"
            Me.txtNoiDung.SetFocus
            Exit Sub
        End If
       
        Body = Me.txtNoiDung.Value
        Mail.Body = Body
        Mail.Send
    rs.MoveNext
Loop

End Sub