用VB实现班主任工作的电子化毕业论文(2)
2015-01-05 02:07
导读：Next SendToText = SendToText " 班主任: 刘友生 " Chr(13) Chr(10) SendToText = SendToText "湖南省衡阳经济贸易学校" Chr(13) Chr(10) SendToText = SendToText "发信日期：" Data$ " 发信
Next
SendToText = SendToText " 班主任: 刘友生 " Chr(13) Chr(10)
SendToText = SendToText "湖南省衡阳经济贸易学校" Chr(13) Chr(10)
SendToText = SendToText "发信日期：" Data$ " 发信时间：" Time$
GetTxtName ’调用函数
Call StarSend(txtobject(2).Text, M_Subject, SendToText)
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
MsgBox Str(Sum) "个人员的成绩通知单已经发送完毕！", , " 发 送 邮 件"
End
End If
Loop
End Sub
Private Sub GetFieldNum()
Data1.Recordset.MoveFirst
'自动获得数据表中字段数并在窗体中自动生成相应文本
