Текущий архив: 2003.02.24;
Скачать: 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 вся ветка
Текущий архив: 2003.02.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
