Форум: "Сети";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
Вниз
Интернетпочта Найти похожие ветки
← →
VS (2005-09-13 10:53) [0]Пожалуйста,подскажите как из программы на Делфи послать и принять почту (файл) через ящик в Инете?
← →
Digitman © (2005-09-13 11:33) [1]
> послать
см., например, TIdSMTP
> принять
см., например, TIdPOP3
← →
VS (2005-09-21 09:45) [2]немогу найти исчерпывающую информацию, TIdSMTP и TIdPOP3 для моих целей подходят. Плиз, дайте работающий код, спасибо за помощь!
← →
Digitman © (2005-09-21 09:58) [3]
> VS (21.09.05 09:45) [2]
в демо-каталоге Делфи есть готовые примеры использования этих компонентов
← →
Плохиш © (2005-09-21 11:44) [4]
> VS (21.09.05 09:45) [2]
> Плиз, дайте работающий код,
500 Euro
← →
IceBeerg © (2005-09-21 11:59) [5]
procedure TForm1.Button1Click(Sender: TObject);
var
Msg:TIdMessage;
begin
try
Msg:=TIdMessage.Create(self);
Msg.Subject:="!!!";
Msg.Recipients.EMailAddresses:="my@mail.ru";//gjkexfntkm
Msg.From.Address:="support@microsoft.com";//указываем автора письма
Msg.Body.Text:="Message";//размещаем текст сообщения
Msg.Date:=StrToDate("01.01.2010");//дата отправки письма может быть любой
TIdAttachment.Create(Msg.MessageParts,Application.ExeName);
with TIdSMTP.Create(nil) do
try
Port:=25;
Host:="mail.server.ru";
AuthenticationType:=atNone;
Connect(5000);
Send(msg);
Disconnect;
finally
Free;
end;
finally
msg.Free;
end;
end;
Возможно рабочий... Переодределяй Host, Address, EMailAddresses... бери бубен и копай дальше
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
