e-mail

← →
Mozart © (2006-03-09 04:54) [0]

подскажите, как отправить mail из програмки? Какой компонент в Delphi это позволяет?

← →
antonn © (2006-03-09 05:10) [1]

indy. вот и проета выдернул:

var M:TIdMessage; i:integer; begin M:=TIdMessage.Create(FormAllRecords); try M.Body.AddStrings(Memo.lines); //ну это текст письма закидывал M.From.Text:="<"+Esour.Text+">"; //от кого M.Recipients.Add; M.Recipients.Items[0].Text:= "<"+Edest.Text+">"; //кому M.Subject:="mail_send"; //тема IdSMTP1.AuthenticationType:=atLogin; IdSMTP1.Host:=Ehost.text; //хост IdSMTP1.Username:=Euser.Text; //пользователь IdSMTP1.Password:=Epass.Text; //его пароль IdSMTP1.Connect(); if IdSMTP1.Connected then begin IdSMTP1.Send(M); end; IdSMTP1.Disconnect; finally m.Free; end;

← →
antonn © (2006-03-09 05:10) [2]

uses idMessage, IdEMailAddress; //это к TIdMessage

← →
Mozart © (2006-03-09 05:28) [3]

M:=TIdMessage.Create(FormAllRecords);
//а что такое FormAllRecords ?

← →
antonn © (2006-03-09 06:14) [4]

Mozart © (09.03.06 5:28) [3]
а это хендл окна 8)
ну подставь Form1

← →
Ega23 © (2006-03-09 09:20) [5]

uses ShellAPI

ShellExecute(.... "mailto skdjfh@lknsdg.org", ...)

:о)

← →
VinRaider-Vlad (2006-03-13 14:17) [6]

Добрый день.
Я тут прочитал у вас класную вещь, но у меня D5, можете мне выслать компоненту "IdSMTP", а?
Мое мыло: v-l-a-d-a-v-l-a-d@rambler.ru
Заранее спасибо.

> IdSMTP

Они, вроде, только начиная с D6 появились.

e-mail Найти похожие ветки