bir mailserver kuralım... Sub SendEmail Winsock1. LocalPort = 0 ' Must set local port to 0 or you can only send 1 e-mail pre program start If Winsock1. State = sckClosed Then ' Check to see if socet is closed DateNow = Format & ", " & Format & " " & Format & "" & " -0600" first = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf ' Get who's sending E-Mail address Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf ' Get who mail is going to Third = "Date:" + Chr(32) + DateNow + vbCrLf ' Date when being sent Fourth = "From:" + Chr(32) + FromName + vbCrLf ' Who's Sending Fifth = "To:" + Chr(32) + ToNametxt + vbCrLf ' Who it going to Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf ' Subject of E-Mail Seventh = EmailBodyOfMessage + vbCrLf ' E-mail message body Ninth = "mouse mailer" + vbCrLf ' What program sent the e-mail, customize this Eighth = Fourth + Third + Ninth + Fifth + Sixth ' Combine for proper SMTP sending Winsock1. Protocol = sckTCPProtocol ' Set protocol for sending Winsock1. RemoteHost = MailServerName ' Set the server address Winsock1. RemotePort = 25 ' Set the SMTP Port Winsock1. Connect ' Start connection WaitFor ("220") StatusTxt. Caption = "Connecting..." StatusTxt. Refresh Winsock1. SendData WaitFor ("250") StatusTxt. Caption = "Connected" StatusTxt. Refresh Winsock1. SendData StatusTxt. Caption = "Sending Message" StatusTxt. Refresh WaitFor ("250") Winsock1. SendData WaitFor ("250") Winsock1. SendData WaitFor ("354") Winsock1. SendData Winsock1. SendData Winsock1. SendData WaitFor ("250") Winsock1. SendData StatusTxt. Caption = "Disconnecting" StatusTxt. Refresh WaitFor ("221") Winsock1. Close Else MsgBox (Str(Winsock1. State)) End If End Sub Sub WaitFor Start = Timer ' Time event so won't get stuck in loop While Len = 0 Tmr = Start - Timer DoEvents ' Let System keep checking for incoming response IMPORTANT If Tmr > 50 Then ' Time in seconds to wait MsgBox "SMTP service error, timed out while waiting for response", 64, MsgTitle Exit Sub End If Wend While Left(Response, 3) <> ResponseCode DoEvents If Tmr > 50 Then MsgBox "SMTP service error, impromper response code. Code should have been: " + ResponseCode + " Code recieved: " + Response, 64, MsgTitle Exit Sub End If Wend Response = "" ' Sent response code to blank IMPORTANT End Sub Private Sub Command1_Click SendEmail txtEmailServer. Text, txtFromName. Text, txtFromEmailAddress. Text, txtToEmailAddress. Text, txtToEmailAddress. Text, txtEmailSubject. Text, txtEmailBodyOfMessage. Text 'MsgBox StatusTxt. Caption = "Mail Sent" StatusTxt. Refresh Beep Close End Sub Private Sub Command2_Click End End Sub Private Sub Winsock1_DataArrival Winsock1. GetData Response ' Check for incoming response IMPORTANT End Sub Ç<ALINTIDIR>

tamam kardeş bende daha yeni dershaneden çıktım stres atmaya geldim şu benim niye? başlıklı konuyada bir el atarsan sevnirim

eywalalh saol şimdi ödev yapıom bakamıcam ama sonra mutlaka denicem

ben upload ettim indir istersen ama mail olarak atmadım.

EDİT : Offf yine flod oldu