Help:发送有附件的电子邮件时碰到的问题

lemon0809 · 发表于 2006-2-20 12:14

在Excel或Word中用VBA编程：发送有附件的电子邮件时，先后会出现如下的Outlook对话框（见附件），我必须手动选择'Yes'完成。 1. A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? 有程序试图使用你储存在Outlook中的电子邮件地址，是否允许？ 2. A program is trying to automatically send e-mail on your behalf. Do you want to allow this? 有程序试图以你的名义发送电子邮件，是否允许？如何屏蔽以上的提示，让Outlook允许自动发送带附件的电子邮件。 application.alert没用，搜索了一下旧帖子，好像还没有解决方案。MAPI 控件，看不懂。

P1XEsGuT.rar (8.94 KB, 下载次数: 36)

[此贴子已经被作者于2006-2-20 12:33:07编辑过]

huyongapple · 发表于 2006-2-20 12:54

http://club.excelhome.net/viewthread.php?tid=150743&replyID=&skin=0

lemon0809 · 发表于 2006-2-20 15:10

谢了,这就去试。

lemon0809 · 发表于 2006-2-20 19:33

按第一种方法，运行结果只会出现发送电子邮件的界面，没有自动发送出去。分步执行时，Display语句后跳出Outlook发送电子邮件的界面，再运行SendKeys "%s"时，Outlook已不再是active的状态，所以没有任何反应。
按第二种方法，运行可以发送电子邮件。但如果要求循环发送数个邮件时，出现了类似死循环的现象或是执行两个循环后AppActivate itmNewMail语句出错。

[em14]HELP!!

lemon0809 · 发表于 2006-2-21 19:55

有人能帮忙解答吗？

wclaw · 发表于 2006-2-21 20:06

Your code, please

lemon0809 · 发表于 2006-3-1 15:30

code可参见提供的连结huyongapple: http://club.excelhome.net/viewthread.php?tid=150743&replyID=&skin=0

我的文件: solution1(发送一个邮件) & solution2(发送多个邮件)

KUokwPBa.rar (12.69 KB, 下载次数: 48)

[此贴子已经被作者于2006-3-1 15:31:36编辑过]

lemon0809 · 发表于 2006-3-1 15:32

Help!

huyongapple · 发表于 2006-3-1 21:22

发送多个邮件的代码：

Sub main()
For i = 1 To 3
Call SendMail
Next i
End Sub

Sub SendMail()

Dim objOL As Object
Dim itmNewMail As Object

Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)

f = "C:\temp\test.txt"

With itmNewMail
.Subject = "Reminder"
.Body = " Please see the attachment"
.To = "your.email@address.com"
.Attachments.Add f
End With
On Error GoTo continue
SendEmail:
itmNewMail.display
DoEvents
DoEvents
DoEvents
SendKeys "%s", Wait:=True
DoEvents
itmNewMail.display
GoTo SendEmail
continue:
On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing
End Sub
原代码是利用错误陷阱达到发送邮件的目的，但错误陷阱在一个过程中不能反复使用，需将一个过程拆分为两个过程。

lemon0809 · 发表于 2006-3-1 22:01

谢了，明儿我试一试先。[em04]

		自动登录	找回密码
密码			免费注册