تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 6 از 6

نام تاپيک: سورس ارسال ايميل مي خواستم

  1. #1
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Mar 2006
    پست ها
    249

    پيش فرض سورس ارسال ايميل مي خواستم

    سلام
    آقا من يه سورس ارسال ايميل مي خوام كه جواب بده.
    فقط از اينا نباشه كه از طريق يه صفحه ديگه ايميل ميزنه.اگه از طريق سرور ياهو باشه خيلي بهتره

  2. #2
    آخر فروم باز vorojax's Avatar
    تاريخ عضويت
    Mar 2006
    محل سكونت
    آنجا که دل خوشست....
    پست ها
    1,270

    پيش فرض

    این به دردت می خوره؟
    کد:
    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

  3. #3
    کـاربـر بـاسـابـقـه Wisdom's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    テヘラン
    پست ها
    2,738

    پيش فرض

    كد ها رو داخل تگ كد بنويسيد راحت تر باشه

    مرسي

  4. #4
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Mar 2006
    پست ها
    249

    پيش فرض

    وروجك جان دستت درد نكنه
    برم امتحان كنم ببينم كار مي كنه

  5. #5
    در آغاز فعالیت wolf_c666's Avatar
    تاريخ عضويت
    Sep 2006
    پست ها
    7

    پيش فرض

    وروجك خيلي به درد من خورد مرسي

  6. #6
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Mar 2006
    پست ها
    249

    پيش فرض

    آقا اين كد كار نكرد.كسي كد ديگه اي سراغ نداره؟
    خيلي فوريه اگه ميشه سريعتر

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •