مشاهده نسخه کامل
: برنامه ای که ایمیل میفرسته
delta-pt
15-08-2007, 20:42
سلام نیاز فوری به سورس برنامه ای که ایمیل بفرسته به اون ایمیلهایی که خودمون بهش بگیم:10::10::10::10:
delta-pt
15-08-2007, 23:26
یکی جواب بده کسی بلد نیست
delta-pt
15-08-2007, 23:30
جواب بدین لطفآ:10:
سلام دوست عزیز
با کد زیر میتونی خیلی راحت ایمل بفرستی
تو کد نوشتم کجا ها باید نام گیرنده و فرستنده و از اینجور چیزا رو بنویسی
Open "C:\sendhmtl.htm" For Output As #1
Print #1, "<FORM id=Compose name=Compose accept-charset=UTF-8 action=[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] method=post>"
Print #1, "<INPUT id=from size=40 value=""" & "mail ferestandeh (DAX_H2001@yahoo.com)" & """ 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
28-08-2007, 02:31
سلام.
تجریش دیگه جواب نمیده. از emailha.com استفاده کن.
سلام
کاربر 301 کد شما صحیح!
ولی چرا آن را در یک HTML میریزد و بعد اجرا میکنید؟؟؟؟؟؟؟؟؟؟؟؟؟ چرا لقمه را میچرخانید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
دستور CreateObject را به راحتی میتوان در خود VB6 استفاده کرد!!!!!!!!
ضمناً یادآور میشوم که VB8 کلاسس آماده System.Net.Mail.SmtpClient وجود دارد.
سلام h2
زیاد فرقی نداره مهم اینکه برنامه اجرا بشه که میشه!!
ضمنا من با vb 6 کار میکنم.
سلام دوستان
من اون کد رو اجرا کردم ولی جواب نمیده
اگر یه مثال آپلود کنین ممنون میشم
سلام
من که کلاً سعی میکنم با VB6 کاری نداشته باشم ولی کاربر ahmadb آیا نکته ای را که کاربر Payman_62 در پست پنجم گفتند رعایت کردید؟
iran2008
09-09-2007, 01:41
سلام
مثلا در یک فرم یک دکمه داریم و یک تکست باکس.
حال میخوامم یه چیزی رو که توی تکست باکس مینویسم به ایمیلمان فرستاده بشه.
من کد ارسال متن به ایمیل رو میخوام.
iran2008
09-09-2007, 13:08
لطفا تو رو خدا جواب منو بدید
sherwood
09-09-2007, 15:57
Dim Counter As Integer
Private Sub Command1_Click()
If txtFrom.Text <> "" And txtRcpt.Text <> "" And txtSubject.Text <> "" And txtBody.Text <> "" Then
wskEmail.Connect "mail.hotmail.com", 25
Timer1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
wskEmail.Close
End Sub
Private Sub Form_Load()
Dim MyIP As String
MyIP = wskEmail.LocalHostName & "'s " & "IP address is " & wskEmail.LocalIP
Label1.Caption = MyIP
End Sub
Private Sub menuExit_Click()
wskEmail.Close
End
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Counter = Counter + 1
If Counter = 1 Then
wskEmail.SendData "helo" & vbCrLf
ElseIf Counter = 2 Then
wskEmail.SendData "mail from: " & txtFrom.Text & vbCrLf
ElseIf Counter = 3 Then
wskEmail.SendData "rcpt to: " & txtRcpt.Text & vbCrLf
ElseIf Counter = 4 Then
wskEmail.SendData "data" & vbCrLf
ElseIf Counter = 5 Then
wskEmail.SendData "subject: " & txtSubject.Text & vbCrLf
ElseIf Counter = 6 Then
wskEmail.SendData vbCrLf
ElseIf Counter = 7 Then
wskEmail.SendData txtBody.Text & vbCrLf
ElseIf Counter = 8 Then
wskEmail.SendData "." & vbCrLf
ElseIf Counter = 9 Then
wskEmail.SendData "quit" & vbCrLf
Timer1.Enabled = False
End If
End Sub
Private Sub wskEmail_DataArrival(ByVal bytesTotal As Long)
Dim Incomming As String
wskEmail.GetData Incomming
Text1.Text = Incomming & vbCrLf & Text1.Text
End Sub
iran2008
12-09-2007, 23:53
بچه ها دستتون درد نکنه
ولی اگه یه سورس ساده که یه متن رو از تو تکس باکس به ایمیل یاهو یا هر ایمیل دیگه ای بتونه بفرسته بذارین ممنون میشم و هم کار من اینطوری راه میافته.
تاکید میکنم یه سورس ساده باشه.
cityslicker
12-09-2007, 23:55
سلام این کد مشکل داره اجرا نمیشه
سلام
بچه ها دستتون درد نکنه
ولی اگه یه سورس ساده که یه متن رو از تو تکس باکس به ایمیل یاهو یا هر ایمیل دیگه ای بتونه بفرسته بذارین ممنون میشم و هم کار من اینطوری راه میافته.
تاکید میکنم یه سورس ساده باشه.
میدانم که منظورتان VB6 بوده ولی کد VB8 را میگذارم تا تفاوت را احساس کنید! (در مورد کد VB6 هم من که کاری با آن ندارم! :11:)
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
یک کم هم انرژی از خودتان نشان دهید!!! چون به نظرم منظور شما از کد ساده کد دوخطی است!!! و باید بدانید که برنامه نویسی یک کلمه "نویسی" هم دارد و در نتیجه باید کد بنویسید، صدها و هزاران خط، نمیشود هر کاری را در دو خط انجام داد! :31:
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.