并且把当前的Html格式的邮件,作为邮件内容显示在内容框中.有谁知道的?

解决方案 »

  1.   

    DELPHI里调用Outlook    
        
    const olMailItem = 0;var Outlook: OLEVariant;MailItem: Variant;begintryOutlook := GetActiveOleObject('Outlook.Application');exceptOutlook := CreateOleObject('Outlook.Application');end;MailItem := Outlook.CreateItem(olMailItem);MailItem.Recipients.Add('[email protected]');MailItem.Subject := 'your subject';MailItem.Body := 'http://kingron.myetang.com';MailItem.Attachments.Add('C:.dat');MailItem.Send; Oulook := Unassigned;end;*************************发送HTML格式邮件下面的代码没有测试,因为我没有Outlook,而我又找不到Outlook express的CLSID或者ProgID…… :-(varOe,MI:OleVariant;beginOe:=CreateOleObject('Outlook.Application');MI:=Oe.CreateItem(0);MI.Subject:='subject';MI.HTMLBody:='<html>..Input your HTML Source Here....</html>';MI.Recipients.Add('Mail address like :[email protected]');MI.Send;MI:=Unassigned;OE:=Unassigned;end;