As you can see from the below code that I can open
up lstMissing list box names as a txt file and now I need to send this file to at least two people in principals office. Your help will be
highly apprecialted at Illinois Math and Science Academy.
Private Sub cmdCheckInventory_Click()
Dim sFileList As String
Dim bMatch As Boolean
Dim sTeacherInfo As String
Dim sSearch As String
Dim FileNum As Integer
Dim i As Integer
‘Get list of all teachers teaching courses this TermID
‘Populate list box with term/AY descriptions and select closest term.
Screen.MousePointer = vbHourglass
lstMissing.AddItem DataGB.rsTeachersWithClasses(“Name”) + ”
” + DataGB.rsTeachersWithClasses(“ID”) FileNum = FreeFile
Open “C:\Name.txt” For Output As FileNum
For i = 0 To lstMissing.ListCount – 1
Write #FileNum, lstMissing.LIST(i)
Next
Close FileNum
End If
DataGB.rsTeachersWithClasses.MoveNext
Loop
DataGB.rsTeachersWithClasses.MoveNext
Loop
Screen.MousePointer = vbNormal
Exit Sub
ERR_GRADEBOOK_IVENTORY:
Select Case Err Case Else
Stop
End Select
End Sub
“How can I use VB command button to send an email using
netscape messanger with a file attachment automatically”. My application
is written in VB4.
Thanks for all your help.
Chitrarekha Saha
Database Programmer/Administrator
630-907-5932