Private Sub Command41_Click() On Error GoTo Err_Command41_Click Dim strTO As String Dim strSubject As String Dim strMessage As String strTO = "Me.txtboxemail" 'ili polje strto=Me.imepolja strSubject = "Opomena" strMessage = "From: " & "Posiljalac" & vbTab & vbTab & vbTab & "datum" _ & vbCrLf & vbCrLf & "Tekst" & vbCrLf & vbCrLf & "Posiljalac: Moja firma" & vbCrLf & vbCrLf DoCmd.SendObject , , acFormatTXT, strTO, , , strSubject, strMessage, True '--> Ako stavis false onda ce direkt slati Exit_Command41_Click: Exit Sub Err_Command41_Click: MsgBox Err.Description Resume Exit_Command41_Click End Sub