ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
djaxon
Используй данную процедуру в ThisOutlookSession
Код:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim arr() As String
Dim i As Integer
Dim NS As Outlook.NameSpace
Dim iMailItem As MailItem
Dim olMailItem As Outlook.MailItem
On Error Resume Next
Set NS = Application.Session
arr = Split(EntryIDCollection, ",")
For i = 0 To UBound(arr)
Set iMailItem = NS.GetItemFromID(arr(i))
If iMailItem.Class = olMail Then
Set olMailItem = iMailItem
If InStr(olMailItem.Subject, "XXXXXX ") > 0 Then Call XXXXX(olMailItem)
End If
Next
Set NS = Nothing
Set iMailItem = Nothing
Set olMailItem = Nothing
End Sub
для переноса вот кусок
MoveMail:
Set myInbox = olMail.Parent
Set myDestFolder = myInbox.Parent.Folders("Готовые")
Set olReply = olMail.Reply
olReply.HTMLBody = "Ответ при необходимости " & vbCrLf & olReply.HTMLBody
olReply.Display
olMail.Move myDestFolder
|
Думаю, дальше разберешься.
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
