'Почта использоваться может ТОЛЬКО установленная по умолчанию
Me.MAPISession1.LogonUI = False 'это чтобы не показывалось окно подтверждения email и пароля
Me.MAPISession1.UserName = "мойаккаунт"
Me.MAPISession1.Password = "мойпароль"
Me.MAPISession1.NewSession = True'Me.MAPISession1.Action = 1

Me.MAPISession1.SignOn'ЗАТЫК ВСЕГДА ЗДЕСЬ. ЧТО ЕЙ НЕ НРАВИТСЯ????

Me.MAPIMessages1.SessionID = Me.MAPISession1.SessionID
Me.MAPIMessages1.Compose 'очистить буфер перед отсылкой

Me.MAPISession1.LogonUI

Me.MAPIMessages1.Compose 'очистить буфер перед отсылкой

Function DefaultMailAccount1() As String
    ' читает из реестра настройки почтового ящика,
    ' установленного в TheBAT! как "ящик по-умолчанию"
    ' возвращает адрес почты, или пустую строку, если TheBAT! не настроен
    On Error Resume Next: Err.Clear
    Key$ = "HKEY_CURRENT_USER\Software\RIT\The Bat!\Users depot\Default"
    DefaultMailAccount1 = CreateObject("WScript.Shell").RegRead(Key$)
End Function

Select Case Me.Группа65.Value
    Case 1
        Me.MAPISession1.LogonUI = False 'это чтобы не показывалось окно подтверждения email и пароля
    Case 2
        Me.MAPISession1.LogonUI = True
End Select

Me.MAPISession1.UserName = Trim("моймейл") '
Me.MAPISession1.Password = CurrentProject.Connection.Execute("Select Alias.Pass1 from [~TMPCLP_tbl_service] As Alias WHERE (Alias.Title=" & """" & "POST" & """" & ")").Fields(0)
Me.MAPISession1.NewSession = True
'Me.MAPISession1.Action = 1
Me.MAPISession1.SignOn
'текст письма
sTextMess = CurrentProject.Connection.Execute("SELECT tbl_Controls.[TextValue] FROM tbl_Controls WHERE ((tbl_Controls.[Control])=" & """" & "TextMail" & """" & ")").Fields(0)
'тема письма
sSubj = sSys & " " & CurrentProject.Connection.Execute("SELECT tbl_Controls.[TextValue] FROM tbl_Controls WHERE ((tbl_Controls.[Control])=" & """" & "Subject" & """" & ")").Fields(0)

    'собственно сама отправка письма _
    В среде разработки VBA вы должны добавить Tools->References->Components->Microsoft Mapi Controls 6.0 _
    У вас тогда станут доступны элементы MAPISession MAPIMessages и вы можете поместить их на форму _
    Предварительно добавить в ОС msmapi.ocx и зарегистрировать ее
 
    'SysCmd acSysCmdSetStatus, "Отправка письма на " & Trim(fld_Emailpost.Value)
    
    Me.MAPIMessages1.SessionID = Me.MAPISession1.SessionID
    Me.MAPIMessages1.Compose 'очистить буфер перед отсылкой
    Me.MAPIMessages1.RecipIndex = count
    
    '-собственно суть письма
    Me.MAPIMessages1.RecipAddress = Trim(fld_Emailpost.Value)
    Me.MAPIMessages1.RecipDisplayName = Trim(fld_Name.Value) 'E-mail или имя Адресата из адресной книги
    Me.MAPIMessages1.MsgSubject = sSubj 'Тема
    Me.MAPIMessages1.MsgNoteText = "Здравствуйте, " & Trim(fld_Name.Value) & "!" & vbNewLine & vbNewLine & sTextMess 'Текст вашего письма
    Me.MAPIMessages1.Send False '-и это письмо сразу отправляется Используя False в методе Send, вы запрещаете показ окна "Создание нового письма".
    'Me.MAPIMessages1.Send True
    'Me.MAPIMessages1.Save '-и это письмо лежит у вас в исходящих НЕ РАБОТАЕТ!