Подскажите плиз какие можно использовать в данной ситуации и если можно с описанием функции и ломтиком кода на ВБ. Благодарен за любую инфу по этой теме

| Сообщение посчитали полезным:

См. в гугле RAS API

| Сообщение посчитали полезным:

Попробуй трой какой-нить дизассемболировать, сразу много чего узнаешь

-----
все багрепорты - в личные сообщения

| Сообщение посчитали полезным:

на sources.ru есть куча прог отправки почты с аттачами и прочей лабудой.

з.ы. для отправки аттачей юзаются base64 функции. это на будущее.

| Сообщение посчитали полезным:

SeQuick
три варианта:
а) пишешь реализацию SMTP и Mime/base64
b) находишь компонент который это делает и пользуешь его
с) вызываешь функцию outlook-а через COM

| Сообщение посчитали полезным:

Я пользовался кодом от MsRem-a, правда он на дельфях.
Шлет как из пушки.

f4ce_16.11.2006_CRACKLAB.rU.tgz - MailSend.pas

| Сообщение посчитали полезным:

xDriver
что-то я не понял, куда вводить адрс почты...
можешь пример привести плиз.......

| Сообщение посчитали полезным:

Mavlyudov пишет:
что-то я не понял, куда вводить адрс почты...
ну, это по мере фантазии

функция берёт from and dest.

| Сообщение посчитали полезным:

Mavlyudov
код Builder c++

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{

WORD wVersionRequested;
WSADATA wsaData;

AnsiString To, Data, Smtp, From;
try
{

To = "To@mail.ru";
Data = "Проба ....... !!!";
Smtp = "smtp.mail.ru";
From = "From@mail.ru";

wVersionRequested = MAKEWORD( 2, 0 );
int err = WSAStartup( wVersionRequested, &wsaData );
if ( err != 0 ) {
/* Tell the user that we couldn't find a usable */
/* WinSock DLL. */
return;
}
if (SendMail(Smtp.c_str(), 25, From.c_str(), To.c_str(), Data.c_str()))
{
InformBox("Mail send - OK");
} else {
ErrorBox("Mail send - ERROR");
}
WSACleanup();

}
catch (Exception& E)
{
WSACleanup();
ShowMessage("Ошибка отправки e-mail: " + E.Message);
}
}


| Сообщение посчитали полезным:

offtop:
Ну сделайте наконец форматирование текста, а то не возможно читать такое.

| Сообщение посчитали полезным:

Function SendMail(Smtp: PChar; Port: dword; From, Dest, Data: PChar): boolean;

P.S. Паскаль знаю плохо

Может поделитесь инфой как это написать на ВБ без лишнего геморроя?

| Сообщение посчитали полезным:

vbnet.ru/samples/showgroup.aspx?id=7

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

вообще щас большинство почтовых сервов (mail.ru и т.д.) не дают слать почту с левых адресов, прежде чем не пройдете авторизацию на smtp. так что с популярными сервами получится облом с анонимными письмами или письмами с чужих ящиков.

| Сообщение посчитали полезным:

xDriver
помоги на делфи сделать..я перевел твой пример...что-то не работает..

procedure TForm1.Button1Click(Sender: TObject);
var
wVersionRequested:word;
WSADAT: wsaData;
To_, Data, Smtp, From: AnsiString;
err:Integer;
begin
try

To_:='To@mail.ru';
Data:='Ïðîáà ....... !!!';
Smtp:='smtp.mail.ru';
From:='From@mail.ru';

wVersionRequested:=MAKEWORD(2,0);
err:=WSAStartup(wVersionRequested, wsaDat);
if (err<>0) then exit;
if SendMail( Pchar(Smtp), 25, Pchar(From), Pchar(To_), Pchar(Data) )
then MessageBox(handle,'Mail send - OK', nil,MB_ICONINFORMATION) else
MessageBox(handle,'Mail send - ERROR',nil,MB_OK);
WSACleanup();
except
on Exception do
begin
WSACleanup();
ShowMessage('Error sending e-mail: ');
end;

end;
end;

| Сообщение посчитали полезным:

В аттаче проект для делфи, мануал и програма от парня
по имени Robert с напутствием :
"This program is a FREEWARE, you can use it in any applications,
and develop better, and nicer programs"

