| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1571 人关注过本帖
标题:请问?VB如何把文本发送到邮件上
只看楼主 加入收藏
sd287054
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-27
收藏
 问题点数:0 回复次数:18 
请问?VB如何把文本发送到邮件上
各位哥哥姐姐好~!我是小菜一名,不知道如果在VB里利用代码把文本文档发送到邮箱里,我的邮箱是163的
还请各位哥哥姐姐讲解详细一小点.
搜索更多相关主题的帖子: 文本 邮件 
2007-09-29 15:14
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

使用JMail组件。

[CODE]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[/CODE]



我的msn: myfend@
2007-09-29 15:19
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
password xxxxxx ???

Repeat  Life=Study;Until (death);
2007-09-29 15:22
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

不是xxxx
你想盗用我的邮箱?


我的msn: myfend@
2007-09-29 15:26
sd287054
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-27
收藏
得分:0 
.........
2007-09-29 15:27
sd287054
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-27
收藏
得分:0 
就是百度上的代码很看懂才来问的了
2007-09-29 15:28
sd287054
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-27
收藏
得分:0 
就是百度上的代码看不懂才来问的拉,
2007-09-29 15:29
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
这代码不是百度的代码。是我刚写的代码。

我的msn: myfend@
2007-09-29 15:34
sd287054
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-27
收藏
得分:0 
哦,那谢谢,哥哥了,刚没注意看,以为是贴百度上的,
2007-09-29 15:36
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
以下是引用purana在2007-9-29 15:26:56的发言:

不是xxxx
你想盗用我的邮箱?

害怕了吧


Repeat  Life=Study;Until (death);
2007-09-29 15:37
快速回复:请问?VB如何把文本发送到邮件上
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031653 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved