@-MAİL GÖNDERME ( Yeni )

Celebrian · #1 24-12-2007, 12:38

@-MAİL GÖNDERME ( Yeni ) İ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
'************************************************* *****

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
İçeriğinizi Google'a gönderme	kadınca	Google Servisleri	4	25-11-2008 07:43
E-maİl Üzerİnden BulaŞan VİrÜsler & E-posta GÜvenlİĞİ	kadınca	Güvenlik açıkları	1	14-03-2008 01:35
Ana Sayfa'ya içerik gönderme	egitimbilgisi	Php kodları	0	26-11-2007 03:54
gönderme (gönderim)	Celebrian	Felsefe	0	20-11-2007 08:35
sms gönderme betiği	kadınca	.NET programcılığı	0	04-11-2007 12:39

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder