Ok,
here is the code!
Option Compare Database
'------------------------------------------------------------
' TEST_AUTO
'
'------------------------------------------------------------
Function TEST_AUTO()
On Error GoTo TEST_AUTO_Err
DoCmd.SendObject acQuery, "Query2", "HTML(*.html)", "[TBL Daily Import Test]![RequestorEmail]", "", "", "TESTiNG", "testing123", False, ""
TEST_AUTO_Exit:
Exit Function
TEST_AUTO_Err:
MsgBox Error$
Resume TEST_AUTO_Exit
End Function
Thanks!!