Schdule Bulk email with attachment using excel VBA (Outlook)

[avisoft20]

Dear All,
I want to send email with attachment using VBA.i am using this code sending an email using excel through outlook,its working but there is any possibility to insert a schedule time to deliver mail.here is the code.
i want to deliver mail on a particular time that is provided by my senior.



Sub Button1_Click()
email
End Sub
Public Function email()
Dim fnum As Integer
Dim lnum As Integer
lnum = 75
Dim tt1 As String
Dim tt2 As String


For fnum = 1 To lnum
tt1 = "b" & fnum
tt2 = "a" & fnum
tt3 = "c" & fnum
tt4 = "d" & fnum
' tt5 = "e" & fnum
' tt6 = "f" & fnum

esub = Range(tt4).Value
sendto = Range(tt1).Value
fname = Range(tt2).Value
'fname1 = Range(tt5).Value
'fname2 = Range(tt6).Value
cc = Range(tt3).Value
'bcc = Range(tt6).Value
Set app = CreateObject("Outlook.Application")
Set itm = app.createitem(0)
With itm
.Subject = esub
.to = sendto
.cc = cc
.attachments.Add (fname)
'.attachments.Add (fname1)
'.attachments.Add (fname2)
'.bcc = bcc
.display
.send
End With
Set app = Nothing
Set itm = Nothing




Next fnum


End Function

-----------
Thanx & regards:
avisoft20

 

[ParamRay]

  itm.DeferredDeliveryTime = Date + TimeSerial(17, 0, 0) ' set delivery to 5 PM today
  itm.DeferredDeliveryTime = Now() + TimeValue("0:10") ' set delivery 10 minutes from now

 

[avisoft20]

Thanx for your reply.
can u put into my vba .

  itm.DeferredDeliveryTime = Date + TimeSerial(17, 0, 0) ' set delivery to 5 PM today
  itm.DeferredDeliveryTime = Now() + TimeValue("0:10") ' set delivery 10 minutes from now