| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1971 人关注过本帖
标题:VB邮箱发送程序
只看楼主 加入收藏
vip99
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-8-31
收藏
 问题点数:0 回复次数:4 
VB邮箱发送程序
请高手说明下,  怎么制作或者提供个程序源码 有包含VB邮箱发送程序
(教程也OK)
谢谢!
搜索更多相关主题的帖子: 教程 制作 
2008-08-31 08:12
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
忘了,选修i学过,VBsCRIPT  可以做到,你学下动态网页设计这部分的东西

偶是菜鸟鸟偶惧WHO?!!!!
2008-08-31 10:15
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
使用JMail组件比较方便,当然你高兴的话愿意用WinSock也可以。

JMail组件运行在应用层,WinSock或者WinsockAPI工作在传输层,看你要用哪个。(参考TCP/IP协议)
2008-08-31 10:29
klj123
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2008-6-22
收藏
得分:0 
以下是完整代码,不须控件,本人测试过,正常发送。
'在form上放Command1,Text1.Text,Text2.Tex
Private Sub Command1_Click()

'By Jerry Ye 'http://hi.baidu.com/leaffar/blog/item/86c48e45116daf3a869473d6.html
On Error Resume Next
f = ("123456@)'发送邮箱
smtp = ("smtp.)'发送邮箱服务器
u = ("123456")'发送邮箱用户名
p = ("789")'发送邮箱密码
t = ("22333@)'接收邮箱
m = Text1.Text'邮件标题
msg = Text2.Tex't邮件内容

'将上面的输入框变量全部直接换成默认值就可以实现后台发送邮件,无提示!
NameSpace = "http://schemas.
Set Email = CreateObject("CDO.Message")
Email.From = f
Email.To = t
Email.Subject = m
Email.Textbody = msg
Email.AddAttachment j
With Email.Configuration.Fields
.Item(NameSpace & "sendusing") = 2
.Item(NameSpace & "smtpserver") = smtp
.Item(NameSpace & "smtpserverport") = 25
.Item(NameSpace & "smtpauthenticate") = 1
.Item(NameSpace & "sendusername") = u
.Item(NameSpace & "sendpassword") = p
.Update
End With
Email.Send
End Sub

[[it] 本帖最后由 klj123 于 2008-9-5 15:43 编辑 [/it]]
2008-09-05 15:40
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
Private Sub Form_Load()
MAPISession1.SignOn
End Sub

Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub

Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "郵件發送完畢!", , "發送郵件"
End Sub

需加載MAPISession1,MAPIMessages1
三個標簽,三個文本,一個按鈕

烈焰照耀世界,斌凍凍千萬裏
2008-09-05 16:01
快速回复:VB邮箱发送程序
数据加载中...
 
   



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

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