Hallo,
gibt es in Outlook (Express 5.0) eine Möglichkeit oder ein zusätzliches Programm, womit man die Mailanhänge aller Mails eines Mailordners oder aller Newsgroupeinträge einer Newsgroup auf einmal in ein bestimmtes Verzeichnis abspeichern kann ohne auf jede mail zu klicken und immer speichern unter…
zu machen?
danke im voraus
für die attachements versuch mal folgendes: (bitte bei save as noch den Ort eintragen, wo die attachements abgespeichert werden sollen)
Viel Spaß damit, falls du noch fragen hast …just mail
JONES
Sub test_Attach2()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim myItem As MailItem
Dim a As Attachment
Dim MsgTxt As String
Dim MsgTxt2 As String
MsgTxt = „You have selected items from“ & Chr(13) & Chr(13)
MsgTxt2 = „You have selected attachements“ & Chr(13) & Chr(13)
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
'Set myItem = myOlSel.Item(x)
MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & Chr(13)
For i = 1 To myOlSel.Item(x).Attachments.Count
Set a = myOlSel.Item(x).Attachments(i)
MsgTxt2 = MsgTxt2 & a.DisplayName & Chr(13)
a.SaveAsFile „C:/…/…“ & a.DisplayName
Next i
Next x
MsgBox MsgTxt
MsgBox MsgTxt2
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]