vb自动发送邮件 - VB / 基础类
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A>B Then
Dim olapp As Object
Dim oitem As Object
Set olapp = CreateObject("outlook.Application")
Set oitem = olapp.CreateItem(0)
With oitem
.Display
.Subject = "TEST" '主题
.To = "xx@163.com" '收件人
.Body = "test" '邮件内容
DoEvents
SendKeys "%s", Wait:=True '模拟键盘确认功能
End With
Set olapp = Nothing
Set oitem = Nothing
TDBG_Dept.MoveNext
Else
Exit Sub
End If
Loop
End Sub
我记得我以前有这个例子的 不知道在哪去了
或者有什么其它方法可以实现自动循环发送邮件吗?
帮你顶
将olapp对象在窗体显示的属性设置为False
直接用.Send() 方法试试
赞个
我最先就是直接用.Send()方法的.但是每次发送都会弹出"有一个程序正试图以您的名义自动发送电子邮件.是否允�
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
