What is the Outlook object model and how do I use it? The Outlook Object Model is a set of programmatic interfaces that allow to you automate certain features of Outlook using programming code. To use the Outlook object model, you must first set a reference to the Outlook 10.0 Object Library. If you are using the VBA editor that is built-in with Outlook, this reference is already set for you. Once you have set a reference to the Outlook object model, you can then write programming code to create an instance of Outlook and begin working with common Outlook components such as folders, e-mail messages, and contacts. The following example demonstrates the use of VBA code to open an instance of Outlook and display the number of messages currently in the Inbox:Private Sub CountInboxMessages() 'This procedure displays a message box that indicates the number of 'messages currently in the Inbox. Dim objOutlook As Outlook.Application Dim objNamespace As Outlook.NameSpace Dim objMAPIFolder As Outlook.MAPIFolder Set objOutlook = New Outlook.Application Set objNamespace = objOutlook.GetNamespace(Type:="MAPI") Set objMAPIFolder = objNamespace.GetDefaultFolder(olFolderInbox) MsgBox "You have " & objMAPIFolder.Items.Count & _ " messages in your Inbox.", vbInformation Set objMAPIFolder = Nothing Set objNamespace = Nothing Set objOutlook = NothingEnd Sub
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=big5">
<link rel=stylesheet type="text/css" href="css\ACM.css">
</head>
<body scroll="no" oncontextmenu="return false">
<br>
<font size='5' color='#df791f' face='arial black'><b><I>INBOX</I></b></font>
<br>
<hr>
<div class="divtree" style='width:100%;top:10%;height:75%'>
<table border='0' cellpadding='0' cellspacing='0' style='width:100%;'>
<tr>
<td nowrap valign="bottom">
<span class="topBarSpan">
<span id="spanMessages4_WPQ_" onclick="MyMessages_WPQ_.folder='Sent Items';MyMessages_WPQ_.view='Messages with AutoPreview'; changeMessagesTab_WPQ_(this);"><font face="arial" color="#df791f"><b><I>Sent Items</I></b></font></span>
</span>
</td>
<td width="8%" align="left" valign="bottom">
<span id="NewItem_WPQ_" style="cursor:hand" onClick="new_Message_WPQ_()">
<font face="arial" color="#233d96"><b>New</b></font>
</span>
</td>
<td width="8%" align="left" valign="bottom">
<span id="DelItem_WPQ_" style="cursor:hand" onClick="delete_Message_WPQ_()">
<font face="arial" color="#233d96"><b>Delete</b></font>
</span>
</td>
</tr>
</table><br>
<object ID="MyMessages_WPQ_" CLASSID="CLSID:0006F063-0000-0000-C000-000000000046" style="width:100%;height:100%" codebase="outlook/outlctlx.CAB#ver=9,0,2814">
<param NAME="View" VALUE>
<param NAME="Folder" VALUE="inbox">
<param NAME="Namespace" VALUE="MAPI">
<param NAME="Restriction" VALUE="">
<param NAME="DeferUpdate" VALUE="0">
</object>
</body><script language="javascript">
function changeMessagesTab_WPQ_(currentdiv)
{spanMessages4_WPQ_.style.fontWeight="normal"
currentdiv.style.fontWeight="bold"
}
</script>
<script language = "vbscript">
sub new_Message_WPQ_()
MyMessages_WPQ_.NewDefaultItem
end sub
sub delete_Message_WPQ_()
MyMessages_WPQ_.Delete
end sub
</script>
</div>
</body>
</html>
2.联系人
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=big5">
<link rel=stylesheet type="text/css" href="css\ACM.css">
<title><%=langcontactor%></title>
</head>
<body scroll="no" oncontextmenu="return false">
<br>
<font size='5' color='#df791f' face='arial black'><b><I>Contacts</I></b></font>
<br>
<hr>
<div class="divtree" style="width:100%;top:10%;height:90%">
<object ID="MyMessages_WPQ_" CLASSID="CLSID:0006F063-0000-0000-C000-000000000046" style="width:100%;height:100%" codebase="outlook/outlctlx.CAB#ver=9,0,2814">
<param NAME="View" VALUE="">
<param NAME="Folder" VALUE="contacts">
<param NAME="Namespace" VALUE="MAPI">
<param NAME="Restriction" VALUE="">
<param NAME="DeferUpdate" VALUE="0">
</object>
</BODY>
</HTML>3。日历
<html>
<head>
<link rel=stylesheet type="text/css" href="css/ACM.css"><title><%=langbox%></title>
</head>
<body scroll="no" oncontextmenu="return false">
<br>
<font size='5' color='#df791f' face='arial black'><b><I>Calender</I></b></font>
<br>
<hr>
<div class="divtree" style="width:100%;top:10%;height:90%">
<object Name="MyMessages_WPQ_" ID="MyMessages_WPQ_" CLASSID="CLSID:0006F063-0000-0000-C000-000000000046" style="width:100%;height:100%" codebase="outlook/outlctlx.CAB#ver=9,0,2814">
<param NAME="View" VALUE="">
<param NAME="Folder" VALUE="calendar">
<param NAME="Namespace" VALUE="MAPI">
<param NAME="Restriction" VALUE="">
<param NAME="DeferUpdate" VALUE="0">
</object></BODY>
</HTML>4。便条
<html>
<head>
<link rel=stylesheet type="text/css" href="css\ACM.css">
</head>
<body scroll="no" onclick="outsubmenu()" oncontextmenu="return false">
<center>
<br>
<h3>Notes</h3>
</center>
<div class="divtree" style="width:100%;top:10%;height:83%">
<object Name="MyMessages_WPQ_" ID="MyMessages_WPQ_" CLASSID="CLSID:0006F063-0000-0000-C000-000000000046" style="width:100%;height:100%" codebase="http://activex.microsoft.com/activex/controls/office/outlctlx.CAB#ver=9,0,2814">
<param NAME="View" VALUE="">
<param NAME="Folder" VALUE="notes">
<param NAME="Namespace" VALUE="MAPI">
<param NAME="Restriction" VALUE="">
<param NAME="DeferUpdate" VALUE="0">
</object>
</BODY>
</HTML>
楼上2位可能没明白我的意思或者我的表达有误
我需要实现的是只需要在服务器端安装outlook,通过在服务器端的程序使用outlook提供的接口来获取邮件信息和发送邮件,获取联系地址信息等功能,并将这些信息放入本地的数据库然后使用B/S系统呈现给客户端的浏览器再次感谢2位
我倒是觉得自己开发一个比较好。
使用jmail组件,有支持.net的。
它可以从服务器上download邮件,并可以发送电子邮件。
至于联系地址信息,不如自己建个表,这样也方便自己操作,高兴的时候,跑表跑一遍,每人发一封邮件。
The Outlook Object Model is a set of programmatic interfaces that allow to you automate certain features of Outlook using programming code. To use the Outlook object model, you must first set a reference to the Outlook 10.0 Object Library. If you are using the VBA editor that is built-in with Outlook, this reference is already set for you. Once you have set a reference to the Outlook object model, you can then write programming code to create an instance of Outlook and begin working with common Outlook components such as folders, e-mail messages, and contacts. The following example demonstrates the use of VBA code to open an instance of Outlook and display the number of messages currently in the Inbox:Private Sub CountInboxMessages()
'This procedure displays a message box that indicates the number of
'messages currently in the Inbox. Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objMAPIFolder As Outlook.MAPIFolder Set objOutlook = New Outlook.Application
Set objNamespace = objOutlook.GetNamespace(Type:="MAPI")
Set objMAPIFolder = objNamespace.GetDefaultFolder(olFolderInbox) MsgBox "You have " & objMAPIFolder.Items.Count & _
" messages in your Inbox.", vbInformation Set objMAPIFolder = Nothing
Set objNamespace = Nothing
Set objOutlook = NothingEnd Sub