Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Outlook Client vorgang Fehlgeschglagen - Fehler im VB-Script

Frage Entwicklung VB for Applications

Mitglied: koluschkiB

koluschkiB (Level 1) - Jetzt verbinden

05.09.2012, aktualisiert 09:10 Uhr, 3722 Aufrufe, 2 Kommentare

Vermehrt haben wir Probleme mit dem Outlook Client in unserem Unternehmen.
Beim versuch Anhänge in einer Email zu öffnen bekommen die Anwender die Fehlermeldung das ein Client Vorgang fehlgeschlagen ist. Passieren tut es bei PDF, XLS und bei DOC Dateien.
Beim durchforsten von dem INternet fand ich das unten aufgeführte Script. Leider wird ein Fehler in Zeile 10 ausgegeben, welche ich nicht nach vollziehen kann...
Villeicht kann einer von euch mal drüber schauen und erkennt auch den Fehler, ich selbst bin kein Programmierspezi...

Sorry für die Formatierung, war schon lange nicht mehr auf dieser Platform, wo sich ja alles geändert hat.

Option Explicit
Private Sub Application_Quit()

'

' Löscht den Inhalt des OLK-Ordner beim Beenden von Outlook
'



Dim objFSO As Object
Dim objWsh As Object
Dim objFolder As Object
Dim strRegKey As String
Dim strOLK As String

On Error Resume Next

'---------------------------------------------------------------------
' Um Daten aus der Registrierung zu lesen
'---------------------------------------------------------------------
Set objWsh = CreateObject("WScript.Shell")

'---------------------------------------------------------------------
' Schlüssel zusammenstellen
'---------------------------------------------------------------------
strRegKey = "HKCU\Software\Microsoft\Office\%.0\Outlook\Security\OutlookSecureTempFolder"

'---------------------------------------------------------------------
' OLK-Ordner aus der Registrierung auslesen
'---------------------------------------------------------------------
Select Case Left(Outlook.Version, 2)
Case "9.": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "9"))
Case "10": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "10"))
Case "11": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "11"))
Case "12": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "12"))
Case "14": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "14"))
Case Else
MsgBox "Kann Outlook-Version nicht bestimmen.", vbCritical + _
vbOKOnly, "Delete OLK"

Exit Sub
End Select

'---------------------------------------------------------------------
' VBA bietet keine komfortable Möglichkeit, um Dateien zu löschen,
' daher wird VB-Script verwendet.
'---------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")

'---------------------------------------------------------------------
' Alle Dateien im OLK-Ordner löschen (True = Löschen erzwingen)
'---------------------------------------------------------------------
Call objFSO.DeleteFile(strOLK & "*.*", True)

'---------------------------------------------------------------------
' OLK-Ordner refernzieren
'---------------------------------------------------------------------
Set objFolder = objFSO.GetFolder(strOLK)

'---------------------------------------------------------------------
' Ist etwas übrig geblieben, dann Ordner öffnen
'---------------------------------------------------------------------
If objFolder.Files.Count Then Call Shell("explorer.exe " & strOLK)

'---------------------------------------------------------------------
' Clean Up
'---------------------------------------------------------------------
Set objFolder = Nothing Set objFSO = Nothing Set objWsh = Nothing

End Sub
Mitglied: 60730
05.09.2012 um 09:12 Uhr
abba das man anderen nen gruß vorm fragestellen reinschieben tutet und das die code tags immer noch die code tags sind, daran hat sich nix geändert...

PS:
Tolle Überschrift
Bitte warten ..
Mitglied: askando
05.09.2012, aktualisiert um 10:27 Uhr
mmh vba zeigt dir eigentlich die falsche Zeile rot an ;)

und woher sollen wir wissen was Zeile 10 ist ? bitte Code in Tag pls geht so nicht...
Bitte warten ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Exchange Server
SBS 2011 - Outlook Web App - Kritischer Fehler im Script (4)

Frage von Antshit zum Thema Exchange Server ...

Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (9)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...