Sie sind vermutlich noch nicht im Forum angemeldet - Klicken Sie hier um sich kostenlos anzumelden Impressum 
Sie können sich hier anmelden
Dieses Thema hat 20 Antworten
und wurde 92 mal aufgerufen
 Skripte und Zusatzprogramme
Seiten 1 | 2
R.Wilke Offline



Beiträge: 6.121

12.03.2011 11:38
#16 RE: Outlook-Ordner "Gesende Objekte" von überall aufrufen Zitat · Antworten

Marius,

it is a good thing that you identified Lindsay as the author of the above script, which gives me a chance to comment on it while being in a better position. I guess I might re-use the whole concept in the future.

If having multiple instances of Outlook is a concern, this is caused by using "AppSwapWith" in the first line of the code which came in by looking at the script that you provided from the start. So where is the problem with it?

Rüdiger

_______________________________________

DPG 15.6 (15.60.200.015) auf Windows 10 Pro (64-bit)
SpeechMike Premium (LFH3500) + SpeechMike II
HP ZBook 17 G2 (Refurbished) - i7-4910qm - 8MB SmartCache - 32 GB RAM - 512 GB SSD - 1 TB HSSD - 2 TB HDD

Marius Raabe Offline



Beiträge: 718

12.03.2011 11:59
#17 RE: Outlook-Ordner "Gesende Objekte" von überall aufrufen Zitat · Antworten

OHHH my, I am so terribly sorry, Rüdiger & Lindsay! MEA MAXIMA CULPA. Please forgive me, I will never post anything again.

One last thing, Rüdiger: The "AppSwap" Command is not the culprit (not if an Outlook window was already open).

Marius

Dragon NaturallySpeaking 11.5 Legal
Windows 7 Prof. 64-Bit, Office 2010, Jarte Plus
Philips SpeechMike II Pro Plus, SpeechMike III, SpeechMike Air, PDCC 2.8
Intel Core2 Quad Q9550, 2,83 GHz, 2x6MB L-2, 8 GB RAM

R.Wilke Offline



Beiträge: 6.121

12.03.2011 12:07
#18 RE: Outlook-Ordner "Gesende Objekte" von überall aufrufen Zitat · Antworten

Sorry, Marius, you are right, but the fault was with Lindsay obviously. I think I will go back to wrapping my legs around my neck, and post back if and only if I can come up with a working solution.

Rüdiger

_______________________________________

DPG 15.6 (15.60.200.015) auf Windows 10 Pro (64-bit)
SpeechMike Premium (LFH3500) + SpeechMike II
HP ZBook 17 G2 (Refurbished) - i7-4910qm - 8MB SmartCache - 32 GB RAM - 512 GB SSD - 1 TB HSSD - 2 TB HDD

R.Wilke Offline



Beiträge: 6.121

12.03.2011 20:16
#19 RE: Outlook-Ordner "Gesende Objekte" von überall aufrufen Zitat · Antworten

So, das funktioniert jetzt aber wie von Marius gefordert, sofern Outlook bereits gestartet ist:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 

Sub Main
 
AppSwapWith("Outlook")
 
Dim myNamespace As Outlook.NameSpace
Dim myExp As Outlook.Explorer
 
Set myNamespace = Application.GetNamespace("MAPI")
Set myExp = Application.ActiveExplorer
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderSentMail)
 
Set myExp = Nothing
Set myNamespace = Nothing
 
End Sub
 
 

_______________________________________

DPG 15.6 (15.60.200.015) auf Windows 10 Pro (64-bit)
SpeechMike Premium (LFH3500) + SpeechMike II
HP ZBook 17 G2 (Refurbished) - i7-4910qm - 8MB SmartCache - 32 GB RAM - 512 GB SSD - 1 TB HSSD - 2 TB HDD

R.Wilke Offline



Beiträge: 6.121

12.03.2011 23:38
#20 RE: Outlook-Ordner "Gesende Objekte" von überall aufrufen Zitat · Antworten

