Ik wil graag een outlook rule maken die binnenkomende emails opslaat op mijn harde schijf.
Ik neem aan dat eea via een rule moet kunnen die dan de VBA start om de mail message te saven. Het lukt me alleen niet om een VBA procedure aan de rule toe te wijzen. Ook de VBA lukt niet helemaal. ik heb het volgende:
Dim myItem As Outlook.Inspector
Dim objItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem
objItem.SaveAs "c:\test\" & objItem.Subject & ".html", olHTML
echter, dit werkt alleen al de mail in een apart venster is geopend. Hoe kan ik de email die de rule selecteert hieraan koppelen?
Ik neem aan dat eea via een rule moet kunnen die dan de VBA start om de mail message te saven. Het lukt me alleen niet om een VBA procedure aan de rule toe te wijzen. Ook de VBA lukt niet helemaal. ik heb het volgende:
Dim myItem As Outlook.Inspector
Dim objItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem
objItem.SaveAs "c:\test\" & objItem.Subject & ".html", olHTML
echter, dit werkt alleen al de mail in een apart venster is geopend. Hoe kan ik de email die de rule selecteert hieraan koppelen?