| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

E-mail [D4, Win95/98]

mate ©   (2003-01-10 16:31:00) 

Люди помогите, как из моей проги отправить сообщение на e-mail, пусть даже через OutLook, но чтобы там ничего не вводить и не нажимать (т.е. сразу засунуть в папку Исходящие)

---

Boriska   (2003-01-10 21:50:00) [1]

Я раньше, тоже не знал как это делать, пока не нашёл, компонент,который лежит во вкладке fastnet он называется NMSMTP-Если возникнут проблемы с написанием проги, то пиши мне на
Boriska2002@fromru.com

---

handra   (2003-01-10 17:16:00) [2]

Работает под 2k и XP, шлет письма от дефолтного аккаунта Outlook/Outlook Express

program w2kmail;

uses
Windows,
ComObj,
ActiveX;

{$R *.RES}

var Msg: OleVariant;
begin
if ParamCount<>4 then begin
MessageBox(0,
"W2k Mail Sender (based on CDO)"#13#13+
"Usage:"#13+
#9"w2kmail <sender> <recipient> <subject> <body>"#13#13+
"(c) 2002, HomeLab",
"Information",0);
Exit;
end;
CoInitialize(nil);
Msg := CreateOleObject("CDO.Message");
try
Msg.From := ParamStr(1);
Msg.To := ParamStr(2);
Msg.Subject := ParamStr(3);
Msg.TextBody := ParamStr(4);
Msg.Send;
Beep(500,50);
except
end;
Msg := NULL;
end.

---

Наверх