Hallo liebe Excelgemeinde,
ich habe einen VBA Code für Microsoft Outlook mit dem man über die Betreffzeile eine Mail als msg Datei in einen beliebigen Ordner speichern kann. Nun will ich aber in Outlook eine Regel ausführen lassen.
Wenn in Zeile Betreff im Mail ein bestimmtes Wort vorkommt soll Outlook ein Script also diesen Code hier ausführen.
1. Problem - Wie kann ich den hier angefügten Code als Script definieren
2. Problem - Wie kann ich bei Sonderzeichen in der Zeile Betreff im Mail, bspw. bei Antwortenmails oder weitergeleiteten Mails wo vorn dran streht AW: oder WG: bzw. anderen Zeichen wie / () usw. absichern dass, das Speichern funktioniert, trotz das der Speichersyntax nicht stimmt? Kann man bei strname dem Makro beibringen das Sonderzeichen zu Freizeichen ersetzt werden so in der Art
If InStr(strname.Value, "/") Then
strname.Value = Application.Substitute(strname.Value, "/", " ")
Sub SaveAsTXT()
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
'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
Freue mich über jede Hilfe. Denke es ist auch ein interessantes Thema für andere Mitglieder dieses
Forums (Herber is the best)
Schönen Advent René