Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть почтовое сообщение / 4 сообщений из 4, страница 1 из 1
29.06.2005, 14:14:13
    #33140437
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть почтовое сообщение
Понимаю, могет показаться, что задача дурацкая, тем не менее:
У меня экселевский файл данных клиентов, из формы делается сообщение по адресу клиента (с темой, прилож.файлом и.т.д.). Периодически возникает необходимость просматривать текст сообщений конкретному клиенту... Можно ли программно вызывать нужные сообщения из Глюка из папки "Отправленные" по критерию, например, адрес?
Запоминания сообщений в самом файле при отправке не годится - сообщения могут отправляться не только программно из файла, но и запускаться из файла, а писаться вручную. Более того, при переписке - появляются "ответы", "пересылки" и т.п.
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2005, 14:23:28
    #33140461
rrrrrrrrrr
rrrrrrrrrr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть почтовое сообщение
13 функций MAPI (из API Viewer VB 6.0):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Public Declare Function BMAPIAddress Lib "MAPI32.DLL" (lInfo&, ByVal Session&, ByVal UIParam&, Caption$, ByVal nEditFields&, Label$, nRecipients&, Recip() As MapiRecip, ByVal Flags&, ByVal Reserved&) As Long

Public Declare Function BMAPIGetAddress Lib "MAPI32.DLL" (ByVal lInfo&, ByVal nRecipients&, Recipients() As MapiRecip) As Long

Public Declare Function BMAPIGetReadMail Lib "MAPI32.DLL" (ByVal lMsg&, Message As MAPIMessage, Recip() As MapiRecip, File() As MapiFile, Originator As MapiRecip) As Long

Public Declare Function BMAPIReadMail Lib "MAPI32.DLL" (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, MessageID$, ByVal Flag&, ByVal Reserved&) As Long

Public Declare Function MAPIDeleteMail Lib "MAPI32.DLL" (ByVal Session&, ByVal UIParam&, ByVal MsgID$, ByVal Flags&, ByVal Reserved&) As Long

Public Declare Function MAPIDetails Lib "MAPI32.DLL" Alias "BMAPIDetails" (ByVal Session&, ByVal UIParam&, Recipient As MapiRecip, ByVal Flags&, ByVal Reserved&) As Long

Public Declare Function MAPILogoff Lib "MAPI32.DLL" (ByVal Session&, ByVal UIParam&, ByVal Flags&, ByVal Reserved&) As Long

Public Declare Function MAPISendMail Lib "MAPI32.DLL" Alias "BMAPISendMail" (ByVal Session&, ByVal UIParam&, Message As MAPIMessage, Recipient() As MapiRecip, File() As MapiFile, ByVal Flags&, ByVal Reserved&) As Long

Public Declare Function MAPISendDocuments Lib "MAPI32.DLL" (ByVal UIParam&, ByVal DelimStr$, ByVal FilePaths$, ByVal FileNames$, ByVal Reserved&) As Long

Public Declare Function MAPISaveMail Lib "MAPI32.DLL" Alias "BMAPISaveMail" (ByVal Session&, ByVal UIParam&, Message As MAPIMessage, Recipient() As MapiRecip, File() As MapiFile, ByVal Flags&, ByVal Reserved&, MsgID$) As Long

Public Declare Function MAPIResolveName Lib "MAPI32.DLL" Alias "BMAPIResolveName" (ByVal Session&, ByVal UIParam&, ByVal UserName$, ByVal Flags&, ByVal Reserved&, Recipient As MapiRecip) As Long

Public Declare Function MAPILogon Lib "MAPI32.DLL" (ByVal UIParam&, ByVal User$, ByVal Password$, ByVal Flags&, ByVal Reserved&, Session&) As Long

Public Declare Function MAPIFindNext Lib "MAPI32.DLL" Alias "BMAPIFindNext" (ByVal Session&, ByVal UIParam&, MsgType$, SeedMsgID$, ByVal Flag&, ByVal Reserved&, MsgID$) As Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2005, 14:31:23
    #33140494
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть почтовое сообщение
В том то и дело, что я уже ~ 1,5 часа бьюсь с типа "Public Declare Function BMAPIAddress Lib "MAPI32.DLL" (lInfo&, ByVal Session&, ByVal UIParam&, Caption$, ByVal nEditFields&, Label$, nRecipients&, Recip() As MapiRecip, ByVal Flags&, ByVal Reserved&) As Long", но никак не могу понять как можно вытащить нужное...
Могет примерчик маленький кинете ????
Спасибо

Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.07.2005, 15:02:07
    #33148136
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть почтовое сообщение
Пишу :
Private Sub Import2Outlook()
Dim olApp As Outlook.Application
Dim objContact As ContactItem
Dim objContacts As MAPIFolder
Dim objNameSpace As Namespace
Dim objProperty As UserProperty

Set olApp = CreateObject("Outlook.Application")
Set objNameSpace = olApp.GetNamespace("MAPI")
Set objContacts = objNameSpace.GetDefaultFolder(olFolderContacts)
Set objContact = objContacts.Items.Find("[FileAs] = ""office"" or [FirstName] = ""ofice""")
If Not TypeName(objContact) = "Nothing" Then
Set objProperty = objContact.UserProperties.Find("LastDateContacted")
If TypeName(objProperty) <> "Nothing" Then
MsgBox "Last Date Contacted: " & objProperty.Value
End If
Else
MsgBox "Contact not found."
End If
End Sub
Усё распознает, тока никак не хочет давать значение objProperty , всё время "Nothing"... Хотя отсылка и приемка сообщалок идет постоянно.
Подскажите, плз, в чем могет быть дело...

Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть почтовое сообщение / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 347ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2167530]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 208ms
total:  347ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]