Ich lese die Betreffzeile im Outlook 2010 aus (Funktion i.O.).
Jetzt haben wir Outlook 2015 bekommen und die Variable für die Betrefzeile ist leer (Laufzeitfehler).
Sub StarteEigentlicheFunktion()
Dim olsel As Outlook.Selection
Dim Speichern As Outlook.Application
Dim Betreffzeile As Variant ' bleibt leer
Dim objMail As Outlook.MailItem
'*************************Betreff auslesen*********************
'On Error GoTo Fehler1
Set olsel = ActiveExplorer.Selection
Set Betreffzeile = olsel.Item(1) ' bleibt leer
Set Speichern = CreateObject("Outlook.Application")
'************Nicht erlaubte Windowszeichen entfernen***********
Betreffzeile = Replace(Betreffzeile, Chr$(34), " ")
Betreffzeile = Replace(Betreffzeile, "<", " ")
Betreffzeile = Replace(Betreffzeile, ">", " ")
Betreffzeile = Replace(Betreffzeile, "?", " ")
Betreffzeile = Replace(Betreffzeile, ":", " ")
End sub
|