Hallo zusammen,
ist es irgendwie möglich folgendes zu automatisieren über den Regelassistenten in OL2000:
Bei Erhalt einer Mail von „Deutsche Telekom AG“ soll die Anlage dieser Mail in das Verzeichnis „C:…\Telekom“ verschoben (oder kopiert) werden.
Wenn Ihr das rausfinden könntet, das wäre supi !
Danke !
Gruß
Winni
Hallo winni,
mit dem Regelassistenten weiß ich zwar die Lösung nicht, allerdings kann dir dieses Makro bei deinem Problem helfen.
Mit diesem makro kannst du alle Anlagen von makierten e-mails in einem Schritt an einen beliebigen Ort speichern.
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]