Релиб / Access / Базы данных / И снова почта / Latest Posts

RE: И снова почта

BoNiM — Thu, 28 Jun 2007 11:19:49 GMT

[quote][b]sloniha (27.06.2007)[/b][hr]А есть разница между MS MAPI И Simple MAPI?[/quote]
Вопрос не совсем корректен.
Можно сравнивать Simple MAPI, Extended MAPI и CDO. И говорить о том, какая из этих подсистем используется в MsMapi (у меня, например, описание файла Msmapi32.dll дает "Extended MAPI 1.0 for Windows NT").
Если интересуют различия, то такая информация находится в прикрепленном файле. Сейчас уже не помню откуда я ее брал.

RE: И снова почта

sloniha — Wed, 27 Jun 2007 19:43:52 GMT

А есть разница между MS MAPI И Simple MAPI?

RE: И снова почта

BoNiM — Tue, 26 Jun 2007 08:00:02 GMT

По идее с TheBat! никаких проблем быть не должно (см.[url=http://www.shurik83.narod.ru/inform/MSMAPI.html]здесь[/url])

RE: И снова почта

sloniha — Mon, 25 Jun 2007 22:32:00 GMT

При проверке выяснилось отсуствие у меня на ноуте в system32 MSMAPI32.OCX (с чего бы это?). Regsvr32 MSMAPI32.OCX решило проблему, но не совсем. Я пользуюсь Outlook, а как быть с теми пользователями, которые любят Bat или другую почтовую программу?

RE: И снова почта

BoNiM — Mon, 25 Jun 2007 16:29:28 GMT

[quote]Dim MS 'MAPI Session ' здесь выдает ошибку 429 ActiveX component Can't Create Object[/quote]
Не вижу причин возникновения ошибок в этом месте.

[quote]И как программно зарегистрировать нужные библиотеки?[/quote]
Поищите [url=http://am.rusimport.ru/MSAccess/content.aspx?id=17]здесь[/url]

[quote]Пытаюсь вручную зарегистрировать ссылки, а он ругается на конфликт с существующим модулем, функцией или процедурой. Что делать?[/quote]
Наверное, здесь имеется в виду [b]подключение[/b] библиотеки.
Такое впечатление, что у Вас уже подключена библиотека, у которой пространства имен и наименование объектов(а) совпадает с подключаемой.

И снова почта

sloniha — Sun, 24 Jun 2007 18:10:12 GMT

Private Sub КнопкаОтправить_Click()
Dim strSub As String
Dim strAdr As String
Dim strAtt1 As String
Dim strAtt2 As String
Dim strAtt3 As String
Dim strNote As String
If Not IsNull(Me!Тема) Then
strSub = Me.Тема
Else
strSub = ""
End If

strAdr = Me.Кому

If Not IsNull(Me.ПутьКфайлу1) Then
strAtt1 = Me.ПутьКфайлу1
Else
strAtt1 = ""
End If
If Not IsNull(Me.ПутьКфайлу2) Then
strAtt2 = Me.ПутьКфайлу2
Else
strAtt2 = ""
End If
If Not IsNull(Me.ПутьКфайлу3) Then
strAtt3 = Me.ПутьКфайлу3
Else
strAtt3 = ""
End If

If Not IsNull(Me.ТелоПисьма) Then
strNote = Me.ТелоПисьма
Else
strNote = ""
End If

Const SESSION_SIGNON = 1

Const MESSAGE_COMPOSE = 6

Const ATTACHTYPE_DATA = 0

Const RECIPTYPE_TO = 1

Const RECIPTYPE_CC = 2

Const MESSAGE_RESOLVENAME = 13

Const MESSAGE_SEND = 3

Const SESSION_SIGNOFF = 2

Dim MS 'MAPI Session ' здесь выдает ошибку 429 ActiveX component Can't Create Object

Dim Msgs

Set MS = CreateObject("MSMAPI.mapiSession.1")

Set Msgs = CreateObject("MSMAPI.mapiMessages.1")

MS.signon

Msgs.sessionid = MS.sessionid

Msgs.compose

Msgs.msgsubject = strSub

Msgs.msgnotetext = strNote

Msgs.RecipIndex = 0 'First recipient

Msgs.RecipType = RECIPTYPE_TO

Msgs.RecipDisplayName = strAdr

Msgs.AttachmentType = 0

If Not IsNull(Me.ПутьКфайлу1) Then

Msgs.AttachmentIndex = 0

Msgs.AttachmentPathName = strAtt1

Msgs.AttachmentPosition = 0

End If

If Not IsNull(Me.ПутьКфайлу2) Then

Msgs.AttachmentIndex = 1 'next number !!!

Msgs.AttachmentPathName = strAtt2

Msgs.AttachmentPosition = 1

End If

If Not IsNull(Me.ПутьКфайлу3) Then

Msgs.AttachmentIndex = 2 'next number !!!

Msgs.AttachmentPathName = strAtt3

Msgs.AttachmentPosition = 2

End If
'ask to commit

Msgs.Action = MESSAGE_SEND

'Close MAPI mail session:
MS.Action = SESSION_SIGNOFF

Как избавиться от ошибки? И как программно зарегистрировать нужные библиотеки? Пытаюсь вручную зарегистрировать ссылки, а он ругается на конфликт с существующим модулем, функцией или процедурой. Что делать?