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 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
VB code:
Private Sub Command4_Click()
Dim TempFile As Long
Dim LoadBytes() As Byte
Dim txtPath As String
TempFile = FreeFile
txtPath = c:
Open txtPath \ domain.txt For Binary ......
