Скачать: CL | DM;

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

← →
mate ©   (2003-01-10 16:31) [0]

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

---

← →
handra ©   (2003-01-10 17:16) [1]

Работает под 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.

---

← →
Boriska   (2003-01-10 21:50) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c