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 1 Antworten
und wurde 46 mal aufgerufen
 Skripte und Zusatzprogramme
Marius Raabe Offline



Beiträge: 718

19.03.2011 14:23
RE: Nachricht senden und drucken Zitat · Antworten

Nachfolgendes Bastelergebnis tut in meinem Outlook 2007, was die Überschrift sagt, nämlich eine fertig verfasste E-Mail abschicken und anschließend aus dem Ordner Gesendete Objekte heraus mit einem bestimmten Drucker (der auf den Anfangsbuchstaben "k" hört) ausdrucken (genauer gesagt: es wird die zuletzt gesendete Nachricht gedruckt).

Die besseren Zeilen in dem Machwerk stammen aus einem Skript von Rüdiger Wilke (natürlich), die schlechteren lassen sich bestimmt verbessern (feel free)...


Sub Main
Dim myNamespace As Outlook.NameSpace
Dim myExp As Outlook.Explorer

SendKeys "%s",1
Wait .2
SendKeys "{F9}",1

Set myNamespace = Application.GetNamespace("MAPI")
Set myExp = Application.ActiveExplorer
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderSentMail)

Wait .5
SendKeys "^{Home}",1
SendKeys "^p",1
SendKeys "%N",1
SendKeys "k",1
SendKeys "{Enter}",1

Set myExp = Nothing
Set myNamespace = Nothing

'Beste Grüße, Marius Raabe
End Sub

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.119

20.03.2011 00:49
#2 RE: Nachricht senden und drucken Zitat · Antworten

Prof. Marius - Gratulation noch mal an dieser Stelle dazu -,

das ist kaum noch zu verbessern, zumindest nicht mit verhältnismaßigem Aufwand. Das Komplizierte, da ohne Objekt-Zugriff nicht zu bewerkstelligen (der Wechsel des Ordners) ist ja schon erledigt, den Rest kann man dann genau so gut mit SendKeys machen, wie ausgeführt. Auch wenn man es noch vertiefen könnte, würde ich es so lassen.

Gruß, 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

Ähnliche Themen Antworten/Neu Letzter Beitrag⁄Zugriffe
Script Befehl TCP senden
Erstellt im Forum Skripte und Zusatzprogramme von
6 04.10.2016 12:20
von Nokman • Zugriffe: 28
Drucker wählen per Skript
Erstellt im Forum Skripte und Zusatzprogramme von
8 01.10.2015 18:53
von MikeInit • Zugriffe: 60
qutlook 2007 macht Probleme beim Senden und der Rechtschreibprüfung.
Erstellt im Forum Fehlermeldungen von
3 14.09.2015 22:02
von R.Wilke • Zugriffe: 39
Dragon erkennt nicht mehr Funktionstasten-Befehle „drück F 3“
Erstellt im Forum Fragen zur Anwendung von
4 11.06.2014 20:13
von P.Roch • Zugriffe: 23
Wie kann ich mit Vocola Tasten drücken?
Erstellt im Forum Skripte und Zusatzprogramme von
1 24.12.2012 15:20
von Alexandra • Zugriffe: 26
ungewolltes Drucken
Erstellt im Forum Fragen zur Anwendung von
2 13.08.2012 19:12
von johannita • Zugriffe: 28
Skript zum Senden und Weiterleiten in Outlook
Erstellt im Forum Skripte und Zusatzprogramme von
2 05.05.2011 18:17
von Marius Raabe • Zugriffe: 45
E-Mail-Befehle in Lotus Notes
Erstellt im Forum Fehlermeldungen von
8 15.08.2011 17:10
von mipi • Zugriffe: 28
Keine Benachrichtigungen bei privaten Nachrichten und Mails
Erstellt im Forum Dies und Das von
0 01.03.2010 20:02
von R.Wilke • Zugriffe: 32
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz