如何用VB写自动发送

来源：百度知道 编辑：UC知道 时间：2024/06/08 05:22:49
我想用VB写一个发送器是的东西。比如我给定义一个S他的幅值数是text里面输入的数字，怎么让S这个的值2发送到我的邮箱里面。
谢谢大家都能帮助我。我是新手，初学者，希望把步骤和代码写一下，和说的详细一些，谢谢大家。

建议用JMail控件来做，可以到网上下载该控件，一下给出一个简单的示范，具体你自己改：

Option Explicit

Private Sub cmdCommand1_Click()
SendMail "测试", "我爱你", App.Path & "\jmail.dll"
MsgBox "OK"

End Sub

Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)

Dim Jmail
Set Jmail = CreateObject("jmail.Message")
'If sFileName <> "" Then Jmail.AddAttachment sFileName '附件

Jmail.Charset = "gb2312"
Jmail.Silent = False
Jmail.Priority = 1 '邮件状态,1-5 1为最高
Jmail.MailServerUserName = "账号" 'Email帐号
Jmail.MailServerPassWord = "******" 'Email密码

Jmail.FromName = "邮件" '发信人姓名
Jmail.From = "账号@163.com" '发邮件地址地址

Jmail.Subject = sSubject '主题
Jmail.AddRecipient "账号@1