用过VB的朋友帮个忙,这样的功能在Delphi中如何实现

Question

VB中实现邮件发送的程序如下：
MAPISession1.signon
MAPIMessages1.SessionID=MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress="[email protected]"
MAPIMessages1.AddressResolveUI=True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject=Trim(txtSubject)
MAPIMessages1.MsgNoteText=Trim(txtText)
MAPIMessages1.AttachmentPathName="c:\Detlog.txt"
MAPIMessages1.Send
MAPISession1.SignOff
可以调用Windows自带的邮件发送程序发送邮件。
我在Delphi中Import Library Microsoft MAPI时说缺少Licence。
请问这样的功能在DELPHI中如何实现？

Answer 1

Delphi有自带的控件可实现相应的功能。

Answer 2

Delphi中的Pop3和SMTP组件可以轻松实现邮件收发，看看Delphi演示程序MailDemo，你立刻就可以搞掂。

Answer 3

<Delphi6>\Demos\Indy\MailClient\MailDemo.dpr

Answer 4

楼上几位说的并不是直接调用Windows自带的OUTLOOK请教zxkid()：是哪个控件？

Answer 5

这不已经告诉你没有授权吗？你用的是运行版，不是开发版
 
你安装一下或VC或VB  
 
可别打我，  
 
是真的，  
 
不过不用全部安装，只要安装一部份，  
将系统OCX注册一下就行