Visual, basic, ile, seri, e, posta, gönderme, hakkında, Visual, basic, ile, seri, e, posta, gönderme, nedir, Visual, basic, ile, seri, e, posta, gönderme, resimleri, ile ilgili, detayları, ayrıntıları, izle,indir,download,son bölüm,youtube, Sondakika Haberleri, Siyaset Haberleri, Türkiye Basınından Haberler, Dünya Basınından Haberler, Bilim & Teknoloji Haberleri, Ekonomi ve Para Piyasaları, Hava ve Yol Durumu, Spor Haberleri, Bilgisayar ve Donanım,Visual, basic, ile, seri, e, posta, gönderme Anakart, İşlemciler, Ekran Kartı, C ve C++, C#, Visual Basic, Java, Pascal, Delphi, Bilgisayar Yazılım ve Programlama, 3D Tasarım & Modelleme, Adobe Photoshop ve Dreamweaver Kullanımı ve Dersleri, Anti-Virus Programları İndir, kurtlarvadisi Pusu, Flash & Resim & Grafik Programları, Ses & Görüntü & Video Programları İndir, Visual, basic, ile, seri, e, posta, gönderme Sistem ve İnternet Programları, Program Yama ve Eklentileri İndir, Download, Yükle, Oyun, Visual, basic, ile, seri, e, posta, gönderme indir, download, yükle, oyun hileleri, playstation2 ve oyun konsolları, Online Oyunlar, Mu Online,World of Warcraft, Ogame, Counter Strike, Knight Online, Ogame, Güzellik & Bakım ve Makyaj, Giyim ve Moda, Alışveriş ve Ev Dekorasyonu, Anne ve Çocuk, Koç, Boğa, İkizler, Yengeç, Aslan, Başak, Terazi, Akrep, Yay, Oğlak, Kova, Balık, Burcu, www.masterforums.net Çorba Tarifleri, Sebze Yemekler, Et Yemekleri ve Köfteler, Pilav & Makarna ve Matı Tarifleri, Deniz Ürünleri ve Balık Yemekleri, Tatlı Tarifleri, Tuzlu Tarifleri, Marmelat ve Reçel Tarfileri, Salata ve Meze Tarifleri, Sos Tarifleri ve Terbiyeler, İçecekler, Mutfak Araç ve Gereçleri, Genel Sağlık ve Sağlık Sorunları, Ağız ve Dil, Göz Sağlığı, Bağımlılık ve Tedavi Yöntemleri, Kanser ve Türleri, Alternatif Tıp, Beslenme ve Diyet, Spor ve Sağlık, İlk Yardım Bilgileri, Dini Bilgiler ve Sohbet, Din Büyükleri, Kuran-ı Kerim ve Türkçe Meali, Ayet ve Hadisler, Dini Dökümanlar - Multimedya, e-Devlet, Hukuk ve Haklar, Visual, basic, ile, seri, e, posta, gönderme Ekonomi ve Borsa, Bilim ve Teknoloji Dünyası, Nano Teknoloji, Nükleer Teknoloji, İnsan Bilimi, Astronomi (Uzay Bilimi), Diğer Bilim Dalları, Sanat Makaleleri, Türk Süsleme Sanatı, Heykel ve Resim Sanatı, Opera & Bale Sanatı, Siyaset & Politika & Asker, Bilim Adamları, Edebiyat & Müzik & Sanat & Ünlüler, Sporcu Biyografileri, İslam Tarihi, Genel Tarih, Türk & Osmanlı Tarihi, İslam Tarihi, Biyografi, kimdir, nedir, Edebiyat ve edebi yazılar Atasözleri , Deyimler, Edebi Yazı, Deneme ve Şiir, Eğitim & Öğretim Kitapları, Roman ve Hikaye Kitapları, Şiir Kitapları, Matematik Dersleri, Geometri Dersleri, Fizik Dersleri, Kimya Dersleri, Biyoloji Dersleri, Edebiyat & Türkçe Dersleri, Tarih Dersleri, Coğrafya Dersleri, Yabancı Dil Dersleri, Bilgisayar Dersleri, Sağlık Bilgisi Dersleri, Din Bilgisi Dersleri, Felsefe Dersleri, Psikoloji Dersleri,Mühendislik Bilgileri, Mimarlık Bilgileri, Ekonomi & İktisat & İşletme Bilgileri, Tıp Bilgileri, Jeoloji & Jeofizik, Arkeoloji Bilgileri, Visual, basic, ile, seri, e, posta, gönderme Turizm ve İnsan Kaynakları Bilgileri, Dallas Mavericks Genel Resimler, Komik Resimler, Duvar Kağıdı (Walpaper), Ünlüler & Top Modeller, Kendi Çekimleriniz, Korkunç Resimler (+18), Genel Videolar, Komik Videolar, Korkunç Videolar (+18), Motorlu Araç Videoları, Kendi Çekimleriniz, Video Download, Yerli, yabancı, şarkılar, videolar, video klipler, sanatçı biyografileri, şarkı sözü oku, müzik dinle, video klip, izle, youtube, metecafe, Nokia, Siemens, Motorola, Wallpaper,Logo,Melodi,Tema,oyun,program, Arçelik - Beko Uydu, Amstrad Uydu, Goldmaster Uydu, Next Uydu, Sunny Uydu, Topfield Uydu, Yumatu Uydu, Vestel Uydu, Diğer Uydu Cihazları, Matrix Cam, Xcam - Ultra Cam, IceCrypt / Joker / Sky / Zeta, Dragon Cam, Diğer Modüller, Sinema Haberleri, Fragmanlar ve Film Tanıtımları, Galatasaray, Fenerbahçe, Beşiktaş, Visual, basic, ile, seri, e, posta, gönderme Trabzonspor, futbol, basketbol, voleybol, hentbol, nba, Genel Askeri Konular, Kara Kuvvetleri Komutanlığı, Hava Kuvvetleri Komutanlığı, Deniz Kuvvetleri Komutanlığı, Özel Birlikler, İstihbarat Birlikleri & Kuruluşları, Makinalı Silahlar Visual, basic, ile, seri, e, posta, gönderme
+ Dostluk ve Paylaşım Forumu - Kültür & Sanat & Edebiyat & Tarih & Bilim & Teknoloji » Yazılım & Programlama ve Tasarım » Bilgisayar Yazılım ve Programlama » Visual Basic 
 Visual basic ile seri e-posta gönderme
