ник: joka
привет спасибо за помощь.. сам покопался написал примерно тоже
Sub obrabotka()
Dim objOutlook As Object
Dim myinspector As Outlook.Inspector
Dim myattachments As Outlook.Attachments
Dim namestr As String
Set objOutlook = CreateObject("Outlook.Application")
Set myinspector = objOutlook.ActiveInspector
If Not TypeName(myinspector) = "Nothing" Then
Set myattachments = myinspector.CurrentItem.Attachments
d = myattachments.Count
While d > 0
namestr = myattachments.Item(d).DisplayName
myattachments.Item(d).SaveAsFile "C:\" & namestr
d = d - 1
Wend
Else
MsgBox "There is no active inspector."
End If
End Sub
не мог бы ты меня чуть чуть просвятить???
у тебя написана связка
Set myItem = myInspector.CurrentItem
Set myAttachments = myItem.Attachments
я это написал сразу в одну строку и работает, я просто неправильно что то понимаю? или так тоже можно?
а вот следующая задачка... необходимо также в цикле отправить эти приложения на печать если они являются вордовскими файлами... не поможешь? я читаю и не пойму покатит тут PrintOut? необходимо ли создавать объект ворда и открывать там приложения?