Отправить почту при помощи Delphi

← →
stelius © (2005-08-08 12:52) [0]

Как в делфи создать и отправить письмо с прикрепленным файлом?

← →
ocean © (2005-08-08 13:10) [1]

MAPISendMail(), подробности по F1

← →
stelius © (2005-08-08 17:03) [2]

То что нужно, tnx

Возник исчо один вопрос:
а как отослать писмо например на 4 адреса?

← →
stelius © (2005-08-08 17:15) [3]

как сделать так чтоб диолог о подтверждении отправки не выскакивал?

← →
Наиль © (2005-08-08 17:30) [4]

Всё таки лучше отправлять на прямую компонентами SMTP.
Какой выбрать - решать тебе, а о том как они работаю читай здесь:
http://www.delphimaster.ru/articles/smtp/index.html
Помоему там имеется даже образец программы и ссылки на компонент.
PS. Сам я отправлял только через вызов программы Rar.exe с необходимыми ключами. Удобно, заархивировал и отправил.

← →
stelius © (2005-08-08 18:57) [5]

а при помощи МАPI нельзя сделать так чтобы окошко с подтверждением отправки сообщения не вылетало?

← →
stelius © (2005-08-09 13:55) [6]

неужели нельзя избавиться от диолога подтверждения (см. [5])

← →
Fay © (2005-08-09 15:14) [7]

2 stelius © (09.08.05 13:55) [6]
см [4]

← →
stelius © (2005-08-09 18:07) [8]

2 Fay © (09.08.05 15:14) [7]
почитал я сие, там не при помощи MAPI сделано
я новичок в этом... разбираться так досконально нет времени
неужеи в MAPI нет что нибудь параметра типа NOT_SHOW_DIALOG

← →
Fay © (2005-08-09 19:25) [9]

2 stelius © (09.08.05 18:07) [8]
Всё таки лучше отправлять на прямую компонентами SMTP.

← →
Eraser © (2005-08-09 19:31) [10]

stelius ©

Копай в сторону компонентов Indy.

← →
pepper © (2005-08-10 09:47) [11]

Че вы бедного чувака глюкуете, потом все форумы будут забиты его сообщениями "Как мне сделать, что бы русский subject не корежило, или че у меня за закорючки в тексте письма"
Я Вас советую взять грамотную библиотеку (сейчас камни в меня полетят - нащел скажут грамотную),SYNAPSE с исходниками, а не заморачиваться со всякими INDY,так как старые версии не могут нормально работать с русскими кодировками...

Synapse homesite
is at http://www.ararat.cz/synapse/

← →
Eraser © (2005-08-10 15:49) [12]

pepper © (10.08.05 09:47) [11]
Я Вас советую взять грамотную библиотеку (сейчас камни в меня полетят - нащел скажут грамотную),SYNAPSE с исходниками, а не заморачиваться со всякими INDY,так как старые версии не могут нормально работать с русскими кодировками...

Я считаю, что Indy грамотней )

← →
Hose (2005-08-10 17:41) [13]

лично я Indy использую и очень доволен. правда пришлось немножко их сырцы подправить "что бы русский subject не корежило" :)) ну и от еще кое-каких радостей избавиться.

← →
Fay © (2005-08-10 20:28) [14]

2 pepper © (10.08.05 9:47) [11]
Согласен, synapse (после напильника, конечно) очень хороши!

← →
pepper © (2005-08-11 09:41) [15]

> Fay © (10.08.05 20:28) [14]
> Согласен, synapse (после напильника, конечно) очень хороши!

Eraser
>Я считаю, что Indy грамотней )

Гы гы ну не знаю не знаю.......на мой взгляд indy (ранние версии) хороши только после принятия определенной дозы спиртного....

> Hose (10.08.05 17:41) [13]
> лично я Indy использую и очень доволен..

Тебе повезло с версией...она у тебя старше моей.....я аж за сердце схватился......

← →
Hose (2005-08-11 12:58) [16]

> > Hose (10.08.05 17:41) [13]
> > лично я Indy использую и очень доволен..
>
> Тебе повезло с версией...она у тебя старше моей.....я аж
> за сердце схватился......

да обычная у меня версия. из стандартной поставки Д6. просто ребята из Indy не знают, что есть такая страна Россия. а так все классно работает.
хотя...
вот логер их у меня в автомате не заработал.

pepper © (11.08.05 09:41) [15]

Так а кто про ранние версии говорит-то? А имею ввиду 10, ну в крайнем случае 9! С другими и не работал.

Hose (11.08.05 12:58) [16]
да обычная у меня версия. из стандартной поставки Д6

Это и есть ранняя версия )
Советую устанвить Indy 10, если он конечно установиться на Д6, я слышал что устанавливается... в крайнем случае ставь Indy 9.
С I8 проблем много, AFAIK.

Скачивать отсюда http://www.indyproject.org/

← →
Hose (2005-08-11 18:32) [19]

> Eraser © (11.08.05 14:18) [17]
> pepper © (11.08.05 09:41) [15]
>
> Так а кто про ранние версии говорит-то? А имею ввиду 10,
> ну в крайнем случае 9! С другими и не работал.

про версии вообще-то перец что-то говорил :))

> Советую устанвить Indy 10, если он конечно установиться
> на Д6, я слышал что устанавливается... в крайнем случае
> ставь Indy 9.
> С I8 проблем много, AFAIK.
>
> Скачивать отсюда http://www.indyproject.org/

а там патчить ничего не придется? как он с русским дружит?

Hose (11.08.05 18:32) [19]
а там патчить ничего не придется? как он с русским дружит?

Прийдётся ПОЛНОСТЬЮ убить старую версию Indy, включая все runtime паеты и исходные тексты, и только после этого устанавливать новую версию Indy. Подробная инструкция по "убийству" приводится в дистрибутиве новой Инди.
Как вариант можно при установке Делфи не устанавливать "родной" Инди. Потом процесс установки нового Инди будет вообще без проблем.

Решил использовать инди, т.к. ниче ставить не надо и задачка разовая.
Знаю вопрос ламерский, просьба камнями не кидать...

Не ясно мне как атачмент присобачить?

Предлагаю пример для ВСЕМИ ЛЮБИМОГО INDY (кроме меня...)

//---размер превышает все установленные рамки-----
if LMDFileCtrl1.FileSize div 1024>maxsize then
begin
try
tt:=IntToStr(MaxSize);
Memo1.Lines.Add("размер файла превышает: "+tt+" кб");

// оправляем его со злостью отправителю
IdMessage2.Recipients.EMailAddresses:=IdMessage1.From.Address;
IdMessage2.From.Text:=ServerUser[i];
IdMessage2.Body.Text:=SMTPBODYTEXT;
IdMessage2.Subject:=SMTPSUBJECT;
IdSMTP1.AuthenticationType:= atNone;
IdSMTP1.Host:= SMTPHOST;
IdSMTP1.Port:=StrToInt(SMTPPORT);
IdSMTP1.Connect;
Application.ProcessMessages;
IdMessage2.Body.Text:= WintoKoi(SMTPBODYTEXT);
TIdAttachment.Create( IdMessage2.MessageParts, Patch+"\TEMP\"+InlineDecode(fnam,cs) );
try
IdSMTP1.Send(IdMessage2);
KillMessage(intIndex);
DeleteFile(Patch+"\TEMP\"+InlineDecode(fnam,cs));
finally
IdSMTP1.Disconnect;
IdMessage2.MessageParts.Clear;
end;

except
end;
end //--превышает все установленные рамки--

Thnx 2 all

Отправить почту при помощи Delphi Найти похожие ветки