Работа с почтой из VB6

Нужно сформировать и отправить Excel файл по почте... Чтобы начать работать, нужно иметь библиотеку OLEMSG23.DLL. Скачать-то я ее скачал, а вот чего делать дальше, не совсем понятно... Я ее скопировал в каталог C:WINNTSYSTEM32. Потом попытался добраться до нее из редактора VB, но он пишет какую-то ошибку. В общем, не получилось. Подскажите что можно сделать.

Poprobyi ispol'zovat' standard VB Controls: MAPIMessages i MAPISession (naidesh' ih v Project/References/Microsoft...). V Help est'dostatochno mnogo Samples kak otpravlyat' Messages from VB ispol'zuya eti Controls. Ya nachal s OLEMessages, he vyshlo, s MAPI vse rabotaet stabil'no.

0

У меня установлен MSDN, но там не нашел никаких примеров... Если не трудно, можешь мне почтой кинуть что-нибудь, просто глянуть с чего начать? По тексту сейчас сижу разгребаюсь, но примеры помогли бы...

Posadi oba MAPI controls na formu. Dobav' proceduru:

Public Function sendMail(recipient As String, subject As String, text As String, Optional AttachmentPath1 As String, Optional AttachmentPath2 As String) As Boolean

On Error GoTo mailSendError
MAPISession1.UserName = 'Microsoft Outlook'
MAPISession1.SignOn

' Set the SessionId of the MAPIMessage control to the
' SessionId of the
' MAPISession control, which was just obtained:
MAPIMessages1.SessionID = MAPISession1.SessionID

' Compose an e-mail message and set the subject line and text
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = recipient
MAPIMessages1.MsgSubject = subject
MAPIMessages1.MsgNoteText = text
MAPIMessages1.AttachmentPathName = AttachmentPath1
If AttachmentPath2 <> '' Then
MAPIMessages1.AttachmentIndex = MAPIMessages1.AttachmentCount
' actually increasing number of attachments by 1
MAPIMessages1.AttachmentPathName = AttachmentPath2
End If

MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName

' Sends the e-mail message - is required to send the message.
MAPIMessages1.send False

' Optionally, sign off from mail:
MAPISession1.SignOff
sendMail = True

On Error GoTo 0

Exit Function
mailSendError:
MsgBox 'Cannot send e-mail to ' & recipient
sendMail = False
Exit Function
End Function

Vyzyvai is koda:

If sendMail(primaryContact, subject, msg, Path1, '') = True Then

MsgBox 'Email has been sent to ' & primaryContact & ' in the IT.'

End If

Rabotaet is VB6 na Outlook Express ot Win95 do Win2000 (Outlook Express dolzen byt' ustanovlen i rabotat' na mashine zakazchika!! Obychno dlya etogo dostatochno Internet Explorer 5.5).

0