چطور میشه محتوای یک فایل txt رو توی قسمت متن نامه خالی کرد و ایمیل کرد !!!!!!!!

[tehran2009]

من یه فایل txt دارم که توی درایو C هستش به اسم test.txt حالا می خوام در یک زمان معین مثلاً هر 5 دقیقه یکبار اونو توی قسمت متن ارسال نامه خالی کنم بدون اینکه فایل txt پاک بشه می خوام فقط خالی بشه . لطفاً یک نمونه سوزس برام بزارین ممنون میشم امیدوارم منظورمو رسونده باشم.

[tehran2009]

کسی نیست جواب منو بده خیلی مهمه .................

[ArshamHacker]

سلام ! برای این کار یه تایمر ایجاد کن و interval اون رو 1 ثانیه ( 1000) و یا همون 5 دقیقه خودت که میشه 300000تغییر بده حالا باید از قسمت components

microsoft rich text box control رو انخاب کنی حالا تو کد تایمر بنویس :
richtextbox1.loadfile "c:\test.txt"
حالا اگه بخوای این نامه رو میل کنی باید یه کم بگردی فکر کنم صفحه دوم همین تالار یه تاپیک هست به نام " فرستادن میل 100% " با دستکاری کردن کد های اون میتونی ایمیل هم بفرستی ! :متفکر:
اگه وقت کنم امروز یا فردا سورسشو برات میزارم !
موفق باشی

[tehran2009]

من یه عکس گذاشتم ببینید منظور من کاملاً واضحه ..........

راستی ممنون میشم سورسشو واسم بزارین.

[meisambandari]

سلام آقای ArshamHacker سورس رو بزارید ممنون میشم

[tehran2009]

آقا من از richtextbox1.loadfile "c:\test.txt" استفاده کردم اما همه محتوای txt نمی یاره آیا دستور دیگه ای وجود داره که تمام محتویات اونو برایم بیاره ......

لطفاً عکسی که گذاشتمو هم ببینید.

[vbhamed]

سلام

این کد واسه خوندنش :
این کد رو در یک تایمر 5 دقیقه ای بزار



Private Sub Timer1_Timer()

Dim a$, t$

Open "C:\test.txt" For Input As #1

If LOF(1) = 0 Then Close: Exit Sub

While Not EOF(1)
Line Input #1, a$
t$ = t$ & a$ & vbCrLf

Wend

Close

txtEmail = t$

Close
Open "C:\test.txt" For Output As #1
Close

End Sub

[tehran2009]

آقای vbhamed خدایی دمت گرم چیزی که خواستمو بهم دادی حالا می مونه یه چیزه دیگه مثلاً می خوام هر 5 دقیقه 1 بار به طور اتوماتیک بدون زدن دکمه send خود به خود ایمیل کنه . ( راستی میشه یه کاری کرد که وقتی محتوای فایل txt که توی قسمت متن نامه خالی شد و ارسال شد. قسمت متن ایمیل دوباره خالی بشه. اگه میشه ممنون میشم سورسشو بهم بدین )
ممنون میشم اینم راهنماییم کنید.

[tehran2009]

بچه های پایه کجایین بابا کمک کنیــــــــــــــــــــــ ـد.

[ƒxmahdi]

در برنامه ای که قرار دادم فرض کنید که command1 دکمه ارسال ایمیل است بعد برنامه رو ببین

[tehran2009]

آقا محمد واقعاً دست درد نکنه دمت گرم خدایی نوکرتم .
جواب اولمو گرفتم اما منظورم از سوال دوم اینه که توی عکس کاملاً واضحه حتماً ببینید ( عکسو حتما ببینید .... )
در شکل شماره 1 من متن نامه رو نوشتم حالا وقتی روی می خوام send کلیک کنم مثل شکل 2 قسمت متن نامه خالی بشه . امیدوارم منظورمو رسونده باشم .

[ƒxmahdi]

احمد آقا اسم من محمد علی هست و بهم می گن ( مهدی ) البته اشکالی نداره شما به من محمد بگید
در مورد سوال دوم خیلی راحته نمی دونم چقدر شما برنامه نویسی کردی ولی



Textmessege.Text=""

Textmessege نام کادر پیام(message) است

[tehran2009]

می دونم آقا مهدی آخه من سوالمو هر جور می گفتم کسی متوجه نمی شد . خلاصه بگذریم.
جواب سوالمو با سورس بدین ممنون میشم

[ArshamHacker]

سلام ! ببخشید این 2 - 3 روز سرم شلوغ بود ! اینم سورس البته همه کارهایی که میخوای رو انجام میده !×این رو رو هر 1 ثانیه یه بار تنظیم کردم که میتونی به میل خودت تغیرش بدی !
پسورد فایل : www.persianhackers.ir (http://www.persianhackers.ir)
دانلود سورس برنامه :
http://iranpcteam.persiangig.com/programing/App/SendMail-arsham.D.rar

[tehran2009]

هرکاری می کنم که بخوام جای فایل txt عوض کنم نمی تونم یعنی فایل txt من توی درایو c هستش
هرکاری می کنم نمی شه
RichTextBox1.LoadFile App.Path + "\" + "test.txt"

[ArshamHacker]

هرکاری می کنم که بخوام جای فایل txt عوض کنم نمی تونم یعنی فایل txt من توی درایو c هستش
هرکاری می کنم نمی شه
RichTextBox1.LoadFile App.Path + "\" + "test.txt

ای بابا تا حالا با وی بی کار کردی ؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟
خوب بنویس :
richtextbox1.loadfile "c:\test.txt"

[tehran2009]

منم همینو زدم اما فایده ای نداشت شب دوباره چکش می کنم :چشمک:

[parselearn]

من اینو امتحان کردم
کار می کنه



RichTextBox1.LoadFile Environ("SYSTEMDRIVE") + "\test.txt"

[tehran2009]

ممنون درست شد .....
مرسی ....