Hallo,
ist es irgendwie möglich bei Outlook alle E-Mail anlagen zu sichern?
ich meine nicht aus einer e-mail, sondern von allen vorhandenen, um diese dann auch direkt zu löschen?!?
Daurch sollte doch dann die outlook.pst kleiner werden? Zwecks datensicherung
Gruß und Dank, Marcel
P.S. Outlook 2000
Hallo,
denke das würde sich über ein VBA-Makro lösen lassen. Leider habe ich kein passendes für dich zu Hand.
Seit dem Erscheinen von Outlook2000 hat auch VBA in Outlook Einzug gehalten.
Gruß, olli
So geht´s (Makro)
Hallo Marcel,
ich habe das mal schnell zusammengetippt und getestet, und bei mir geht´s. Die Lösch-Funktion habe ich jedoch erstmal weggelassen. Das kriegt man ja mit Sortierung nach der Büroklammer auch schnell manuell hin. Ginge aber auch.
Wenn Du nicht weißt, wie das Makro zu installieren ist oder Du mit dem „Debug.Print“ nichts anzufangen weisst, bitte nochmal melden. Das Makro bezieht sich auf den aktuell angezeigten Outlook-Ordner.
Kristian
Option Explicit
Option Base 1
Sub AnhaengeSichern()
'Makro von Kristian Zarse für Wer-Weiss-Was am 12.11.2002
Dim m As Integer
Dim a As Integer
Dim c As Integer
Dim MailsMitAtt As Integer
Dim Attachments As Integer
Dim d As Date
Dim Name As String
Const Pfad As String = "C:\Temp\"
With ActiveExplorer.CurrentFolder
MailsMitAtt = 0
Attachments = 0
For m = 1 To .Items.Count
On Error GoTo Fehler
c = .Items(m).Attachments.Count
If c \> 0 Then
MailsMitAtt = MailsMitAtt + 1
Attachments = Attachments + c
For a = 1 To c
d = .Items(m).ReceivedTime
Name = Year(d) & Month(d) & Day(d) & "\_" & \_
Hour(d) & "-" & Minute(d) & "\_" & \_
c & "\_" & \_
.Items(m).Attachments.Item(a).FileName
.Items(m).Attachments.Item(a).SaveAsFile Pfad & Name
GoTo Weiter
Fehler:
Debug.Print m & ": " & .Items(m).Subject & " \>\>\> " & \_
.Items(m).Attachments.Item(a).FileName & " \>\>\> " & \_
Err.Description
Weiter:
Next a
End If 'c \> 0
On Error GoTo 0
Next m
MsgBox "In " & MailsMitAtt & " von " & m - 1 & " Mails wurden insgesamt " & \_
Attachments & " Attachments gefunden.", \_
vbInformation, "Fertig"
End With 'ActiveExplorer.CurrentFolder
End Sub 'AnhaengeSichern
GENIAL o.w.T
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
DANKE owT
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Mini-Korrektur
> Name = Year(d) & Month(d) & Day(d) & "\_" & \_
> Hour(d) & "-" & Minute(d) & "\_" & \_
> c & "\_" & \_
Da sollt das „c“ natürlich ein „a“ sein:
Name = Year(d) & Month(d) & Day(d) & "\_" & \_
Hour(d) & "-" & Minute(d) & "\_" & \_
a & "\_" & \_
Kristian