Ich brauche einen Script um folgendes zu tun:
- Nur Mails mit Anhang speichern (per Regel lösbar)
- Mails nach Art des Anhangs in versch. Ordner speichern
- Mails in .msg Format speichern
Sub SaveMails(myItem As Outlook.MailItem)
Dim m As MailItem
Set m = CreateItem(olMailItem)
myItem.SaveAs "C:\Outlook Mails\Mail vom " & Format(myItem.ReceivedTime, "dd.mm.yy hh.mm") & " Uhr" & ".msg"
End Sub
Das wären schon einmal die Punkte 1. und 3. Den Rest müsste man mit If.. lösen, leider bin ich Anfänger und weiss nicht wie.
Vielen Dank im Vorraus
|