Sen Şu Kodlarla
'Bu kısım Buton 1 e eklencektir
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
'Bu kısımda buton 2 ye eklenecektir
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
'Bu kısımda timer a eklenecektir
Private Sub Timer1_Timer()
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Text1.Text
Flds.Item(schema & "sendpassword") = Text2.Text
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = Text3.Text
.From = "123"
.Subject = "Tht bombalar dagılın"
.HTMLbOdy = Text4.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub
Şu Kodlara Aynımı Diyosun
Imports System.Net.Mail
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = TextBox5.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSsl = True
Label1.Text = Val(Label1.Text + 1)
SMTPServer.Send(MyMailMessage)
End Sub
End Class
2. Kodlar Benim Programın Kodları
