roguesith
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Кстать кому мб интересно пример vbs для поиска вложений: Sub find_attachment_eng() Dim olApp As Outlook.Application Dim olNs As NameSpace Dim Fldr As MAPIFolder Dim MoveToFldr As MAPIFolder Dim olMi As MailItem Dim olAtt As Attachment Dim MyPath As String Dim i As Long Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) For i = 1 To Fldr.Items.Count If TypeOf Fldr.Items(i) Is Outlook.MailItem Then Set olMi = Fldr.Items(i) For Each olAtt In olMi.Attachments If olAtt.FileName = "123.jpg" Then MsgBox "Found!" + olAtt.FileName, vbOKOnly + vbExclamation, "Object found!" End If Next olAtt End If Next i Set olAtt = Nothing Set olMi = Nothing Set Fldr = Nothing Set MoveToFldr = Nothing Set olNs = Nothing Set olApp = Nothing End Sub Может быть у кого-нибудь есть подобные конструкции чтобы в 100500 раз не изобретать велосипед?=) |