Kullanıcı Adı: Beni Hatırla
Şifre:
Ana Sayfa Yardım Üyeler      Giriş Yap Kayıt

Reklam


Sayfa: [1]   Yukarı git
Konu: Visual basic ile seri e-posta gönderme  (Okunma Sayısı 153 defa) Seçenekler Arama
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
« : Şubat 11, 2008, 09:56:53 ÖS »
LoVeLY
Master Üye
****

Tesekkür
-Verilmis: 0
-Kaldirilan: 0


Karma: 310
Offline Offline

Mesaj Sayısı: 813


Üyelik Bilgileri

Visual basic ile seri e-posta gönderme
Visual basic ile seri e-posta gönderme
Kod:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "Seri E-Posta"
ClientHeight = 8220
ClientLeft = 45
ClientTop = 435
ClientWidth = 10095
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8220
ScaleWidth = 10095
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame2
Height = 3015
Left = 1950
TabIndex = 17
Top = 4380
Width = 6255
Begin VB.CommandButton Command3
Caption = "Hakında"
Height = 255
Left = 4680
TabIndex = 6
Top = 1080
Width = 1335
End
Begin VB.TextBox txtkimden
Height = 375
Left = 960
TabIndex = 1
Top = 360
Width = 3255
End
Begin VB.TextBox txtkime
Height = 375
Left = 960
TabIndex = 2
Top = 840
Width = 3255
End
Begin VB.CommandButton Command1
Caption = "Gönder"
Height = 255
Left = 4680
TabIndex = 5
Top = 720
Width = 1335
End
Begin VB.TextBox txtbaslik
Height = 375
Left = 960
TabIndex = 3
Top = 1320
Width = 3255
End
Begin VB.TextBox txtmesaj
Height = 975
Left = 960
MultiLine = -1 'True
TabIndex = 4
Top = 1800
Width = 3255
End
Begin VB.Timer Timer1
Left = 4200
Top = 3000
End
Begin VB.CommandButton Command2
Caption = "Posta Sayısı Gir"
Height = 255
Left = 4680
TabIndex = 0
Top = 360
Width = 1335
End
Begin MSWinsockLib.Winsock Winsock1
Left = 3960
Top = 2040
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "Mesaj"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 240
Index = 7
Left = 240
TabIndex = 21
Top = 2160
Width = 645
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "Başlık:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 240
Index = 6
Left = 240
TabIndex = 20
Top = 1320
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "Kime:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 240
Index = 5
Left = 360
TabIndex = 19
Top = 840
Width = 585
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "Kimden:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 240
Index = 4
Left = 120
TabIndex = 18
Top = 360
Width = 840
End
End
Begin VB.Frame Frame1
Height = 1935
Left = 3150
TabIndex = 7
Top = 2130
Width = 6255
Begin VB.TextBox txtadet
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 960
TabIndex = 9
Text = "1"
Top = 480
Width = 975
End
Begin VB.TextBox txtkalan
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 960
TabIndex = 8
Text = "0"
Top = 840
Width = 975
End
Begin MSComctlLib.ProgressBar bar2
Height = 255
Left = 960
TabIndex = 10
Top = 1560
Width = 5175
_ExtentX = 9128
_ExtentY = 450
_Version = 393216
Appearance = 1
End
Begin MSComctlLib.ProgressBar bar1
Height = 255
Left = 960
TabIndex = 11
Top = 1200
Width = 5175
_ExtentX = 9128
_ExtentY = 450
_Version = 393216
Appearance = 1
Max = 50
End
Begin VB.Label Label7
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Durum:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 120
TabIndex = 16
Top = 1200
Width = 735
End
Begin VB.Label Label7
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "İlerleme:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007&
Height = 255
Index = 1
Left = 120
TabIndex = 15
Top = 1560
Width = 735
End
Begin VB.Label Label7
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "Toplam:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 2
Left = 120
TabIndex = 14
Top = 480
Width = 735
End
Begin VB.Label Label7
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "kalan:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 3
Left = 120
TabIndex = 13
Top = 840
Width = 735
End
Begin VB.Label Label6
Caption = "İşlem Deva Ediyor...."
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 162
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2280
TabIndex = 12
Top = 600
Width = 3375
End
End
Begin VB.Frame Frame3
Height = 1155
Left = 60
TabIndex = 23
Top = 1830
Width = 6255
Begin VB.Image Image1
Height = 975
Left = 30
Picture = "Form1.frx":030A
Stretch = -1 'True
Top = 120
Width = 6165
End
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "BEKLEYİN...!"
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 162
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 1455
TabIndex = 22
Top = 735
Width = 2880
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim durum As Integer
Dim ilerleme As Integer
Dim ilerleme1 As Integer
Dim server As String
Private Sub Command1_Click()
If txtkime.Text = "" Or txtkimden.Text = "" Or txtbaslik.Text = "" Then
MsgBox "boşlukları doldurun"
Exit Sub
End If
baglantidurumu
Winsock1.Connect server, 25
SendStat = 1
Timer1.Interval = 100
Command1.Enabled = False
Frame2.Visible = False
End Sub
Private Sub Command2_Click()
txtadet.Text = InputBox("Gönderilecek Posta Sayısını Girin")
Command1.Enabled = True
End Sub
Private Sub Command3_Click()
MsgBox "http://www.XDarK.i8.com"
End Sub
Private Sub Form_Load()
server = "mx5.turkticaret.net"
baglantidurumu
Frame2.Visible = True
Frame1.Visible = False
Command1.Enabled = False
Form1.Height = 3550
Form1.Width = 6465
Frame2.Top = -15
Frame2.Left = 60
Frame1.Top = -15
Frame1.Left = 60
Frame3.Top = 1830
Frame3.Left = 60
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."
End Select
End Sub


