请教：loadhigh 如何设置“邮件”

hyq125

斑竹你好！

我看了你在本栏上的作品后，按要求安装了office 2000，也引用了 outlook 9.0 ，但是运行你的几个发送邮件的代码时都出问题，提示：”设置控制面板的邮件“，我进去后也做了些设置，但还是通不过。我以前用outlook exp 是设置过 pop3 和smtp 等，但 ms outlook 的设置跟 oe 有点区别，不知如何设置？能否就此问题详细讲解一下？

我用你的代码时，邮箱地址该为我自己的，经检查没有收到。刚开始，我对 ”邮件“项没做任何设置就运行你的代码，但也没什么提示， ”邮件“ 项是否可以不设置就可发信？？？

所以，你给出的好多代码，我都没有看到结果！！！希望就如何用VBA代码收发邮件的初始工作（需什么环境、做那些设置等）讲解一下！

loadhigh

hyq125:你好！

　outlook2000有３种工作模式配置．不知道你是否配置了支持internet邮件的工作模式．关于如何设置信箱，请具体参阅如下链接　

http://club.excelhome.net/dispbbs.asp? BoardID=22&ID=16972

也可以在本版中查找本人发表的主题为"如何设置email信箱？"帖子来设置outlook.

个人认为调用outlook生成邮件的程序处理的实质就是调用outlook的createitem方法生成mailitem,最后调用mailitem的send方法将邮件发送出去．

如下代码可以不去引用具体的outlook版本，就可以运行．

　　sub main()

dim olapp,myitem as object

set olapp = createobject("outlook.application")

set myitem = olapp.createitem(olmailitem)

with myitem

.to = "loadhigh@21cn.com " '邮件收件人

　　　 .subject ="测试" '邮件主题

.body="测试" '邮件正文

.send '发送，运行后发件箱就有一封待发邮件

　　　end with

set myitem = nothing '关闭outlook和mailitem对象

set olapp = nothing

end sub

[此贴子已经被作者于2004-8-28 14:31:15编辑过]