Top-Themen

Aktuelle Themen (A bis Z)

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

VBA - Nachdem verschicken der E-Mail das Objekt ausdrucken

Frage Entwicklung VB for Applications

Mitglied: Dani

Dani (Level 5) - Jetzt verbinden

04.09.2009, aktualisiert 14:12 Uhr, 7219 Aufrufe, 1 Kommentar

Hallo zusammen,
wir haben bei uns im Einsatz Outlook 2003. Nun ist es so, dass wir einige Arbeitsplätze haben, die relevante & wichtige E-Mail empfangen/verschicken.

Im Moment ist es so, dass wenn die Mitarbeiterin eine E-Mail verschickt hat, in den Ordner "Gesendete Objekte" geht und dort das neuste Element öffnet und ausdruckt. Das sind pro Arbeitsschritt 5 Klicks und einige Sekunden was verloren geht. Rechnet man das auf 1 Jahr und für insgesamt 35 Mitarbeiter kommt eine kl. Summe raus. Jedoch für die Leistung ist das viel.

Nun schwebt mir ein VBA-Script vor, dass nach jedem Senden kurz nachfragt, ob das Element in den "Gesendeten Objekten" ausgedruckt werden soll. Die Abfrage per MessageBox ist eigentlich kein Problem:
01.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
02.
 
03.
    intAntwort = MsgBox("E-Mail Ausdrucken?", vbOKCancel) 
04.
     
05.
    Select Case intAntwort 
06.
        Case vbOK 
07.
            Item.PrintOut 
08.
        Case vbChancel 
09.
            'nix 
10.
    End Select 
11.
 
12.
End Sub
Jedoch die Abfrage des neusten Objekts in "Gesendete Objekte" bringt mich an meine Grenzen von VBA. Die Initialisierung der Objekte sieht so aus:
01.
Dim Mails As Outlook.Items 
02.
    Dim Mail As Object 
03.
     
04.
     
05.
    'Outlook als Object erstellen 
06.
    Set myOlApp = CreateObject("Outlook.Application") 
07.
    Set myNameSpace = myOlApp.GetNamespace("MAPI") 
08.
     
09.
    Set FolderUserDir = FolderUserInbox.Parent.Folders("Gesendete Objekte") 
10.
....
Wie kann ich jetzt die Abfrage steuern, dass er mir die neuste E-Mail in eine Variable speichert und danach ausdruckt?


Viele Grüße,
Dani
Mitglied: Dani
06.09.2009 um 10:46 Uhr
Moin,
hier nun die Lösung:
01.
Option Explicit 
02.
 
03.
'Deklarationen 
04.
'zuerst für Outlook selbst und den Namespace... ohne die beiden geht nichts. 
05.
Dim MyOLApp As Application 
06.
Dim myNameSpace As NameSpace 
07.
 
08.
Public Sub PrintLastMail_GeOrd() 
09.
    'Deklarationen 
10.
    Dim FolderUserDir As MAPIFolder 
11.
    Dim FolderInbox As MAPIFolder 
12.
    Dim Mails As Outlook.Items 
13.
    Dim Mail As Object 
14.
     
15.
     
16.
    'Outlook als Object erstellen 
17.
    Set MyOLApp = CreateObject("Outlook.Application") 
18.
    Set myNameSpace = MyOLApp.GetNamespace("MAPI") 
19.
     
20.
    'Hier wird definiert, auf welches Outlookpostfach das Script zugreifen soll. 
21.
    'Da es vorkommt, dass ein User mal mehere Postfächer im Outlookprofil haben kann 
22.
    Set FolderInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
23.
    Set FolderUserDir = FolderInbox.Parent.Folders("Gesendete Objekte") 
24.
    
25.
    'Liest die E-Mails in ein Array 
26.
    Set Mails = FolderUserDir.Items 
27.
     
28.
    'die "neuste" bzw. "letzte" E-Mail wird ausgelesen. 
29.
    'Achtung: Ist abhängig von der Sortiermethode!! 
30.
    Set Mail = Mails.GetLast 
31.
     
32.
    'E-Mail wird ausgedruckt 
33.
    Mail.PrintOut 
34.
     
35.
End Sub
zum krönenen Abschluss könnt ihr das Marko in die Symbolleiste einfügen.
Bitte warten ..
Ähnliche Inhalte
SAN, NAS, DAS
Mit NAS E-Mails automatisch ausdrucken
Frage von miichiii9SAN, NAS, DAS8 Kommentare

Hallo liebe Admins Ich bin auf der suche nach einer Lösung, das ich einkommende Mails automatisch audrucken kann. Am ...

Batch & Shell
Batch Datei kopieren und E-Mail verschicken
Frage von TomJonesBatch & Shell2 Kommentare

Hallo zusammen, es geht um meine Datensicherung. Täglich um 22:00 Uhr werden meine Daten gesichert und auf mein NAS ...

Exchange Server
1 von n-Benutzer kann keine E-Mails verschicken
Frage von malikaExchange Server3 Kommentare

Hallo zusammen, ich habe einen Benutzer, der plötzlich E-Mails weder über Webinterface (OWA) noch über Outlook verschicken kann. Die ...

Batch & Shell
Mail aus Batchdatei verschicken
Frage von ZadopeckBatch & Shell5 Kommentare

Hallo zusammen, das Thema hab ich hier schon gefunden, aber leider konnte ich für meinen Fall die Lösung nicht ...

Neue Wissensbeiträge
DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Windows 10

Microsoft bestätigt DMA-Policy-Problem in Win10 v1709

Information von DerWoWusste vor 2 StundenWindows 10

Wer sein Gerät mit der DMA-Policy absichert, bekommt evtl. Hardwareprobleme in v1709 von Win10. Warum? Weil v1709 endlich "richtig" ...

Verschlüsselung & Zertifikate

Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows

Information von ticuta1 vor 6 StundenVerschlüsselung & Zertifikate

Interessant Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows SSH-Kommando in CMD.exe und PowerShell

Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server19 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement17 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...