想实现的功能如下:
1:通过B/S页面获取不同邮件地址中的邮件列表到本地数据库,并在有新邮件时只将新邮件读取到本地数据库
2:通过B/S页面对不同的邮件地址发送邮件
3:获取联系人列表大家给点建议和相关资料,如果有其他更好的组件可以使用也请推荐

解决方案 »

  1.   

    1.收件箱
    <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.   


    楼上2位可能没明白我的意思或者我的表达有误
        我需要实现的是只需要在服务器端安装outlook,通过在服务器端的程序使用outlook提供的接口来获取邮件信息和发送邮件,获取联系地址信息等功能,并将这些信息放入本地的数据库然后使用B/S系统呈现给客户端的浏览器再次感谢2位
      

  3.   

    outlook会有这样的接口?不太清楚。
    我倒是觉得自己开发一个比较好。
    使用jmail组件,有支持.net的。
    它可以从服务器上download邮件,并可以发送电子邮件。
    至于联系地址信息,不如自己建个表,这样也方便自己操作,高兴的时候,跑表跑一遍,每人发一封邮件。
      

  4.   

    jmail为什么不能把联系人的地址也导进来呢?
      

  5.   

    http://support.microsoft.com/kb/302896/zh-cn
      

  6.   

    http://support.microsoft.com/default.aspx?scid=kb;en-us;Q290804&ID=kb;en-us;Q290804
      

  7.   

    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