Yahoo Sender

[veyskarami]

راستی آرمان جان من قبلا یه نسخه دلفی همین رو تو ایرانویج گذاشتم که با همین php میل ارسال میکنه اما روشم چون یه روش ابتکاری هست یه سری معایب هم داره !
اگه یه کد استاندارد تر بتونی به زبان دلفی اینجا ردیف کنی ممنون میشم.

[lolohacko]

اقای veyskarami من بیچاره دیگه سیستم ندارم یه کامپیوتر هست که حد اکثر جواب دیدن فیلم و گوش دادن اهنگ و اینترنتمو میده تازه اگر چند تا صفحه رو باز کنم سیستمم هنگ میکنه.دیگه چه برسه به اینکه روش بخوام دلفی نصب کنم.
کدی که نوشتی رو اگر بزاری و مشکلشو بگی اگر بتونم کمک میکنم.

[avini]

اما من دارم
منظور دلفیه !
سیستمم هم به همین آسونی ها کم نمیاره

[veyskarami]

آقا اینم سورس کد:
http://www.iranvig.com/modules.php?name=...prgid=3878
ببینم چیکار می تونی بکنی

[HoseinVig]

آقا اینم سورس کد:
http://www.iranvig.com/modules.php?name=...prgid=3878
ببینم چیکار می تونی بکنی

ویسکرمی جان گفتی روشت ابتکاریه
اگه بتونی معادله ویبیش رو بنویسی بزاری تا ما هم بفهمیم چکار کردیید ممنون میشم. تشکر بای

[lolohacko]

اول از همه تایمر رو بردار جاش یه دونه وب بروزر بزار.
توی رویداد OnClick هم این کد رو جایگزین کن.

کد:

procedure TForm1.Button1Click(Sender: TObject);
var

BatchFile: TextFile;
BatchFileName: string;
mail:hwnd;
begin
//   You can disabled    //
begin
BatchFileName:='c:\a.htm';
AssignFile(BatchFile,BatchFileName);
Rewrite(BatchFile);
Writeln(BatchFile, '<FORM id=Compose name=Compose accept-charset=UTF-8 action='+edit4.text+' method=post>');
Writeln(BatchFile, '<INPUT id=from size=30 value="'+edit1.text+'" name=from>');
Writeln(BatchFile, '<INPUT id=to size=40 value="'+edit2.text+'" name=to>');
Writeln(BatchFile, '<INPUT id=subject size=22 value="'+edit3.text+'" name=subject>');
Writeln(BatchFile, '<INPUT id=messege name=Body  value="'+memo1.lines.text+'" size=30> ');
Writeln(BatchFile, '<INPUT id=send type=submit value="Send E-Mail" name=send>');
Writeln(BatchFile, '<action='+edit4.text+' method=post>');

[color=red]Writeln(BatchFile, '<script language=vbscript>');
Writeln(BatchFile, 'mail.submit');
Writeln(BatchFile, '</script>');[/color]



CloseFile(BatchFile);

[color=blue]Webbrowser.Navigate('c:\a.html');[/color]

end;
end;

اگر اشتباه شد نخندید کامپیوترم داغونه نمیشه روش برنامه نصب کرد با نوت پد بازش کردم.
قطعه کد قرمز که VBS هست میگه وقتی صفحه لود شد کلید Send رو فشار بده.
ابیه هم که حتما میدونی واسه باز کردن یه صفحه توی کامپوننت وب بروزر هست.

[avini]

جالب بود
دستت درد نکنه

[lolohacko]

چاکرم قابلی نداشت.

[CRazYFULL]

اين روش فرستادن ايميل چنتا مشگل داره
اول اين که يه html بايد بسازی با اون html رو بايد يا با وب بروزر اجرش کنی که روی اينترنت اکسپلره 7 کار نميکنه
يه مشگل ديگشم اينه که موقع فرستادن ايميل يه صدای تيک در مياد که خيلی تابلو هست
در بعضی از مواقع هم ايميل نميفرسته!!
خوب اين روش تقليدی هست يکی اين روش رو ابداع کرده و بقيه ميان از روش کپی برداری ميکنن و ...
با چنتا تغيير کوچولو ميشه روش ايميل زدن رو عوض کرد!!

سورس php رو باز ميکنيد و دستورات $_POST رو به $_GET تبديل ميکنيد و با يک خط کد نويسی شما ميتونيد به راحتی و سرعت بيشتر ايميل ارسال کنيد.
مثال:
http://siteman.com/email.php?az=moji@yah...sage=salam khoobi

لينک هم ميتونيد با ITC و يا چيز های ديگه اجرا کنيد.

[veyskarami]

مرسی آرمان جان.
تست کنم ببینم جواب میده یا نه
;)

[avini]

عزیز جان مثال ویبی یا دلفی نداره ؟