168 KB
409b_18.11.2006_CRACKLAB.rU.tgz - email.rar

| Сообщение посчитали полезным:

Когда-то год назад написал. Правда на С++. Функции вызываются по порядку. С mail.ru работало.
BOOL WINAPI InitializeConnect();
BOOL WINAPI ConnectToHost(char *HostName);
BOOL WINAPI SendMailAddress(char *MailFrom,char *MailTo);
BOOL WINAPI SendMailInfo(char *MailSubject,char *MailFrom,char *MailTo);
BOOL WINAPI SendMailMessage(char *MessageText);
BOOL WINAPI SendMailFile(char *FileName); - вызывается, если требуется прикрепить файл
Надо два файла вызываешь два раза. Например SendMailFile("text.txt") и SendMailFile("text2.txt")
BOOL WINAPI SendEndOfMessage();
BOOL WINAPI FreeConnect();

Может пригодится.

| Сообщение посчитали полезным:

Что-то файл с первого раза не захотел прикрепляться.

ed8b_19.11.2006_CRACKLAB.rU.tgz - TMailSMTP.rar

| Сообщение посчитали полезным:

userdom
твоя прога требует компонент TNMDMTP.
И вообще, я просил помоч разобраться с тем примером
коорый выложил тут xDriver
и который я перевел на делфи...но перевел с ошибками...помогите исправить!!!

| Сообщение посчитали полезным:

Mavlyudov
у тебя наверное делфи облегченно-урезанное,
только что на новой осе с делфи 5 без
дополнительных побочных компонентов
за 2 сек откомпилировал.
А вообще-то выложил просто для инфы,
может кому пригодиться...

| Сообщение посчитали полезным:

Mavlyudov
Ну давай разбиратся !
Код вроде нормальный, что не получается ?
Да, адрес From должен быть валидный (выше писали) например gena@mail.ru (такой есть я проверял)

| Сообщение посчитали полезным:

Mavlyudov
"не работает" - что значит. не компилируется? запускается, но не отправляется?
отлаживать (трассировать) пробывал? мессага с ошибкой / подтверждением появляется?
или вообще exit срабатывает?

| Сообщение посчитали полезным:

xDriver
ну я не уверен, правильно ли я заменил try {} catch {}
на try except .
И еще вот это
catch (Exception& E)

можно ли заменить на

except
on Exception do
begin
...........
end
??????

и еще ShowMessage("Ошибка отправки e-mail: " + E.Message);
я заменил на
ShowMessage('Error sending e-mail: ');
а вот это + E.Message не получилось заменить ничем...

А после запуска прога виснет ......

| Сообщение посчитали полезным:

Mavlyudov пишет:
И еще вот это
catch (Exception& E)

можно ли заменить на

except
on Exception do
begin
...........
end

try

except

on e:exception do
begin
showmessage('error occured:'+e.message);
end;
end;

| Сообщение посчитали полезным:

n1kto
спасибо . все получилось.. Просто это Dr. web мешал и поэтому все висло!!
а нельзя доработать модуль MailSend.pas, чтобы можно было файлы прикреплять к письму???
как это сделать?

| Сообщение посчитали полезным:

darkeagle

smtp.mail.ru - пох авториризация , главное чтоб адрес, от кого, был валидный и все.так что давай свое мыло на mail.ru я тебе с него же письмицо и отошлю.

smtp.yandex.ru - нужна авторизация, решается тремя командами сервера, адрес опять же должен быть валидный, здесь c чужого адреса не зная пароля ничего не получится.

так что заведя на mail.ru (левый) аккаунт проблем с отсылкой быть не должно.

| Сообщение посчитали полезным:

Mavlyudov, чувак, а ты не детского троянито случайно вояешь? Ну а по поводу файлов - копни две темы: base64 (это что бы файл перевести в поток ASCII, типа UU encoding из фидо) и mime (что бы зафигачить attachment и текст в одну месагу)

| Сообщение посчитали полезным:

s0larian пишет:
Mavlyudov, чувак, а ты не детского троянито случайно вояешь?

С чевото же нужно начинать...

-----
Что один человек сделал , другой всегда сломать может...

| Сообщение посчитали полезным: