[Gerdewski]

Вот тебе листинг по этому поводу из книги по VB.
Пройдет-ли это в VBA на Экселе - не знаю. Извлеки нужное и пробуй.

'**************************************************************
' Посылает почтовое сообщение, используя Outlook.
'**************************************************************
Public Sub SendMail(strTo As String, strSubject As String, _
strMessageText As String, Optional strCC As String, _
Optional vntAttachmentPath As Variant)
Dim i As Integer
'**********************************************************
' С помощью объекта Outlook...
'**********************************************************
With Outlook
'******************************************************
' Создать новый объект MailItem...
'******************************************************
With .CreateItem(olMailItem)
'**************************************************
' Установить свойства этого объекта, используя
' имеющиеся аргументы.
'**************************************************
.To = strTo
.CC = strCC
.Subject = strSubject
'**************************************************
' Добавить два символа перевода строки,
' чтобы имена присоединенных файлов были отделены
' от предыдущего текста пустой строкой.
'**************************************************
.Body = strMessageText & vbCrLf & vbCrLf
'**************************************************
' Имена присоединенных файлов должны быть переданы
' в виде массива Variant с указанием путей
' к файлам, поэтому добавьте эти имена
' к собранию Attachments в этом объекте MailItem.
'**************************************************
If IsArray(vntAttachmentPath) Then
For i = 0 To UBound(vntAttachmentPath)
.Attachments.Add vntAttachmentPath(i), , Len(.Body)
Next i
End If
'**************************************************
' ' Отправить объект MailItem.
'**************************************************
.Send
End With
End With
End Sub

А про ОК попробуй
Application.DisplayAlerts = False,
а после отправки
Application.DisplayAlerts = True