VBS überprüfen ob Outlook geöffnet ist
05.03.2014 16:03:13
Matthias
Ich öffne mittels VBScript eine Excel-Datei. Wenn der User das Outlook geöffnet hat und eine entsprechende Email selektiert hat, soll die entsprechende Datei aufgehen (ich kopiere einen Teil des Email Titels in die Zwischenablage).
Leider funktioniert der Code nur, wenn Outlook geöffnet bzw. eine Email selektiert ist. Ich möchte aber, dass der Teil ab "strUserName" in jedem Fall funktioniert. Auch wenn Outlook nicht geöffnet ist.
Kann mir jemand weiterhelfen? Herzlichen Dank!
Dim fso, file, folder, pfad, objHTML, ClipboardText
Set fso = CreateObject("Scripting.FileSystemObject")
set ws = CreateObject("Wscript.shell")
Set objWSHNetwork = WScript.CreateObject("WScript.Network")
'Vorbereitung um erhaltenes Email direkt ohzu öffnen
Set olApp = CreateObject("Outlook.Application")
Set olMAPI = olApp.GetNameSpace("MAPI")
Set oFolder = olMAPI.GetDefaultFolder(6)
'Set allEmails = oFolder.Items
Set objMail = olApp.ActiveExplorer.Selection.Item(1)
'Kontrolle ob es sich überhaupt um den Titel "Excel Datei Nr" handelt:
Set RE = New RegExp
RE.IgnoreCase = True
RE.Pattern = "Excel Datei Nr*"
If RE.Test(objMail.Subject) Then
'EmailTitel kürzen
SuchTitel = right(objMail.Subject,7)
'Emailtitel in Zwischenablage kopieren (etwas umschweifend mit nul set """" da sonst ein _
Zeilenumbruch mitgegeben wird)
Set objShell = WScript.CreateObject("WScript.Shell")
'objShell.Run "cmd /C echo " & SuchTitel & " | CLIP", 2
objShell.Run "cmd /C