输入问题?

JavaK 2006-08-02 03:53:33
Sub SendNotesMail(Subject As String, Attachment, Recipient As String, BodyText As String, SaveIt)
'Set up the objects required for Automation into lotus notes
Dim Maildb 'The mail database
Dim UserName 'The current users notes name
Dim MailDbName 'THe current users notes mail database name
Dim MailDoc 'The mail document itself
Dim AttachME 'The attachment richtextfile object
Dim Session 'The notes session
Dim EmbedObj 'The embedded object (Attachment)

'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string

UserName = Session.UserName
MailDbName = Left(UserName, 1) & Right(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
'Set Maildb = Session.GETDATABASE("", "mail.box")

If Maildb.ISOPEN = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If

'Set up the new mail document
Set MailDoc = Maildb.createdocument
MailDoc.form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt

'Set up the embedded object and attachment and attach it
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
'MailDoc.CREATERICHTEXTITEM ("Attachment")
End If

'Send the document
MailDoc.Send 0, Recipient

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub

Sub main()
Call SendNotesMail("this is a test subject", "C:\test.jpg", "test user2", "My Message", True)
End Sub

关于这段代码,我将CreateObject 改为先引用Object (Lotus Domino Object-domobj.tlb) 然后用,Dim Session As New Domino.NotesSession
(程序出错)就有一些方法用不了,请问是什么原因,还有别一个Object (Lotus Notes Automation Class-Notes32.tlb)这个和前一个的方法都很多相同,有什么区别?
我在网上也找了一些资料都没有说有过我现在的这种情况。还有一点我怎么样可以不需要安装Lotus Domino我想把NotesSession (发邮件功能)
这个Class独立打包出来供C#调用,网上哪里是否有下载。我以前也没有接触过 Lotus Domino 请高手帮忙啊!给100分.
...全文
376 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
3000sunqin 2006-08-07
  • 打赏
  • 举报
回复
CSDN又没有给我发钱,我是说你骂CSDN可以,你别骂CSDN中的用户,你明白吗。要说分我比你多的多了,我也当过ITPub的斑竹,象你这样的人我都要删贴,最讨厌不尊重别人的人,辱人者人恒辱之。
JavaK 2006-08-07
  • 打赏
  • 举报
回复
你们不会就不要在这里说,你们就会回答一些刚入门的人的题目,你以为我会给分给你们吗?别说我的等级差,我是很少去回答刚入门的人的题目的。Knight94(愚翁)虽然没有回答到我的题目,但我还是全给他分了。哪像你们,你们就不能平心而论说一下CSDN的不方便性吗?你就不觉得CSDN做的很多不够好吗?
JavaK 2006-08-07
  • 打赏
  • 举报
回复
看看你们这帮人,一说你们就诚不住气了(说明你们就是那帮人)。垃圾!
3000sunqin 2006-08-06
  • 打赏
  • 举报
回复
建议楼主说话注意点,帮你答复的人还真图你那几个破分啊。你看你那个等级,说明你在这个板块没帮助别人多少吗。你还好意思说别人。你要是英文牛,你就去看英文网站,别在这儿NB,人品差还不好好捂住,一个劲的臭显
zxkid 2006-08-06
  • 打赏
  • 举报
回复
楼主是个牛人 不过牛在脾气上了
JavaK 2006-08-06
  • 打赏
  • 举报
回复
可以直接引用Domoobj.tbl"Lotus Domino Object"可以改写成.Net的,我试过了,是行的,网上也有。怎么结帖啊?我可不想白丢我的分啊。这个问题没有答得了!我觉得CSDN的用户界面(操作方便性)很差。所以我很少上,而且我以前发的贴也莫名的删了。做为中国的专业技术网怎么搞得这么烂?!
JavaK 2006-08-06
  • 打赏
  • 举报
回复
楼上的谢了,我看过很多便了,都没有讲到点上。其实CreateObject("Notes.NotesSession")没不是Domoobj.tbl,也不是Notes32.tbl,它是一个Exe,只是我以前都没有看过用CreateObject创建Exe的程序,没留意,后面到注册表找了一下才知道。其实在Microsoft Window下引用Domoobj.tbl是行的,只是我想把这个Domoobj类型库包含的所有组件都拿出来打成一个独立的包,可以不安装Lotus Domino 客户端也能实现用这个发邮件的功能。
Knight94 2006-08-05
  • 打赏
  • 举报
回复
希望如下两篇文章对你有用
http://www.codeproject.com/vbscript/SendMailLotusNotes.asp
http://www.codeproject.com/books/UpgradLotusNotesDomino7.asp

手头没有环境,无法改写成.net版本。
JavaK 2006-08-02
  • 打赏
  • 举报
回复
差不多,jmail我知道,还有很多都可以,只是我有我的要求:mailer的通讯协议不同一般用的不是smpt,pop。而且还有很多原因,所以一定要用NotesSesstion啊!妈的CSDN中哪来的高手啊?还什么专栏,都是垃圾连这一招都没有人敢出来接贴了。我手都凉了。唉...以后不来了,还是上外国的网站好点。
tcx1986 2006-08-02
  • 打赏
  • 举报
回复
做mail吗?用jmail挺方便呀
JavaK 2006-08-02
  • 打赏
  • 举报
回复
我的Email是:AJianYbb@gmail.com, MSN: AJianYbb@hotmail.com

111,098

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 C#
社区管理员
  • C#
  • AIGC Browser
  • by_封爱
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

让您成为最强悍的C#开发者

试试用AI创作助手写篇文章吧