***如何能实现这个问题?请各老师帮忙!

york888 · 发表于 2005-5-4 08:09

RwFHUjl0.rar (20.2 KB, 下载次数: 20)

守柔 · 发表于 2005-5-4 09:20

你好，短消息也收到。

这个问题，或许你会有所遗憾，因为据我所知，WORD、EXCEL的邮件发送是通过MS OUTLOOK进行的，无法直接送达，并且在运行过程中，可能会有对话框弹出，需要用户确认邮件的发送。

你是否需要继续？

york888 · 发表于 2005-5-4 11:11

以下是引用守柔在2005-5-4 9:20:00的发言：
你好，短消息也收到。

这个问题，或许你会有所遗憾，因为据我所知，WORD、EXCEL的邮件发送是通过MS OUTLOOK进行的，无法直接送达，并且在运行过程中，可能会有对话框弹出，需要用户确认邮件的发送。

你是否需要继续？

真心感谢! 版主!请您给一实例可以吗? 谢谢!

守柔 · 发表于 2005-5-4 16:24

你先运行一下这个宏：

Option Explicit '运行此代码前请在VBE/工具/引用中引用对于Microsoft Outlook 10.0 Object Library的引用（版本而异） Sub MailerTest() Dim objol As New Outlook.Application Dim objmail As MailItem Set objmail = objol.createitem(olmailitem) With objmail .To = "shourou@excelhome.net" ' ' .cc = "SomebodyElse@hotmail.com" .Subject = "TEST EMAIL" .Body = "THIS IS THE BODY" .NoAging = True .Attachments.Add (ThisDocument.FullName) .Display End With Set objmail = Nothing Set objol = Nothing SendKeys "%{s}", True End Sub '----------------------请使用ALT+F8选择活动文档中的此宏命令，不要在VBE中运行。

york888 · 发表于 2005-5-4 17:35

守柔:您好!能否给一实例!

守柔 · 发表于 2005-5-4 17:45

以下是引用york888在2005-5-4 17:35:00的发言： 守柔:您好!能否给一实例!

vjDMN9DM.rar (11.07 KB, 下载次数: 10)

你试一下,应该会将当前文档的以附件形式发送到OUTLOOK的发件箱中,如果你的OUTLOOK设置全部正确的话,隔一定时间将会被发送.

另,请用ALT+F11打开VBE(VB编辑器),在工具/引用中查看一下,引用了OUTLOOK

此代码应该不算最终代码,你用后再交流吧.

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