авторГлавная проблема - первая.... А вообще, не по теме, может кто знает как посмотреть оригинальный текст письма в Office Outlook 2003 и отключить сообщение при отправке с помощью MAPISendMail "Программа пытается автоматически отправить от вашего имени ...." и через 5 секунд можно нажать - да %(((

Вообще-то, это защита MS. Если MS не находит лицензии, то появляется такое сообщение. Очень много примочек в Интернете, как это обойти.
В 2000 я сделала так:

Const RECIPTYPE_TO = 1
Const SESSION_SIGNOFF = 2
Dim MS As Object 'MAPI Session
Dim Msgs As Object
Dim myFolder As MAPIFolder
Dim Outlook As Object
Dim hnd As Long

hnd = FindWindow("rctrl_renwnd32", vbNullString) '"rctrl_renwnd32"
If hnd <> 0 Then
'если Outlook уже открыт
Set MS = CreateObject("MSMAPI.mapiSession.1")
Set Msgs = CreateObject("MSMAPI.mapiMessages.1")
Else
'Outlook еще не был загружен
Set Outlook = CreateObject("Outlook.Application")
Set myFolder = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set MS = Outlook.CreateObject("MSMAPI.mapiSession.1")
Set Msgs = Outlook.CreateObject("MSMAPI.mapiMessages.1")
End If

MS.signon
Msgs.sessionid = MS.sessionid
Msgs.compose
Msgs.msgsubject = <Tema>
Msgs.msgnotetext = <Tema>

Msgs.RecipIndex = 0 'First recipient
Msgs.RecipType = RECIPTYPE_TO
Msgs.RecipDisplayName = <Adress >
Msgs.AttachmentType = 0
Msgs.AttachmentIndex = 0
Msgs.AttachmentPathName = <Attach >
Msgs.AttachmentPosition = 0
Msgs.Send ("1")

Goon:
'Close MAPI mail session:
MS.Action = SESSION_SIGNOFF
Set MS = Nothing
Set Msgs = Nothing
Set myFolder = Nothing
Set Outlook = Nothing
Exit Sub

и нет сообщения.
поищи в свойствах Msgs и будет html-формат