۲۸-اردیبهشت-۱۳۸۵, ۲۲:۱۴:۴۲
۲۸-اردیبهشت-۱۳۸۵, ۲۲:۱۶:۲۵
اگه بتونیم راه فرستادن اتچ با smtp رو پیدا کنیم توپ میشه
۲۸-اردیبهشت-۱۳۸۵, ۲۲:۵۰:۵۸
راستی عکس العمل فایروال نسبت به استفاده از این روش چیه
۲۸-اردیبهشت-۱۳۸۵, ۲۲:۵۴:۴۵
شما قراره میل رو بفرستی خب فایروال هم گیر بده بهش میگی اجازه بده! اما به نظرم کلا برنامه هایی که ایمیل و ... رو کنترل میکنن رو دیزیبل کنی بهتره نکنی هم فکر نکنم مشکلی داشته باشه.
۲۹-اردیبهشت-۱۳۸۵, ۰۱:۴۸:۱۶
فکر کنم منظور خسرو خان فایروال قربانی بود.
۲۹-اردیبهشت-۱۳۸۵, ۰۱:۵۲:۴۲
معمولا خاصیت آنتی اسپم میل ها این جور میل هارو وارد bulk در یاهو یا junk mail در هاتمیل میکنه. معمولا هم کسی اسپم ها رو چک نمیکنه و با کلیک به روی empty همه اسپم هارو پاک میکنه و ایمیلی هم که شما فرستادی پاک میشه. چه بد.
۲۹-اردیبهشت-۱۳۸۵, ۰۲:۱۱:۲۳
این یه نمونه کد برای سند میل توسط smtp. البته attach کردن رو شامل نمیشه. ولی فعلا سند میل رو یاد بگیر تا بعد.
کد:
Dim Response As String
Dim Start As Single, Tmr As Single
Private Sub CmdSendMail_Click()
SendEmail txtEmailServer.Text, txtFromName.Text, txtFromEmailAddress.Text, txtToEmailAddress.Text, txtToEmailAddress.Text, txtEmailSubject.Text, txtMessage.Text
StatusTxt.Caption = "Mail Sent"
Beep
Close
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Response
End Sub
Sub WaitFor(ResponseCode As String)
Start = Timer
While Len(Response) = 0
Tmr = Start - Timer
DoEvents
If Tmr > 50 Then
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
Respons = ""
End Sub
Sub SendEmail(MailServerName As String, FromName As String, FromEmailAddress As String, ToName As String, ToEmailAddress As String, EmailSubject As String, EmailBodyOfMessage As String)
Dim DateNow As String
Dim first As String, Second As String, Third As String
Dim Fourth As String, Fifth As String, Sixth As String
Dim Seventh As String
With Winsock1
If .State = sckClosed Then
DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600 "
first = "mail from: " & FromEmailAddress & vbCrLf
Second = "rcpt to: " & ToEmailAddress & vbCrLf
Third = "Date: " & DateNow & vbCrLf
Fourth = "From: """ & FromName & """ <" & FromEmailAddress & ">" + vbCrLf
Fifth = "To: " & txtToName & vbCrLf
Sixth = "Subject: " & EmailSubject & vbCrLf
Seventh = EmailBodyOfMessage & vbCrLf
Ninth = "X-Mailer: STMP Sender" & vbCrLf
.LocalPort = 0#
.Protocol = sckTCPProtocol
.RemoteHost = MailServerName
.RemotePort = 25#
.Connect
WaitFor ("220")
StatusTxt.Caption = "Connecting...."
.SendData ("HELO EnterComputerNameHere" & vbCrLf)
WaitFor ("250")
StatusTxt.Caption = "Connected"
.SendData (first)
StatusTxt.Caption = "Sending Message"
WaitFor ("250")
.SendData (Second)
WaitFor ("250")
.SendData ("data" & vbCrLf)
WaitFor ("354")
.SendData (Fourth & Third & Ninth & Fifth & Sixth & vbCrLf)
.SendData (Seventh & vbCrLf)
.SendData ("." & vbCrLf)
WaitFor ("250")
.SendData ("quit" & vbCrLf)
StatusTxt.Caption = "Disconnecting"
WaitFor ("221")
.Close
Else
MsgBox "Error", , "Error"
End If
End With
End Sub۳۱-اردیبهشت-۱۳۸۵, ۱۷:۲۶:۴۷
MailServerName
چیه ؟
-------
این سورس بیش از اون که فکر کنی ناقصه .
منم فک کنم . ده تا از این سورس ها داشته باشم.
------
مسئله جوابه .
چیه ؟
-------
این سورس بیش از اون که فکر کنی ناقصه .
منم فک کنم . ده تا از این سورس ها داشته باشم.
------
مسئله جوابه .
۳۱-اردیبهشت-۱۳۸۵, ۱۹:۱۳:۰۶
MailServerName همون smtp هست دیگه. مثلا اگه به یاهو میخوای میل بزنی smtp یاهو رو توش قرار میدی.
۳۱-اردیبهشت-۱۳۸۵, ۱۹:۴۸:۵۹
smtp چيه ؟
يا Smtp ياهو چيه ؟
يا Smtp ياهو چيه ؟
۳۱-اردیبهشت-۱۳۸۵, ۲۰:۱۱:۱۹
همون جایی که یاهو ازش بهت میل میزنه یعنی مثلا تو اگه از یاهو به رفیقت میل میزینی یعنی از smtp یاهو استفاده کردی