Function baglantidurumu()
Do While Winsock1.State <> sckClosed
DoEvents
Winsock1.Close
Loop
End Function

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
On Error Resume Next
Winsock1.GetData Data
durum = Val(durum) + 1
bar1.Value = durum & "0"
If txtadet.Text = ilerleme1 Then
Winsock1.SendData "QUIT" & vbCrLf
Winsock1.Close
Form1.Height = 3550
Frame2.Visible = True
Frame1.Visible = False
Command1.Enabled = True
MsgBox "İşlem Tamamdır."
Exit Sub
End If
yolla
End Sub
Sub yolla()

Select Case durum
Case 1
Winsock1.SendData "HELO yahoo.com" & vbCrLf
Case 2
Winsock1.SendData "MAIL FROM: " & txtkime.Text & vbCrLf
Case 3
Winsock1.SendData "RCPT TO: " & txtkimden.Text & vbCrLf
Case 4
Winsock1.SendData "DATA" & vbCrLf
Winsock1.SendData "subject: " & txtbaslik.Text & vbCrLf
Winsock1.SendData "msg: " & (txtmesaj.Text) & vbCrLf
Case 5
Winsock1.SendData vbCrLf & "." & vbCrLf
Frame2.Visible = False
Frame1.Visible = True
Command1.Enabled = False

