哪位高手帮我改下发邮件代码

下面是发发邮件代码,但是不能发附件,请帮改成能发附件的.多谢了

Option Explicit

Private BaseUserName As String
Private BasePassWord As String
Dim IsSendMail As Boolean
Dim IsHelo As Boolean
Dim IsMailFrom As Boolean
Dim IsRcptTo As Boolean
Dim IsData As Boolean
Dim IsAuth As Boolean
Dim IsUserName As Boolean
Dim IsPassWord As Boolean
Dim IsQuit As Boolean
Dim IsMsgBody As Boolean
Dim IsSendOK As Boolean
Dim StrMailFrom As String
Dim StrMailTo As String
Dim EmailSubject As String
Dim EmailBodyOfMessage As String
Private Sub Init()
IsHelo = False
IsMailFrom = False
IsRcptTo = False
IsData = False
IsAuth = False
IsUserName = False
IsPassWord = False
IsQuit = False
IsMsgBody = False
IsSendOK = False
End Sub

Private Sub CmdSave_Click()

SendMail1 TxtUserName.Text, TxtPassword.Text, TxtRec.Text, TxtSub.Text, TxtMsg.Text
End S

哪位高手帮我改下发邮件代码 哪位高手可以帮我改下代码啊? 请问哪位高手可以帮小妹改一改css代码？？ 关于一段ASP.NET代码,哪位帮我改一下... 哪位高手帮我改一改呢? 哪位高手帮我翻译一下这份邮件!!! 哪位高手。帮我翻译成日语 写邮件用 ！！！！！ 网页高手帮帮忙...帮我改一段文字效果代码啊? 请高手帮我看看这个asp代码怎么改 帮我看看这段邮件代码