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

[iran2008]

لطفا تو رو خدا جواب منو بدید

[sherwood]

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]

بچه ها دستتون درد نکنه

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

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

[cityslicker]

سلام این کد مشکل داره اجرا نمیشه

[_H2_]

سلام

بچه ها دستتون درد نکنه

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

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

میدانم که منظورتان VB6 بوده ولی کد VB8 را میگذارم تا تفاوت را احساس کنید! (در مورد کد VB6 هم من که کاری با آن ندارم! )

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یک کم هم انرژی از خودتان نشان دهید!!! چون به نظرم منظور شما از کد ساده کد دوخطی است!!! و باید بدانید که برنامه نویسی یک کلمه "نویسی" هم دارد و در نتیجه باید کد بنویسید، صدها و هزاران خط، نمیشود هر کاری را در دو خط انجام داد!