Private Sub Command1_Click()
    SendMail "ot@zz.zz", "qq@qq.qq", "Report", "test"
End Sub

Sub SendMail(from, too, subj, text)
Set objEmail = CreateObject("CDO.Message")
    objEmail.from = from
    objEmail.To = too
    objEmail.Subject = subj
    objEmail.Textbody = text
    objEmail.BodyPart.Charset = "windows-1251"
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "some_smtp.domen.domen"
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25 
    objEmail.Configuration.Fields.Update
    objEmail.Send
End Sub