vb中的信息保存为txt格式，然后在发送个指定邮箱。不知道这样可以做到吗？

Question

如题所述

Answer 1

可以的，利用OPEN和WRITE语句进行写TXT操作，然后调用jmail.dll 组件进行邮件发送附件。
附组件发送函数代码：
Function JmailSend(Attachment, Subject, Body, isHtml, HtmlBody, MailTo, CcTo, BccTo, From, FromName, Smtp, Username, Password)
'使用前先引用jmail.dll 组件，

'=================================================
'函数名：JmailSend
'作 用：用Jmail发送邮件
'参 数：
' Attachment 附件地址
' Subject 邮件标题
' Body 邮件内容
' isHtml 是否发送Html格式邮件 (true 是)
' HtmlBody Html格式邮件内容
' MailTo 收件人Email 收件人名称和收件人信箱之间用英文状态下的分号分隔开
' CcTo 抄送人Email
' BccTo 密送人Email
' From 发件人Email
' FromName 发件人姓名
' Smtp smtp服务器
' Username 邮箱用户名
' Password 邮箱密码
'返回值：JmailSend="N" 发送失败 JmailSend="Y" 发送成功
'~~~~~~~~~~suercool~~~~~
'=================================================
Dim JmailMsg
'Set JmailMsg = server.CreateObject("jmail.message")
Set JmailMsg = New jmail.Message
JmailMsg.MailServerUserName = Username '如果是在局域网中可以不要验证
JmailMsg.MailServerPassWord = Password

'JmailMsg.AddRecipient MailTo
JmailMsg.From = From
JmailMsg.FromName = FromName

JmailMsg.Charset = "gb2312" '"GBK"
JmailMsg.ContentType = "multipart/mixed" '"text/html" '前一种附件正常

JmailMsg.Priority = 1
JmailMsg.Logging = True
JmailMsg.Silent = True

JmailMsg.Subject = Subject
JmailMsg.Body = Body
' JmailMsg.AddAttachment = attachFile
If isHtml = True Then JmailMsg.HtmlBody = HtmlBody

'========================================
JmailMsg.Encoding = "base64" '"base64", "uuencode" or "quoted-printable"

'发件人地址
aryEmail = Split(MailTo, ";")
For i = 0 To UBound(aryEmail)
JmailMsg.AddRecipient Trim(aryEmail(i))
Next
'抄送人地址
aryEmail = Split(CcTo, ";")
For i = 0 To UBound(aryEmail)
JmailMsg.AddRecipientCC Trim(aryEmail(i))
Next
'暗送人地址
aryEmail = Split(BccTo, ";")
For i = 0 To UBound(aryEmail)
JmailMsg.AddRecipientBCC Trim(aryEmail(i))
Next
'附件列表
aryEmail = Split(Attachment, ";")
For i = 0 To UBound(aryEmail)
JmailMsg.AddAttachment Trim(aryEmail(i))
Next

'=======================================

If Not JmailMsg.Send(Smtp) Then
JmailSend = "N"
Else
JmailSend = "Y"
End If
JmailMsg.Close
Set JmailMsg = Nothing
MsgBox (JmailSend) '测试时可以用
End Function

参考资料：http://hi.baidu.com/mizuda