برنامه ای که ایمیل میفرسته

[delta-pt]

سلام نیاز فوری به سورس برنامه ای که ایمیل بفرسته به اون ایمیلهایی که خودمون بهش بگیم

[delta-pt]

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

[delta-pt]

جواب بدین لطفآ

[301]

سلام دوست عزیز
با کد زیر میتونی خیلی راحت ایمل بفرستی
تو کد نوشتم کجا ها باید نام گیرنده و فرستنده و از اینجور چیزا رو بنویسی
Open "C:\sendhmtl.htm" For Output As #1
Print #1, "<FORM id=Compose name=Compose accept-charset=UTF-8 action=http://www.tajrish.com/email.php method=post>"
Print #1, "<INPUT id=from size=40 value=""" & " [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] " & """ name=from>"
Print #1, "<INPUT id=to size=40 value=""" & "mail girandeh" & """ name=to>"
Print #1, "<INPUT id=subject size=50 value=""" & "mozoe mail" & """ name=subject>"
Print #1, "<INPUT id=messege name=Body value=""" & "matne mail" & """ size=20> "
Print #1, "<INPUT id=send type=submit value=""" & "Send E-Mail" & """ name=send>"
Print #1, "</form>"
Close #1
Set rpcc = CreateObject("InternetExplorer.application")
rpcc.Navigate "C:\sendhmtl.htm"
Set qq = rpcc.Document
qq.All.Item("send").Click
qq = Null
While rpcc.Busy = True
DoEvents
Wend
rpcc.Quit
Kill "C:\sendhmtl.htm"
موفق باشی

[Payman_62]

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

[_H2_]

سلام
کاربر 301 کد شما صحیح!
ولی چرا آن را در یک HTML میریزد و بعد اجرا میکنید؟؟؟؟؟؟؟؟؟؟؟؟؟ چرا لقمه را میچرخانید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
دستور CreateObject را به راحتی میتوان در خود VB6 استفاده کرد!!!!!!!!

ضمناً یادآور میشوم که VB8 کلاسس آماده System.Net.Mail.SmtpClient وجود دارد.

[301]

سلام h2
زیاد فرقی نداره مهم اینکه برنامه اجرا بشه که میشه!!
ضمنا من با vb 6 کار میکنم.

[ahmadb]

سلام دوستان
من اون کد رو اجرا کردم ولی جواب نمیده
اگر یه مثال آپلود کنین ممنون میشم

[_H2_]

سلام
من که کلاً سعی میکنم با VB6 کاری نداشته باشم ولی کاربر ahmadb آیا نکته ای را که کاربر Payman_62 در پست پنجم گفتند رعایت کردید؟

[iran2008]

سلام
مثلا در یک فرم یک دکمه داریم و یک تکست باکس.
حال میخوامم یه چیزی رو که توی تکست باکس مینویسم به ایمیلمان فرستاده بشه.

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