ارسال ایمیل

[arashps]

با خودت بودی بیسواد؟ این حرفا چیه ؟ شما استاد مایی
مخلصیم

[arashps]

اگه بتونیم راه فرستادن اتچ با smtp رو پیدا کنیم توپ میشه

[Iron_Fist]

راستی عکس العمل فایروال نسبت به استفاده از این روش چیه

[arashps]

شما قراره میل رو بفرستی خب فایروال هم گیر بده بهش میگی اجازه بده! اما به نظرم کلا برنامه هایی که ایمیل و ... رو کنترل میکنن رو دیزیبل کنی بهتره نکنی هم فکر نکنم مشکلی داشته باشه.

[Payman62]

فکر کنم منظور خسرو خان فایروال قربانی بود.

[Payman62]

معمولا خاصیت آنتی اسپم میل ها این جور میل هارو وارد bulk در یاهو یا junk mail در هاتمیل میکنه. معمولا هم کسی اسپم ها رو چک نمیکنه و با کلیک به روی empty همه اسپم هارو پاک میکنه و ایمیلی هم که شما فرستادی پاک میشه. چه بد.

[Payman62]

این یه نمونه کد برای سند میل توسط 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

[arnh]

MailServerName
چیه ؟
-------
این سورس بیش از اون که فکر کنی ناقصه .
منم فک کنم . ده تا از این سورس ها داشته باشم.
------
مسئله جوابه .

[Payman62]

MailServerName همون smtp هست دیگه. مثلا اگه به یاهو میخوای میل بزنی smtp یاهو رو توش قرار میدی.

[arnh]

smtp چيه ؟
يا Smtp‌ ياهو چيه ؟

[vorojax]

همون جایی که یاهو ازش بهت میل میزنه یعنی مثلا تو اگه از یاهو به رفیقت میل میزینی یعنی از smtp یاهو استفاده کردی