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()方法的.但是每次发送都会弹出"有一个程序正试图以您的名义自动发送电子邮件.是否允�
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
