مشاهده نسخه کامل
: سورس ارسال ايميل مي خواستم
shamsoft
08-09-2006, 03:20
سلام
آقا من يه سورس ارسال ايميل مي خوام كه جواب بده.
فقط از اينا نباشه كه از طريق يه صفحه ديگه ايميل ميزنه.اگه از طريق سرور ياهو باشه خيلي بهتره
این به دردت می خوره؟
کد:
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
كد ها رو داخل تگ كد بنويسيد راحت تر باشه
مرسي [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
shamsoft
11-09-2006, 18:50
وروجك جان دستت درد نكنه
برم امتحان كنم ببينم كار مي كنه
wolf_c666
11-09-2006, 19:52
وروجك خيلي به درد من خورد مرسي
shamsoft
11-09-2006, 21:53
آقا اين كد كار نكرد.كسي كد ديگه اي سراغ نداره؟
خيلي فوريه اگه ميشه سريعتر :sad:
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.