[求助]能自动发送电子邮件吗？

huyongapple

在OFFICE 2003中，想要定时发送一个工作表，却出现了上图的选择框，不选择“是”，计算机就躺倒不干活[em16]。请高手指点，先谢了。

northwolves

自动发送电子邮件应该能实现,勾上允许访问不行么?

huyongapple

在一楼图中“允许访问”处，可设置的最长时间只有十分钟[em13],若是能长一些，能设为几天也好啊。

huyongapple

回northwolves兄，勾上几分钟以后又不行了。

huyongapple

OFFICE OUTLOOK 2003中有关安全设置的地方，也看了，没有找到可以设置这项的地方。

huyongapple

真是没法，OFFICE OUTLOOK中有关的解释是：

某程序正试图访问您的“通讯簿”

某程序正试图访问通讯簿或者“联系人”。病毒可以通过向“通讯簿”中列出的人发送电子邮件副本来传播。在该程序能够继续运行以前，您必须允许或拒绝对“通讯簿”的访问。

允许访问

请执行以下操作之一或全部：

• 若要允许程序仅在本实例（例如某联系人）中进行访问，请单击“是”。
• 若要允许在不超过 10 分钟的指定时间段中进行未加保护的访问，请选择“允许访问”复选框，然后单击列表中的某个时间段。

拒绝访问

• 单击“否”。

huyongapple

唉，别的客户端邮件软件，又不能控制它。实在没法，只能换回OUTLOOK 2000了。

lotustower

Ref:

使用 Outlook 傳送郵件，避開警告訊息的方法

http://www.vba.com.tw/plog/post/1/192

huyongapple

谢lotustower指引，完全解决了我发送邮件碰上的难题，非常感谢。

[此贴子已经被作者于2006-2-17 12:29:41编辑过]

huyongapple

lotustower指引的方法，使用sendkeys方法模拟手工发送，绕开了程序发送邮件时的警告。我这呆脑袋怎么没想到哟。 此外，认真看到原代码后，根据在EXCEL中运用的特点，对其进行了精简，删除了外部引用，在EXCEL 2003及OUTLOOK 2003中通过测试： Sub SendMail() Dim objOL As Object Dim itmNewMail As Object '引用Microsoft Outlook 物件模型 Set objOL = CreateObject("Outlook.Application") Set itmNewMail = objOL.CreateItem(olMailItem) With itmNewMail .Subject = "chijanzen Mail Test" '主旨 .Body = Application.UserName & "發送郵件測試2222" '本文 .To = "12345@cccc.com" '收件者 .Attachments.Add "C:\PDOS.DEF", olByValue, 1, "4th Quarter 1996 Results Chart" .Display '啟動視窗 End With SendKeys "%s" Set objOL = Nothing Set itmNewMail = Nothing End Sub

[此贴子已经被作者于2006-2-17 12:30:29编辑过]