Version: Office 2003
--------------------------------------------------------------------------------
Hallo liebe Tüftler,
ich möchte über eine Regel automatisch Mails in einem Ordner im Explorer speichern. Die Regel soll schauen ob ein bestimmtes Wort in der Betreffzeile im mail vorkommt und dann ein Script ausführen welches die Datei speichert. Leider speichert im Moment das Script aber immer die Mail die gerade markiert ist. Wie kann ich das objItem auf die E-Mail setzen, die gerade eingetroffen ist?
Im Outlookforum bin ich nicht weiter gekommen. Daher frage ich hier. Ich bin nicht der Profi, der das alleine lösen kann und würde mich sehr freuen wenn ihr mir helft. Herzlichen dank im Voraus schon mal und einen schönen Advent MfG René
Sub SaveAsTXT(Mail As Outlook.MailItem)
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
strname = objItem.Subject
strname = Replace(strname, ":", " ")
strname = Replace(strname, "/", " ")
'Prompt the user for confirmation
Dim strPrompt As String
strPrompt = "Are you sure you want to save the item? If a file with the same name already _
exists, it will be overwritten with this copy of the file."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
objItem.SaveAs "C:\Technik\" & strname & ".msg", olMSG
End If
Else
MsgBox "There is no current active inspector."
End If
End
Sub