*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->


Join the forum, it's quick and easy


*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->

Would you like to react to this message? Create an account in a few clicks or log in to continue.

● En Güncel Paylaşım Platformu ●

---Misafir--- Hos Geldiniz Daha iyi Bir Hizmet İçin Üye olunuz.ÜyeLer Link GörebiLir

    Vb Kod Mail Gönderme

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


    <b>Doğum tarihi</b> Doğum tarihi : 20/06/90
    • Post n°1

    Vb Kod Mail Gönderme Empty Vb Kod Mail Gönderme

    Mesaj tarafından MnyTirith Cuma Mart 12, 2010 9:40 pm

    İlk olarak yeni bir proje açalım ve içine text1,text2,text3,text4,timer1 ve command1 ekleyelim
    daha sonra bu kodları formun kod kısmına yapıştıralım.

    '******************************************************
    Private Sub Command1_Click()
    On Local Error Resume Next
    Dim x
    Winsock1.RemoteHost = Trim(Text1.Text)
    Winsock1.RemotePort = 25 'server'ın SMTP portu
    Winsock1.LocalPort = 0 'işletim sistemi otomatik olarak bir port verir
    Winsock1.Connect
    If Winsock1.State = 7 Then
    x = "mail from: " & Trim(Text2.Text) & vbCrLf
    Winsock1.SendData x
    x = "rcpt to:" & Trim(Text3.Text) & vbCrLf
    Winsock1.SendData x
    x = "deneme" & vbCrLf
    Winsock1.SendData x
    x = Trim(Text4.Text) & vbCrLf
    Winsock1.SendData x
    x = "." & vbCrLf 'email bitti demek icin bunu yollamalisin.
    'SMTP server bunu anlar
    Winsock1.SendData x
    x = "QUIT" & vbCrLf
    Winsock1.SendData x
    End If
    End Sub

    Private Sub Timer1_Timer()
    Select Case Winsock1.State
    Case 0: Me.Caption = "Kapalı"
    Case 1: Me.Caption = "Açık"
    Case 2: Me.Caption = "Port Dinleniyor"
    Case 4: Me.Caption = "Verilen Adres Çözülüyor."
    Case 5: Me.Caption = "Adres Çözüldü."
    Case 6: Me.Caption = "Bağlanıyor."
    Case 7: Me.Caption = "Bağlandı."
    Case 8: Me.Caption = "Karşısı bağlantıyı kapatıyor."
    Case 9: Me.Caption = "Hata Oluştu."
    Winsock1.Close
    End Select
    End Sub

    • Sayfa başına dön

      Forum Saati Cuma Mayıs 17, 2024 3:40 am