Вот нечто в этом духе должно быть - здесь вложенные электронные письма сохраняются на сетевой диск:
Sub processMai(ByVal Item As Object, Cancel As Boolean)
Dim itm As Variant
Dim saveFolder As MAPIFolder
'Const saveTo As String = "C:\Name"
Const saveTo As String = "C:\Name"
Dim subject As String
Dim intcount As Integer
Dim strSaveTo As String
Dim ret() As String
Dim entry As Variant
Dim foundit As Boolean
Dim olkAttachment As Outlook.Attachment
Dim olkTemp As Outlook.MailItem
Dim strFilename As String
For Each olkAttachment In Item.Attachments
strFilename = "C:\eeTesting\" & olkAttachment.FILENAME
olkAttachment.SaveAsFile strFilename
Set olkTemp = Application.CreateItemFromTemplate(strFilename)
If testStr(olkTemp.subject) Then
foundit = True
extractStr olkTemp.subject, ret
Else
If testStr(olkTemp.Body) Then
foundit = True
extractStr olkTemp.Body, ret
End If
End If
If foundit Then
For Each itm In ret
Set saveFolder = olNav2Folder("\\Network Folder\Sent Items2\" & itm, True)
strSaveTo = md(saveTo & "\" & itm, False)
If strSaveTo <> "" Then
olkAttachment.SaveAsFile strSaveTo & "\" & olkTemp.Subject & " " & ".msg"
End If
Next
End If
Set olkTemp = Nothing
Kill strFilename
Next
End Sub
Все вышесказанное является моим личным мнением, не имеющим отношения к корпорации Майкрософт