bar2.Max = txtadet.Text & ",0001"
bar2.Value = ilerleme1 & ",0001"
ilerleme = Val(ilerleme) + 1
ilerleme1 = Val(ilerleme1) + 1
txtkalan.Text = txtadet.Text - ilerleme1
Form1.Height = 3550
durum = 0

End Select
End Sub

 

Moderatöre Bildir   Logged
« Yanıtla #1 : Kasım 24, 2008, 11:54:01 ÖS »
Son_durak
Süper Üye
***

Tesekkür
-Verilmis: 0
-Kaldirilan: 0


Karma: 0
Offline Offline

Mesaj Sayısı: 213


Üyelik Bilgileri E-Posta

Ynt: Visual basic ile seri e-posta gönderme
paylaşım için sağol
Moderatöre Bildir   Logged
Etiket:
Reklam
Sayfa: [1]   Yukarı git
« önceki sonraki »
  Seçilenleri sil  
Gitmek istediğiniz yer:  

Benzer İçerikli Konular
Konu Başlığı Başlatan Yanıtlar Görüntülenme Son Mesaj
Visual basic Not girişi programı Visual Basic LoVeLY 1 104 Son Mesaj Kasım 24, 2008, 11:54:09 ÖS
Gönderen: Son_durak
Visual basic kodlamaya girişi Visual Basic LoVeLY 1 128 Son Mesaj Kasım 24, 2008, 11:56:35 ÖS
Gönderen: Son_durak
Visual basic mantığı nedir? Visual Basic LoVeLY 1 139 Son Mesaj Kasım 24, 2008, 11:57:21 ÖS
Gönderen: Son_durak
Visual basic ile hesap makinası programı Visual Basic LoVeLY 0 108 Son Mesaj Şubat 11, 2008, 10:09:27 ÖS
Gönderen: LoVeLY
Visual Basic için 25 kural Visual Basic Derdest 0 34 Son Mesaj Ekim 18, 2008, 04:53:04 ÖS
Gönderen: Derdest
Visual Basic de WebBrowser yapımı Visual Basic Derdest 0 26 Son Mesaj Ekim 18, 2008, 04:54:08 ÖS
Gönderen: Derdest
Visual Basic ile CD-Rom Açıp Kapamak Visual Basic aYLiN 0 15 Son Mesaj Ekim 30, 2008, 09:59:19 ÖS
Gönderen: aYLiN

Önemli Sayfalar
|Kurtlar Vadisi Pusu Yeni ve Eski Bölümleri ve Fragmanları İzle-İndir-Download-Özet Indexi - Kurtlar Vadisi Pusu Yeni 44. Bölüm İzle - Kurtlar Vadisi Pusu Yeni 45. Bölüm İzle | Arka Sokaklar | Avrupa Yakası Özet, Fragman, Resim, Videoları | 99 Esma-ul Hüsna (Allah'ın 99 İsmi)'nden 99 Güzel Dua | Geniş Çanakkale Savaşı Bütün Bilgileri | Aşk & Romantizm ve Duygusallık | Kuran-ı Kerim Türkçe Meali ve Tefsiri | Rüya ve Tabirleri | Biraz Tebessüm - Komik Diyaloglar ve Yazılar | Padişahlar ve Hükümdarlar | Yerli Yabancı Şarkı Sözleri | Oyun Hileleri Arşivi | İslam Tarihi | Film Afişleri | İngilizce Almanca Dil Dersleri | Windows Tema Arşivi | Üniversite Dersler & Ödevleri ve Notları | Lise Dersler & Ödevleri ve Notları | Bir Yudum İnsan - Biyografi | Yaşam ve Sağlık | Astroloji ve Fal | Program İndir Download | Adobe Photoshop Kullanımı ve Dersleri | Driver Kullanım Download | Sıcak Haber
Link Değişimi & Banner Değişimi & Dost Siteler
Dost Siteler: TRSohbetMekan | Fenerbahçe | Link Değişim Zinciri | TRSohbetMekan | Betül-FM

| Site Map | Arşiv | Google Tags | Page's Tags | Url List | Wap | Wap2 | Wap Forum | XML | Rss |
MySQL ile Güçlendirildi PHP ile Güçlendirildi Powered by SMF 1.1.4 | SMF © 2006, Simple Machines LLC
Seo4Smf v0.2 © Webmaster's Talks
vBulletin Theme Design by TurkloRD 		XHTML 1.0 Geçerli! CSS Geçerli!
Bu Sayfa 0.314 Saniyede 46 Sorgu ile Oluşturuldu