Und hier noch die Variante mit einem Listenbefehl, wobei die Liste die Elemente "Ausgang, Eingang, Kalender" umfasst:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 

Sub Main
 
AppSwapWith("Outlook")
 
Dim myNamespace As Outlook.NameSpace
Dim myExp As Outlook.Explorer
 
Set myNamespace = Application.GetNamespace("MAPI")
Set myExp = Application.ActiveExplorer
 
Select Case ListVar1
Case "Eingang"
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Case "Ausgang"
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderSentMail)
Case "Kalender"
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderCalendar)
End Select
 
Set myExp = Nothing
Set myNamespace = Nothing
 
End Sub
 
 

_______________________________________

DPG 15.6 (15.60.200.015) auf Windows 10 Pro (64-bit)
SpeechMike Premium (LFH3500) + SpeechMike II
HP ZBook 17 G2 (Refurbished) - i7-4910qm - 8MB SmartCache - 32 GB RAM - 512 GB SSD - 1 TB HSSD - 2 TB HDD

Marius Raabe Offline



Beiträge: 718

13.03.2011 10:01
#21 RE: Outlook-Ordner "Gesende Objekte" von überall aufrufen Zitat · Antworten

Toll, toll, toll, vielen Dank für die Erfüllung der "Forderungen" - ich bin begeistert!

Es klappt übrigens auch z. B. mit weiteren Case-Zeilen für die Ordner Entwürfe und Journal wie folgt (alles natürlich nur, wenn der Befehlsname entsprechende Listeneinträge enthält und die Outlook-Bibliothek der jeweiligen Version eingebunden ist).

Case "Entwürfe"
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderDrafts)
Case "Journal"
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderJournal)


Dankbare Grüße, Marius Raabe

Dragon NaturallySpeaking 11.5 Legal
Windows 7 Prof. 64-Bit, Office 2010, Jarte Plus
Philips SpeechMike II Pro Plus, SpeechMike III, SpeechMike Air, PDCC 2.8
Intel Core2 Quad Q9550, 2,83 GHz, 2x6MB L-2, 8 GB RAM

Seiten 1 | 2
Ähnliche Themen Antworten/Neu Letzter Beitrag⁄Zugriffe
Outlook- und Word-Skriptbefehle nach Office 2016-Update kaputt
Erstellt im Forum Skripte und Zusatzprogramme von
25 03.10.2020 23:47
von Dioskur • Zugriffe: 860
Arbeiten mit Outlook und DPI 15
Erstellt im Forum Fragen zur Anwendung von
8 12.11.2018 10:41
von Meinhard • Zugriffe: 66
Dragon 13 - nur in Word und Outlook gut?
Erstellt im Forum Fragen zur Anwendung von
21 03.10.2014 01:13
von Alois • Zugriffe: 83
Neue Outlook-Befehle
Erstellt im Forum Berichte und Tipps von
1 25.07.2011 19:55
von R.Wilke • Zugriffe: 37
Skript zum Senden und Weiterleiten in Outlook
Erstellt im Forum Skripte und Zusatzprogramme von
2 05.05.2011 18:17
von Marius Raabe • Zugriffe: 47
Outlook-Template mit SpeechMike-Taste aufrufen
Erstellt im Forum Fragen zur Anwendung von
9 23.01.2011 16:40
von R.Wilke • Zugriffe: 16
Anhänge in Outlook per Skript öffnen: Teil 2
Erstellt im Forum Skripte und Zusatzprogramme von
0 11.01.2011 21:22
von R.Wilke • Zugriffe: 51
Datei-Anhänge in Outlook mittels Skript öffnen
Erstellt im Forum Skripte und Zusatzprogramme von
27 25.08.2015 12:42
von Sandra.H.H • Zugriffe: 107
Mit SpeechMike aus MS Notepad eine Thunderbird-Vorlage aufrufen
Erstellt im Forum Fragen zur Anwendung von
3 09.12.2010 20:45
von R.Wilke • Zugriffe: 19
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz