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()方法的.但是每次发送都会弹出"有一个程序正试图以您的名义自动发送电子邮件.是否允�
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
帮我改改 我总觉得有问题
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 ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
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 ......
