Public Sub sbSendEmail()
        
        Dim olApp As Outlook.Application
        Dim objMsg As Outlook.MailItem
        Dim objSafeMsg As Redemption.SafeMailItem
        Dim acc As Outlook.Account
        Dim j As Long
        Dim fa As Boolean = False

        olApp = CreateObject("Outlook.Application")

        'ищем учетку
        If olApp.Session.Accounts.Count >  0  Then
            For j =  1  To olApp.Session.Accounts.Count
                If olApp.Session.Accounts.Item(j).AccountType = Outlook.OlAccountType.olExchange Then
                    'нашли учетку Exchange
                    acc = olApp.Session.Accounts(j)
                    fa = True
                    Exit For
                End If
            Next j
        Else
            MsgBox("нет учеток")
        End If

        If (fa) Then
'если учетка Exchange существует - отправляем письмо
objMsg = olApp.CreateItem(Outlook.OlItemType.olMailItem)
            objMsg.Subject = "primer"
            objMsg.Body = "primer body"
            'objSafeMsg = CreateObject("Redemption.SafeMailItem")
            ''objSafeMsg.sendUsingAccount = acc
            'objSafeMsg.Item = objMsg
            'objSafeMsg.Recipients.Add("printrequest@pmp.local")
            'objSafeMsg.Recipients.ResolveAll()
            'objSafeMsg.Send()
            'objMsg = Nothing
            'objSafeMsg = Nothing
            'olApp = Nothing
else 
msgbox ("Не найдена учетная запись Exchange")
end if
end sub

public sub sendemail()

Dim oMSG As Object
            Dim oConfig As Object
            Dim CFields As Object
            Dim strBody As String

            oMSG = CreateObject("CDO.Message")
            oConfig = CreateObject("CDO.Configuration")
            CFields = oConfig.Fields
            oMSG.Configuration = oConfig

            CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
            CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pmp.local"
            CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =  1 
            CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25 
            CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "userlogin" 
            CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "userpassword" 
            CFields.Update()

            oMSG.To = "printrequest@pmp.local"
            oMSG.From = "userlogin@pmp.local"
            oMSG.Subject = "primer"
            oMSG.BodyPart.Charset = "windows-1251"
            oMSG.TextBody = "primer body"
            oMSG.Send()

end sub

 
objSafeMsg = CreateObject("Redemption.SafeMailItem")
            objSafeMsg.sendUsingAccount = acc
            objSafeMsg.Item = objMsg
            objSafeMsg.Recipients.Add("printrequest@pmp.local")
            objSafeMsg.Recipients.ResolveAll()
            objSafeMsg.Send()
            objMsg = Nothing
            objSafeMsg = Nothing
            olApp = Nothing