关于第二期竞赛题答案的讨论---第10题。

loadhigh

我公布的代码都是 outlook 2000里编辑和执行的。outlook xp由于出于防止邮件型病毒的考虑，对自动生成的邮件发送进行监控，这是一个顾此失彼的策略。

tof

我修改了你的代码（如下），在你的ACCESS文件和OUTLOOK中都可以执行，但是新建立一个ACCESS文件将代码拷入执行后提示： “Dim olkapp As Outlook.Application”编译错误：用户定义类型未定义，不懂！指教 我用的是OFFICE2000. Sub SendMail() Dim olkapp As Outlook.Application Dim newmail As MailItem Set olkapp = CreateObject("outlook.application") para = para + "aas" '信件内容 Set newmail = olkapp.CreateItem(olMailItem) With newmail .To = "toffof@vipicbc.com" '接收邮件的信箱 .Subject = "aas" '信件标题 .Body = para .Attachments.Add "F:\qtsj\2\360200090900606663320031225.txt" .Send '发送 End With para = "" End Sub

[此贴子已经被作者于2003-12-26 17:10:58编辑过]

winak

“Dim olkapp As Outlook.Application”编译错误：用户定义类型未定义，不懂！指教 我用的是OFFICE2000. 老问题了，你没有引用 Oulook app

loadhigh

我把代码简化了,连对象都不需要定义,vb本身就支持这样,但不推荐这样做: Sub Send_Mail() Set olkapp = CreateObject("outlook.application") '定义一个outlook对象 Set newmail = olkapp.CreateItem(olMailItem) '在outlook对象基础上建立一个email的对象 With newmail .to = "loadhigh@21cn.com" '收件人,多人可以用";"分割 .subject = "aaa" '邮件主题 .body ="" '邮件正文 .cc="" '抄送 .send '发送 End With End Sub

tof

以下是引用winak在2003-12-26 20:36:00的发言： “Dim olkapp As Outlook.Application”编译错误：用户定义类型未定义，不懂！指教 我用的是OFFICE2000. 老问题了，你没有引用 Oulook app

你指的没有引用OULOOK APP,是否是VBE编辑中的工具－引用？ 不过我没有看到相关的选项，呵呵！是否有相关的链接？ 的确是。呵呵！还是要静下心来一个一个看。谢了。

[此贴子已经被作者于2003-12-27 10:01:46编辑过]

loadhigh

即可以应用对象,也可以通过创建对象,来做这个程序. 我提供的简化代码就没有引用对象. 凡是 dim 对象变量 as new 对象 '这就需要引用对象 使用CreateObject就不需要引用对象.

风魔飘香

但却失去了对Outlook事件的支持。

lgcmeli

经典，学习．

catty_zhou

Access 宏中有发送各种格式的东东,只是不知如何自动发送?

Arpro.z

thank you very much