Dim terminalbilgisi As String
 
 
Private Sub Command16_Click()
Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
 
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = "xxxx@deneme.com"
            .Subject = terminalbilgisi & " nolu terminal hakkında..."
            .HTMLBody = "Konuyu Bilgilerinize sunarız."
            .Send
            End With
            Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
            Resume Error_out
Error_out:
End Sub
 
Private Sub Form_Timer()
Dim trz        As String
trz = CStr(Format(Time, "hhnn"))
If Format( _
   DLookup("birsaatsonrasi", "ULASILAMADI", _
           "cstr(format(birsaatsonrasi,'hhnn'))='" & trz & "' "), _
           "hhnn") = trz Then
 terminalbilgisi = DLookup("[TERMİNAL ID]", "ULASILAMADI", _
                   "cstr(format(birsaatsonrasi,'hhnn'))='" & trz & "' ")
    MsgBox terminalbilgisi & " no'lu Terminal için ARAMA yapılması gerekiyor"
    Call Command16_Click
End If
End Sub