Private Sub cmdSend_Click()
Dim strTO As String
Dim strSubject As String
Dim strMessage As String



strTO = "zxz@icentar.ba" 'ili polje strto=Me.imepolja

strSubject = "Neki naslov"
        strMessage = "From:  " & "Posiljalac" & vbTab & vbTab & vbTab & "datum" _
                    & vbCrLf & vbCrLf & "Tekst" & vbCrLf & vbCrLf & "Posiljalac: webmaster@icentar.ba" & vbCrLf & vbCrLf
    
                DoCmd.SendObject , , acFormatTXT, strTO, , , strSubject, strMessage, True '--> Ako stavis false onda ce direkt slati

    
End Sub