Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/25: Рейтинг темы: голосов - 25, средняя оценка - 4.76
jomsom88
1

Сохранение Входящей Почты Локально

15.12.2014, 15:21. Просмотров 4854. Ответов 2
Метки нет (Все метки)

День добрый форумчанам!
Есть такая задача, сохранять текст всех входящих сообщений с Лотуса в виде текстового файла по указанному пути.
Как я понимаю это проще всего реализовать созданием агента. Нигде не могу найти описание синтаксиса и правила обращения к объектам, даже сами названия объектов.

Содавал на VBA автоматическую рассылку писем через лотус, даже сохранял вложенный файл по пути, но из какого то случайного одного письма.

Может кто нибудь сталкивался с подобной задачей и может помочь в ее реализации, хотябы намек или ссылка на источник нужной информации.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2014, 15:21
Ответы с готовыми решениями:

Обработка входящей почты
Разбираюсь в работе с почтовыми базами. Встала задача, обрабатывать всю входящую почту, присланную...

Перекодировка входящей почты
Имеется следующая проблема. Входящие письма приходят в следующем виде:...

Настройка входящей почты.
Всем доброго времени суток. ВОпрос следующий: 7.0.3 сервер LD. На нём крутится интранет. У...

Проверка входящей почты
Всем добрый день! Как можно создать программу на языке С# которая будет проверять электронную...

__________________
2
0 / 0 / 0
Регистрация: 23.08.2008
Сообщений: 6,252
15.12.2014, 17:46 2
designer help
0
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 49
23.12.2014, 09:23 3
делал когда еще лотусом не занимался вообще, поэтому .. стыдно самому) .
но главное работает.
создай агент в почтовом файле. включай расписание. будет работать на сервере и складывать почту куда надо. имя папки=дата\тема письма
внутри папки файл с текстом письма и вложения.
обработанные письма помечает знаком "~" в конце темы


LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
Option Public
 
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim rtitem As Variant
Dim titem As Variant
Dim attachname As String
Dim filename As String
Dim body As NotesRichTextItem
Dim emphasize As NotesRichTextStyle
Dim tem As Variant
Dim baza$(500)
Dim fname$(500)
Dim dsst
Dim pokaz
Dim pdate As NotesItem
 
 
Dim doc As NotesDocument
Sub Initialize
 
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set stream = session.CreateStream
While Not(doc Is Nothyng)
 
Set rtitem = doc.GetFirstItem( "Body" )
If Not rtitem Is Nothyng Then
If ( rtitem.Type = RICHTEXT ) Then
If Not Isempty(rtitem) Then
 
 
Set tem=doc.GetFirstItem( "Subject" )
If Right$(tem.text,2)<>" ~" Then
 
Set pdate = doc.GetFirstItem( "deliveredDate" )
If Not ( pdate Is Nothyng ) Then
 
 
tema=tem.text
 
subja = Trim(Mid$(tem.text, 1, 40))
 
 
 
subj = ""
For cd = 1 To Len(subja)
sym = Mid$(subja, cd, 1)
вместо закарючек ставим пробелы
qw = 0
If sym = "\" Then qw = 1
If sym = "/" Then qw = 1
If sym = ":" Then qw = 1
If sym = "*" Then qw = 1
If sym = "?" Then qw = 1
If sym = "<" Then qw = 1
If sym = ">" Then qw = 1
If sym = "|" Then qw = 1
If sym = Chr(34) Then qw = 1
If qw = 1 Then subj = subj & "_" Else subj = subj & sym
Next cd
Msgbox subj
curdat = Format(Date, "YYYYMMDD")
******="d:\#rusmail\"
szdata ****** & curdat создание папки с датой
sztema ****** & curdat & "\", subj сздание папки с темой
Msgbox     dsst & "\"  & attachname
 
a=stream.Open(dsst & "\_konvert.txt")
b=stream.WriteText(tema & Chr(13) & Chr(10) & Chr(13) & Chr(10))
b=stream.WriteText(doc.GetItemValue("Body")(0), EOL_CRLF)
Call stream.Close
 
If Not Isempty(rtitem.EmbeddedObjects) Then
 
Forall obj In rtitem.EmbeddedObjects
If ( obj.Type = EMBED_ATTACHMENT ) Then
Set emphasize = session.CreateRichTextStyle
emphasize.Bold = True
emphasize.NotesColor = COLOR_RED
Set body = doc.GetFirstItem("Body")
Call rtitem.AddNewLine( 2 )
Call body.AppendStyle(emphasize)
attachname = obj.source
Call obj.ExtractFile( dsst & "\"  & attachname )
 
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText(( "Your file was downloaded to\\QDSWJDE1AMstarUnProcessed as filename: " ) & attachname)
Call doc.Save( False, True )
 
End If
End Forall
End If
 
Call doc.replaceItemValue("Subject",tem.text & " ~" )
Call doc.Save( False, True )
 
Else
Set pdate=Nothyng
End If
 
End If
End If
End If
End If
Call session.UpdateProcessedDoc( doc )
Set doc = dc.GetNextDocument (doc)
 
Wend
End Sub
 
 
Sub szdata(puti)
Doevents
On Error Goto er
Mkdir puti
Exit Sub
er:
If Err = 75 Then Resume Next
End Sub
Sub sztema(puti, ppp)
On Error Goto er
Mkdir puti & Trim(ppp)
dsst = puti & Trim(ppp)
If era = 0 Then Exit Sub
 
For n = 1 To 1000
Doevents
If direxist(puti & Trim(ppp) & Trim(n)) = False Then
dsst = puti & Trim(ppp) & Trim(Str(n))
 
eraa = 11
Exit For
End If
Next n
если спецсимволы
If eraa <> 11 Then
For n = 50 To 1500
Doevents
If direxist(puti & Trim(Str(n))) = False Then
dsst = puti & Trim(Str(n))
 
Exit For
End If
Next n
 
End If
Exit Sub
er:
era = 1
Resume Next
End Sub
Function direxist(papka)
Doevents
On Error Goto er
direxist = False
result = False
Mkdir papka
Exit Function
er:
If Err = 75 Or Err = 76 Then
result = True
direxist = True
Resume Next
End If
End Function
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2014, 09:23

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

The Bat, журнал входящей почты
На предприятии нужно сделать журнал входящей почты, в котором бы в каждой строке указывалось когда...

Кодирование входящей Smtp почты
Привет! Видел здесь похожие темы, но ответа свой вопрос не нашел, поэтому завожу новую. Проблема...

Адрес входящей/исходящей почты
Доброе время суток! Подскажите пожалуйста адрес сервера входящей/исходящей почты Windows...

разворачивание сервера входящей почты
Люди, подскажите с помощью чего и каким образом можно развернуть сервер входящей почты, загвоздка...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.