[求助]发现很多的邮件发送只能发送全部工作簿，而不能发送当前选中的工作表

secowu · 发表于 2005-9-9 15:34

这是那个作者的WEB

http://www.rondebruin.nl/mail/add-in.htm

有兴的可以去看下,交流下.

其实很不错的地方

secowu · 发表于 2005-9-9 15:56

下面给个链接给你们:

试试你们在机子上的结果,非常感谢提供试后的信息,以确定是不是我的机子确实有问题

算了,我还是弄上来,你们直接下下:

secowu · 发表于 2005-9-10 08:18

俺测试的环境是:XP SP2+OFFICE 2003 SP1

不知不别的楼主会出现这种情况吗?

我都重装N遍了,郁闷中.........

nowarmy · 发表于 2005-9-10 09:40

请问高手们：发送时，检查病毒对话框提示能否不让出现？

发送邮件时Microsoft Office Outlook 2003出现提示，能否不让显示？

多谢！！！

secowu · 发表于 2005-9-10 15:46

可以的，你仔细看看那个链接里的

那里有代码的

Long_III · 发表于 2005-9-8 11:53

晕，居然是自定义函数，还是给你我这里成功的附件吧

C3eTiwZi.rar (7.17 KB, 下载次数: 61)

我觉得这段代码很经典，短小而有效！

Long_III · 发表于 2005-9-8 11:42

13的代码我这里也不行，说SheetToHTML没定义

用我给你的代码，你说运行不了，它会产生一个新的工作簿吗？

Long_III · 发表于 2005-9-8 09:34

在我这里是可以的，win2000+excel2003，outlook2003设置齐全

Long_III · 发表于 2005-9-8 09:24

Sub Mail_ActiveSheet() Dim strDate As String ActiveSheet.Copy '当前工作表复制出去 strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") '根据时间给这个新建工作簿另存 ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name & " " & strDate & ".xls" ActiveWorkbook.SendMail "hjsong_8116@163.com", "Subject_line" '发送这个另存的，邮箱和标题 ActiveWorkbook.ChangeFileAccess xlReadOnly '更改这个新建工作簿为可读 Kill ActiveWorkbook.FullName '删除这个新建工作簿 ActiveWorkbook.Close False '不保存就关闭它，这样新建的工作簿会被直接删除哦不会留下痕迹 End Sub

coolraywang · 发表于 2011-11-10 22:11

7楼的附件中的Excel VBA程序没提供密码，看不到代码，可惜。

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