ilk önce forma 4 txt 1 timer 2 buton ekliyoruz sonra timer invertalini 100 yapıyoruz ve kodu timere yapıştrıyoruz sonra düzeltmeleri yapınca butonların 2 sinede kodları tek tek girioruz. ve bomber hazır 
Timer1. yazılan kod
Düzeltmelerin yapılması nasıl olur derseniz bunlşar deişecek :=)) aşağıdaki gibi olucak.
Flds.Item(schema & "sendusername") = Text1.Text
Flds.Item(schema & "sendpassword") = Text2.Text
.To = Text3.Text
.From = "Bombacı önder"
.Subject = "deneme"
.HTMLbOdy = Text4.Text
şeklinde şimdi commnd1 in adını başlat comman 2 nin adınıda durdur yapıcaz.
Command1 & Command2, Caption = Başlat & Durdur (name kısmı deişmiyecek)
Command1in kodu
Command2 nin kodu
Bu kadar Ayarlama resim vb. şeyler ekliye bilirsiniz.
Timer1. yazılan kod
Kod:
[COLOR=Lime]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") = gmail username
Flds.Item(schema & "sendpassword") = gmail şifre
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = mailin gideceği kişi
.From = ""
.Subject = ""
.HTMLbOdy = mesajj
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With[/COLOR]Flds.Item(schema & "sendusername") = Text1.Text
Flds.Item(schema & "sendpassword") = Text2.Text
.To = Text3.Text
.From = "Bombacı önder"
.Subject = "deneme"
.HTMLbOdy = Text4.Text
şeklinde şimdi commnd1 in adını başlat comman 2 nin adınıda durdur yapıcaz.
Command1 & Command2, Caption = Başlat & Durdur (name kısmı deişmiyecek)
Command1in kodu
Kod:
[COLOR=Lime]Timer1.Enabled = True[/COLOR]Command2 nin kodu
Kod:
[COLOR=Lime]Timer1.Enabled = False[/COLOR]
