请问谁有Lotus自动发送带附件邮件的代码，急求！
每周定期通过OA给领导发送周计划，周计划文件在本地，想写好后，由Lotus自动按时附加、发送。 --------------------编程问答-------------------- 不知道这有什么必要么。 --------------------编程问答-------------------- 做定时代理，附件放不上去吧。你自己做个文档好了。把链接发给你领导。多费劲啊，用邮箱发不得了。 --------------------编程问答-------------------- 同意楼上的 --------------------编程问答-------------------- 如果你的定时代理运行在服务器上，文件在你PC上，你关机了，服务器不可能上载你的文件，即使没关机，也得设置服务器可以访问你的机器。
如果你的文件是放在服务器可以读到的地方（本地或其他服务器共享目录），或者你的定时代理运行在本地Notes客户端，可以实现你的需求，可以参考 NotesRichTextItem类的EmbedObject方法：
Dim session As New NotesSession--------------------编程问答-------------------- 楼上正解
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_OBJECT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = _
"Here's Jim's document, as an embedded object"
Call doc.Save( True, True )
我这有些另类的解法
1.搞定时任务(windows的计划任务，autoit的sleep之类的都可以)
然后用AUTOIT，加载lotus OLE object，把楼上的代码稍微改造一下即可
或者懒一点，直接用AUTOIT模拟键盘，鼠标操作
前提是,你机器上要有装notes client.并且可以正常连接server
2.创建一个存储周报的nsf,并在服务器上做复本，定时(最小可以每分钟抄送一次)抄送给服务器
然后服务器上运行一支agent定时取它的数据并sendmail即可
我是懒得打开notes client，所以用excel写了个VBA，可以自动获取服务器上的信息 --------------------编程问答-------------------- to 4楼，domino的定时代理都是运行在服务器上吧，没听说过能运行于客户机的。运行于客户机的只能是按钮的操作或者需要手动去运行一下。
楼主可以将需要上传的文件放至服务器上，然后写一个自动运行的代理，代码就用４楼的就行。 --------------------编程问答-------------------- 要是你一个人给领导发周计划，就参考下前面几位的方式；要是很多人都要通过OA发的话，在OA里建一个周计划模块最好，各自建立各自的文档（包括附件）。通过按钮触发发送给领导，也可以定代理时一起发送过去。 --------------------编程问答-------------------- to 6楼，我是说定时任务,不是说定时代理...
定时代理一定是服务器上跑的
定时任务不一样，有可能是OS调度的，也有可能是某进程定时触发的
而且我之前说过 我的办法属于 "另类的解法" --------------------编程问答-------------------- 6楼我对不起你...我刚打了点鸡血...太不淡定了..
补充：企业软件 , Lotus
