SendObject

[awsha]

I'm using SendObject method to send a data where i fetch from a table. The problem i'm facing rite now is I just can send the mail only once. In my form I have 2 textboxes, 1 for E-mail subject the other one is for the message box, 2 command buttons 1 for fetching data from table to put into the msg box and the other one for sending. Below is the code

Fetching data
Private Sub Command2_Click()
Dim dbs As Database
Dim rst As DAO.Recordset



Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("MyTable")

'// MSG1 is Text Box for Message body

Do While Not rst.EOF
Me.MSG1.Value = Me.MSG1.Value & rst!Filed1 & " " & rst!Field2 & " " & "verified by " & rst!Field3 & " (" & rst!Field4 & ")" & Chr(13) + Chr(10)
Me.MSG1.ScrollBars = 2
rst.MoveNext
Loop

rst.close

End Sub

Sending E-mail


Private Sub Command3_Click()
Dim MSG, subj2 As String

MSG = Me.MSG1.Value
subj2 = Me.Subject1.Value
DoCmd.SendObject acSendNoObject, , , "receiver", , , subj2, MSG, False


pls help me

[salvelinus]

Can't you just put it in a loop? If two different email recipients, skip the loop and send twice.

Private Sub Command3_Click()
Dim MSG, subj2 As String
dim i as integer
 
MSG = Me.MSG1.Value
subj2 = Me.Subject1.Value
 
For i = 1 to 2
DoCmd.SendObject acSendNoObject, , , "receiver", , , subj2, MSG, False
Next
'or if skipping loop
DoCmd.SendObject acSendNoObject, , , "other_receiver", , , subj2, MSG, False

[awsha]

Hi salvelinus,

I need to send to same group but different msg. Now If wanna send again with a different msg i have to quit access and run back the application. If not the second I want to use it the button is useless. Need ur help man... btw thanks a lot with ur last suggestion.

[salvelinus]

Instead of getting the recordset in a Click event, put it in a separate function. Add a parameter to the new function to check which recordset should be retrieved, then call the new function twice from the Click event with different arguments.

Private Sub command1_click()
  GetData(1)
  Getdata(2)
End Sub
 
Private Sub GetData(i as integer)
  Dim dbs As Database
  Dim rst As DAO.Recordset
 
  if i = 1 then
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("MyTable")
 
    '// MSG1 is Text Box for Message body
 
    Do While Not rst.EOF
      Me.MSG1.Value = Me.MSG1.Value & rst!Filed1 & " " & rst!Field2   & " " & "verified by " & rst!Field3 & " (" & rst!Field4 & ")" & Chr(13) + Chr(10)
      Me.MSG1.ScrollBars = 2
      rst.MoveNext
    Loop
 
    rst.close
  Else
    'Do what you need to get the other data
  End If
 
  DoCmd.SendObject acSendNoObject, , , "receiver", , , subj2, MSG, False
End Sub

Filling your textbox may be able to be moved out of the If statement if you're filling the same box with the same indexed fields of either recordset. In that case just put the code to create the 2nd recordset in the else statement.