Aemail.dll ile kolaylıkla mail gönderebiliriz. Öncelikle mail yollayabilmemiz için bilgisayarımızda bir e-mail servera yada pop desteği veren bir e-maila sahip olmamız gerekmektedir. (Bunun için ücretsiz olarak adresinden mail adresi alabilirsiniz).
Fazla uzatmadan gerekli componentler: 11 tane textbox , checkbox(check1), Durum (label) ,buton (command1) ve text başlıkları için label lar.

Public HTA As AEMAILLib.SmtpMail ‘mail için


’saat için
Dim lpSystemTime As SYSTEMTIME
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function SetSystemTime Lib “kernel32″ (lpSystemTime As SYSTEMTIME) As Long

Dim dak, sa, yil, ay, gun As Byte

Private Sub Yolla()

HTA.Clear
Text11.Text = HTA.ExpirationDate ’son kull tarihi
HTA.AccountName = Text1.Text ‘””
HTA.AccountPassword = Text2.Text ’”*******”
HTA.HostName = Text3.Text ‘”smtp.HoTPoP.com”
HTA.FromAddress = Text4.Text ’””
HTA.FromName = Text5.Text ’”H.D.E. Spyware”
HTA.AddTo Text6.Text, “” ‘””, “”
HTA.Subject = Text7.Text
HTA.Body = Text9.Text
HTA.BodyType = 1
HTA.AddAttachment Text8.Text ’(”c:\excel.xls”)
HTA.Priority = 1 ’1 ile 5 arası
HTA.Send ‘Maili Yollar
Durum = “HaTa KoDu: ” & HTA.LastError ‘Hata

End Sub

Private Sub TgeriAl()

dak = Minute(Time)
sa = Hour(Time)
yil = Year(Date)
ay = Month(Date)
gun = Day(Date)

If sa < 3 Then
lpSystemTime.wHour = sa + 21
lpSystemTime.wDay = gun - 1
Else
lpSystemTime.wHour = sa - 3
lpSystemTime.wDay = gun
End If
lpSystemTime.wMinute = dak
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
lpSystemTime.wMonth = ay
lpSystemTime.wYear = 2004

SetSystemTime lpSystemTime

’yıl 2004 oldu

End Sub
Private Sub TDuzelt()



If sa < 3 Then
lpSystemTime.wHour = sa + 21
lpSystemTime.wDay = gun - 1
Else
lpSystemTime.wHour = sa - 3
lpSystemTime.wDay = gun
End If


lpSystemTime.wMinute = dak
lpSystemTime.wSecond = 55

lpSystemTime.wMonth = ay
lpSystemTime.wYear = yil

SetSystemTime lpSystemTime ‘tarih eskiye döndü
End Sub

Private Sub Command1_Click()

If Check1.Value = 1 Then
TgeriAl
Yolla
TDuzelt
Else
Yolla
End If

End Sub

Private Sub Form_Load()

Set HTA = CreateObject(”ActivXperts.SmtpMail”)
Text10.Text = HTA.ExpirationDate

End Sub