Private Sub Form_Load()
Dim JMail As New JMail.Message
Dim i As Long, j As Long
Dim strHtml As String
JMail.Charset = "gb2312"
'来自
JMail.From = "purana@126.com"
JMail.FromName = "purana"
'主题
JMail.Subject = "test"
'验证用户名
JMail.MailServerUserName = "purana@126.com"
'验证密码
JMail.MailServerPassWord = "xxxxxx"
JMail.Priority = 3
'JMail.HTMLBody = "<html><head><body BORDER=1><table><tr><td>ddd</td><tr></table></body></head></html>"
Open "d:\backup.sql" For Input As #1
strHtml = Input$(LOF(1), 1)
Close
JMail.Body = strHtml
'发送到
JMail.AddRecipient ("purana@126.com")
'服务器主机
JMail.Send ("smtp.126.com")
JMail.Close
Set JMail = Nothing
End Sub
.....................................................................................................
上面是斑竹写的一个 源码,请问 斑竹 'JMail.HTMLBody = "<html><head><body BORDER=1><table><tr><td>ddd</td><tr></table></body></head></html>"
这个 句子怎么理解的? 另外 JMail 这个组建 可以提供吗?我没找到列~~ 谢谢~~
...................................................................................................
另外 ,还请教 如何把BMP格式的图片转换成体积小一点 格式的图片?袄......... 控件可以,API函数 也可以~~ 在网上找了半天 有人 提示用 GetEncoderClsid 这个 API函数来实现,但是我的的API手泽上面没有~!能否提示一下 这个函数的用法?
....................................................................................
昨天 从BAIDU,找到贵站,终于灌水 达到10片文章了,可以在这里和大家一起学习! 所以多问几个问题~ 抓住机会了~~ 谢谢~
VB 发信 源码