如何用vb发邮件

显示全部楼层 · 2013-8-11 11:34:15

'用系统内置的CDO组建发送邮件Dim NameS As StringDim Email As ObjectNameS = " http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "[email protected]" ' //你自己的油箱号码Email.To = "[email protected]" ' // 你自己的油箱号码（可以和上面相同）Email.Subject = "" ' //相当于邮件里的标题Email.Textbody = a & b '//相当于邮件里的内容Email...

千问 · 2013-8-11 11:34:15

我用的是jmail组件发邮件的，给你个过程代码：Sub SendMail()
Dim jmail As Object
Set jmail = CreateObject("JMAIL.Message") ';建立发送邮件的对象
jmail.Silent = True ''一般不用改
jmail.Charset = "gb...

千问 · 2013-8-11 11:34:15

'收邮件'有些服务器不支持jmail收发邮件，但163信箱肯定可以，自己测试一下Option ExplicitPrivate Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal...