CDO.Message и Delphi. вопрос

Здравствуйте. имеется такой кодес отправки почты на VB6

Code:

Sub send_message()
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
     .To = "ololo@mail.ru"
     .From = "trololo@mail.ru"
     .Subject = "ololo"
     .TextBody = "tolololo"
With .Configuration.Fields
     .Item(v_Conf & "sendusing") = 2
     .Item(v_Conf & "smtpserver") = "smtp.mail.ru"
     .Item(v_Conf & "smtpauthenticate") = 1
     .Item(v_Conf & "sendusername") = "trololo"
     .Item(v_Conf & "sendpassword") = "password"
     .Item(v_Conf & "smtpserverport") = 25
     .Item(v_Conf & "smtpusessl") = False
     .Item(v_Conf & "smtpconnectiontimeout") = 60
     .Update
End With
     .send
End With
End Sub

как такое реализовать на Delphi? гугл вообще ничего не знает об этом.

и да, всякие IdSMTP & TSMTPSend меня не интересуют. интересует только "CDO.Message". заранее спасибо.

 

Воспользуйся OLE.

 

можно пример кода?

 

Можно.

Code:

var MSG: OleVariant;
begin
Msg := CreateOleObject('CDO.Message');

дальше галимо заполняешь как на vbs, то есть

Code:

Msg.From := 'ololo@lolo.ru';
Msg.Subject := 'ololo';
Msg.TextBody:='tolololo';
Msg.To := 'trololo@qip.ru';

и т.д.
ах да не забудь подключить comobj.

 

DooD, спасибо буду разбираться.