当前位置:首页 » 自动清洗 » vb怎样自动发送邮件
扩展阅读
樱桃发育时期怎样管理 2024-12-25 10:03:23
胶装多少钱 2024-12-25 10:01:28
衣服怎样洗留香久 2024-12-25 09:56:25

vb怎样自动发送邮件

发布时间: 2022-01-23 16:36:13

⑴ 在里VB里自动发送邮件

VB里发送邮件的代码
http://www.zdnet.com.cn/developer/code/story/0,3800066897,39190423,00.htm

⑵ VB怎么实现发送邮件

可以用winsock发邮件,具体代码有点多,就不打了。
可以把控件绑在资源文件里再释放。
不过那样程序体积就太大了。不适合做木马。

⑶ 如何用VB实现直接发送邮件

用VB编写收发电子邮件程序
作者: 出处:Yesky
发送和接收电子邮件,对于某些执行特殊任务的应用程序而言,是一个十分有用的功能。例如,一个监视网络服务器资源使用情况的工具软件,如果它具有自动发送电子邮件的功能,那么当它发现服务器的资源使用已经接近事先设定的临界状态时,便可以向系统管理员发送一封告警的电子邮件,从而使系统管理员能够及时地采取措施,以避免重大事故的出现。在Visual Basic中,应用程序可以通过调用微软公司的MAPI(Messaging Application Programming Interface,消息应用程序编程接口),实现收发电子邮件的功能。笔者将在本文中结合简单实例,向大家介绍在VB程序中实现电子邮件收发功能的编程方法。

编制具有收发电子邮件功能的VB程序,必须使用Visual Basic 4.0以上的版本,因为只有4.0以上的Visual Basic才带有两个实现电子邮件收发功能的核心控件:MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话,MAPI消息控件用于创建和收发邮件消息。此外,程序必须运行在采用遵从MAPI的消息系统(如:Microsoft Exchange、Microsoft Mail、Outlook等)的环境中。

在开始编程之前,首先需要将MAPI控件加入VB工具箱。具体操作是:在VB菜单栏中选择Tools菜单项中的Custom Controls命令,调出"Custom Controls"对话框,在其中的"Available Controls"列表框中选中"Microsoft MAPI Controls"表项,然后按"OK"命令按钮退出该对话框。此后,工具箱中将新添两个图标,这就是MAPI会话控件和MAPI消息控件的图标。

下面,笔者将以两个简单的VB程序为例,分别介绍发送邮件和接收邮件的程序编制方法。

邮件发送程序

邮件发送程序的基本处理过程是:根据用户输入信息组成邮件,然后使用MAPI消息控件的Send方法将邮件发出。编程步骤如下:

1、新建一个VB项目。

2、将缺省窗体Form1的Caption属性设置为"发送邮件"。

3、将MAPI控件加入VB工具框。

4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。

5、在Form1中加入三个文本框控件,将它们的Name属性分别设置为txtSendTo、txtSubject、txtMessage,并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。

6、在Form1中加入三个标签控件,将它们的Caption属性分别设置为"收件人"、"主题"和"内容",并将它们放在合适的位置用以标注相应的文本框控件。

7、在Form1中加入一个命令按钮控件,将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。

8、将下列代码加入Form1的Form_Load事件:

Private Sub Form_Load()
MAPISession1.SignOn
End Sub

9、将下列代码加入Form1的Form_Unload事件:

Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
以上是一部分, 后面的参见参考资料

⑷ vb自动后台发送邮件

On Error Goto ErrInfo Dim Email As Object Const NameSpace = " http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "[email protected]" '你的邮箱地址 Email.To = "[email protected]" '要发往的地址 Email.Subject = "你好这是测试" '主题 Email.Textbody = "这只是一个测试" '正文 Email.AddAttachment "E:\Test.txt" '附件,可以添加多个 Email.AddAttachment "D:\Test.EXE" With Email.Configuration.Fields .Item(NameSpace & "sensing") = 2 .Item(NameSpace & "smtpserver") = "smtp.126.com" '发送邮件服务器 .Item(NameSpace & "smtpserverport") = 25 .Item(NameSpace & "smtpauthenticate") = 1 .Item(NameSpace & "sensername") = "test" '邮箱用户名 .Item(NameSpace & "sendpassword") = "******" '密码 .Update End With Email.Send MsgBox "发送成功" Exit Sub ErrInfo: Msgbox "发送失败!"

⑸ 如何用VB编写自动检测邮件发送软件

抓包嘛。
木马发送信件的时候,密码本来就是透明的。邮箱的密码一般都没有采取什么加密措施。
你去下载一个抓包的。

⑹ 谁知道用VB如何自动发送一封自定义的邮件到指定的邮箱

使用微软的 MAPI 控件,具体使用方法见参考资料

⑺ VB如何自动发邮件到指定的邮箱

发邮件啊,那个得有个smtp服务器跟你响应啊。不然我给你个发邮件的代码?vb的代码看看吧~~

这个是微软的实例,你把这个图片下载下来,修改成rar,然后就可以解压了。

⑻ 用VB编写一个全自动的电子邮件的发送程序。

用个JMail组件就行了,下一个看看吧!给你个ASP的示例,VB跟ASP差不了多少,调用方法之类都还行,拿过去改改就可以用了!
下载地址:http://down.chinaz.com/S/10368.asp
相信你也找过一些这类的代码,可能你用过的方法中就有可以用的,变通一下方法就好了!提供方法给你,仅供参考!

VB还可以用MAPI进行,核心控件:MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话,MAPI消息控件用于创建和收发邮件消息。此外,程序必须运行在采用遵从MAPI的消息系统(如:Microsoft Exchange、Microsoft Mail、Outlook等)的环境中。

编程需要将MAPI控件加入VB工具箱。全名是:"Microsoft MAPI Controls"。加入后,工具箱中将添上MAPI会话控件和MAPI消息控件的图标。

下面将以简单的VB程序为例,介绍发送邮件程序编制方法。
邮件发送程序的基本处理过程是:根据用户输入信息组成邮件,然后使用MAPI消息控件的Send方法将邮件发出。编程步骤如下:

1、新建一个VB项目。
2、将缺省窗体Form1的Caption属性设置为"发送邮件"。
3、将MAPI控件加入VB工具框。
4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。
5、在Form1中加入三个文本框控件,将它们的Name属性分别设置为txtSendTo、txtSubject、txtMessage,并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。
6、在Form1中加入三个标签控件,将它们的Caption属性分别设置为"收件人"、"主题"和"内容",并将它们放在合适的位置用以标注相应的文本框控件。
7、在Form1中加入一个命令按钮控件,将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。
8、将下列代码加入Form1的Form_Load事件:
Private Sub Form_Load()
MAPISession1.SignOn
End Sub
9、将下列代码加入Form1的Form_Unload事件:
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
10、将下列代码加入cmdSend的Click事件:
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

在填写完邮件的收件人、主题和内容后,按"发送"命令按钮,如果没有出现运行时错误提示,那么就表明邮件已经成功地发往目的地了,否则,请检查填写的收件人地址是否准确无误以及系统中运行的消息系统工作是否正常

⑼ 如何编写自动发邮件的程序。用VB编写,开机自动后台运行,并发送邮件到指定邮箱。

现在很难了,因为邮局都设置了验证。你这分估计是分不出去了。

⑽ 用VB怎样实现发送邮件功能

用这个方法可以不通过OutLook 直接用 vb 发送邮件: \'Wait 为延时你可用API或自己做!不延时时发送可能不成功的! \'strFrom :谁发的 \'strTo :发给谁