100分求一个delphi使用CDO的例子！使用的对象越多越好！(100分)

如题

up

var cdo=new ActiveXObject("CDONTS.NewMail");
cdo.send("webmaster@aspcn.com","1111y@microwolf.net","ASP的来信","你好啊!",0)

太简单了吧

CDO 互操作性技术示例

本示例说明从托管代码使用现有非托管 COM 组件（协作数据对象 1.2.1）的情况。

自述文件位置
有关更多信息，请参阅位于 <FrameworkSDK>/Samples/Technologies/Interop/Applications/CDO 的自述文件

我需要delphi的啊！

http://www.imidev.galaxite.net/delphi/les/cdoless.html
CDO 1.2.1 in DELPHI
(MS Exchange Server 5.5 Edition / Microsoft Exchange Server 2000 compatibles / DELPHI 5 Edition / DELPHI 6 compatibles)

The DELPHI sources of CDO 1.2.1 in DELPHI examples are delivered via electronic Internet download after registration

If you are located outside Europe,
you can see our website mirror in USA.


--------------------------------------------------------------------------------

Description: Application as Lesson Source
PART I
Logging On and working with GAL
Example # 1
Log in MS Exchange Server and
Query User Identity

How to:

Use CDO.Session Object
Use Session.Logon
Use Session.CurrentUser
Use AddressEntry
Find type of AddressEntry
Work with Fields collection
Work with Field property
Use Field.ID propery
Get Field.Value by MAPI TAG
Use Session.LogOff
...
Example1
(221 KB)
In package
Example # 2
Retrieve MS Exchange GAL
(Global Address List)

global address list
(GAL) A MAPI address book container that holds recipient entries for an entire organization and is available to all e-mail users in that organization.

Include some steps
from Example #1 and
How to:

Get Global Address List
Use AddressEntries
Use GetFirst
Use GetNext
Link AddressEntry.DisplayType with image
Get Recipient Display Name
Get Recipient SMTP e-mail address
...
Example2
(241 KB)
In package

Example # 3
Retrieve MS Exchange "Light" Hierarchy
(by Global Address List)

Hierarchy Viewer
A hierarchy viewer is a user interface component that is used for displaying folder and address book container hierarchy tables. Hierarchy viewers can display members of the hierarchy at different levels, expanding and contracting each level on demand.

How to:

Get Global Address List
Use AddressEntries
Build "Light" Tree
...
Example3
(226 KB)
In package

Example # 4
Writing a small Hierarchy Viewer

Now we will write small GAL Hierarchy Viewer. What must do it:
- must show GAL
- must show Hierarchy
- must show Organization
- must show Sites
- must show Containers in each Site
- must show recipients in each container

Example4
(250 KB)
In package

PART II
Working with Private Information Store (Mailbox)
Example # 5
Log in MS Exchange Server and
Getting Exchange Private Store Tree

In this example we will write small Exchange Private Store (mailbox) Hierarchy Viewer.
How to:

Open Mailbox
Find Exchange Private Store
Open Exchange Private Store
InfoStores collection
Use InfoStore Object
Find 'RootFolder'
Enumerate IPM Subtree
Folders Collection
etc..
Example5
(227 KB)
In package

Example # 6
Getting Exchange Mailbox and enumerate items (messages) in each folder

How to:

Get Container Class
ex. IPM.Note, IPM.Contact, IPM.Task...
Enumerate messages in MAPI Folder
Get Message Subject
How to get Message properties
Work with Fields Collection
Work with fields
etc..
Example6
(251 KB)
In package

Example # 7
How to build SIMPLE Mailbox reader (agent) with CDO and DELPHI 5



The sample (MAIL Reader) demonstrates how-to:

Login to Exchange Server
Get own e-mail address
Get available Information Stores
Get and work with Information Store Folders Collection
Get and work with Folder
Get and work with Messages (enumerate, read, delete, make it as read or unread)
Work with fields
and more
Example7
(270 KB)
In package

BY REQUEST
(You ask- we create)

#1
How to create Appointment/Meeting from DELPHI 5

This example show how to create and send Meeting request with CDO and DELPHI 5.

The example use as basis Example # 7.

This is First Lesson created for "By Request"

CDOAppt
(279 KB)
In package


DELPHI 5 Sources for PART I &amp; II
is available after registration
(381 KB, Password protected) Register and unlock it




Please see also Installing CDO with Outlook or Office 2000


[ Home ]

Write us with any questions or comments
Copyright &amp;copy; 1999-2003 IMIBO, EOOD

收到，谢谢

function GetMhtText(URL:string):String;
var
iMsg,iConflevariant;
begin
imsg:=createoleobject('CDO.Message');
iConf:=CreateoleObject('CDO.Configuration');
imsg.Configuration := iConf;
try
iMsg.CreateMHTMLBody(url,0,'','');//'domain/username','password');
result:=imsg.getStream.ReadText;
except
raise;
end;
end;