将工作簿添加到 附件里，可行吗？

hyq125

本贴因涉及到EXCEL工作簿的操作,所以我在EXCEL程序开发里发帖提问,可能是问错地方了,回应很少,故我又那到这里,望各位见谅,帮助.

我想 用 “ 发送 ” 按纽 来启动 OUTLOOK EXPRESS （OUTLOOK 中的帐号已设置好），并把当前工作簿或指定的簿添加到 附件里。

我们都是用手工的方法点饥 “附件” 按纽来打开对话框，再选择文件的。

我的意思是能否通过代码将工作簿(或其他文件)自动添加到 “新邮件” 窗口的附件里？

loadhigh

你好！

向邮件内添加附件的outlook的vba代码是：

[outlook_mailitem对象].Attachments.Add [文件的路径+文件名]

hyq125

以下是引用loadhigh在2004-7-23 11:54:00的发言：

你好！

向邮件内添加附件的outlook的vba代码是：

[outlook_mailitem对象].Attachments.Add [文件的路径+文件名]

谢谢斑竹！

我看了VBA的书，说要打开 EXCEL， vb编辑器，工具—引入 micrsoft outlook 9.0 object ibrary对象库，可我的office版本是 97 的，上面只有个 5.0，不知怎么弄？

我照书写了一段代码，就是：通过BOOK1.XLS 上的“发送邮件” 按纽，将当前目录下的boo2.xls 添加到outlook的附件里，但是代码不通过，请各位指教。

Public Sub tosendmail() Dim calloutlook As Outlook.Application ‘运行时提示本句 im sentmessage As Outlook.mailitem Dim iyesorno As Integer Set calloutlook = greatobject("outlook.application") Set sentmessage = greatobject("outlook.mailitem") With sentmessage .to = hyq125 .suject = 统计表 .body = 我局本月各数据统计表。 .attachments.Add masavefilename, , , "book2.xls" .display iyesorno = MsgBox("真的要发送？", vbYesNo) If iyesorno = vbYes Then .send Else .colse (olsave) End If End With End Sub

Private Sub CommandButton1Click() ’book1上的发送邮件

Call tosendmail

End Sub

hyq125

请求斑竹，看看我的问题！！！

谢谢！

loadhigh

你好!

不是“greatobject”而是“creatobject”(创建对象)，而“suject”应该是“subject”（邮件主题），还有就是应该“close” 不是“colse”，是不是文章的排版上出了的问题。

FENGJUN

Sub Mail_Workbook_2()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim wbname As String
    Application.ScreenUpdating = False
    Set wb1 = ActiveWorkbook
    wbname = "C:/" & wb1.Name & " " & _
    Format(Now, "dd-mm-yy h-mm-ss") & ".xls"
    wb1.SaveCopyAs wbname
    Set wb2 = Workbooks.Open(wbname)
    With wb2
        .SendMail "ron@debruin.nl", _
                  "This is the Subject line"
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
    Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2004-7-25 12:11:22编辑过]

hyq125

以下是引用loadhigh在2004-7-25 10:45:00的发言：

你好!

不是“greatobject”而是“creatobject”(创建对象)，而“suject”应该是“subject”（邮件主题），还有就是应该“close” 不是“colse”，是不是文章的排版上出了的问题。

谢谢斑竹，是笔误，我一定去改！

我的问题还是 micrsoft outlook 9.0 object ibrary对象库 的原因。

[此贴子已经被作者于2004-8-19 16:23:25编辑过]

hyq125

以下是引用FENGJUN在2004-7-25 12:09:00的发言： 感谢你！

lgcmeli

程序添加工作簿到附件！！！！！！！！不错。顶起来。

plxmm

.SendMail "ron@debruin.nl", "This is the Subject line" 偶把 这里的地址改为自己的收件人地址后报错啊。为什么？