Private Sub Email_Click()
Dim rsEmail As DAO.Recordset
Dim strFilter As String
Dim strInputFileName As String
Dim strEmail As String
strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _...