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

Frage Entwicklung

VBA Script für das öffnen von PDF-Dateien im Outlook Formularen

Mitglied: uniwop

uniwop (Level 1) - Jetzt verbinden

23.06.2011 um 17:25 Uhr, 5654 Aufrufe, 5 Kommentare

Hallo zusammen,

ich suche einen VBA Script für das öffnen von PDF-Dateien in Outlook Formularen. Der script für Bilddateien funktioniert, aber leider nicht mit PDF Dateien.

Hallo zusammen,

ich suche einen VBA Script für das öffnen von PDF-Dateien in Outlook Formularen. Der script für Bilddateien funktioniert, aber leider nicht mit PDF Dateien.
Mitglied: MrTrebron
23.06.2011 um 18:54 Uhr
Hallo uniwop,

dann zeig doch mal dein Script für Bilddateien.

Ebenfalls ohne Gruß
Norbert
Bitte warten ..
Mitglied: uniwop
23.06.2011 um 20:33 Uhr
Hallo Mr. Trebron,

anbei den Script, der 1. öffnet die Bilddatei aus dem gespeicherten Pfad und der 2. öffnet den Explorer und speichert die ausgewählte datei im Pfad.
Das ganze soll auch mit PDF-Dateien funktionieren.

Sub openAufgabe_Click()
Set oShell = Item.Application.CreateObject("WScript.Shell")

strOBPath = Item.UserProperties.Find("Pfad").Value
Item.GetInspector.ModifiedFormPages("Aufgabe").Controls("Anzeige").Picture = LoadPicture(strOBPAth)
'Öffene Bilddatei mit Windows Bild- und Faxanzeige
oShell.run "rundll32.exe %systemroot%\system32\shimgvw.dll,ImageView_Fullscreen " & strOBPath
End Sub

Sub saveAufgabe_Click()
Set oUAC = Item.Application.CreateObject("UserAccounts.CommonDialog")
oUAC.Filter = "Alle Bilddateien (*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*.bmp"
oUAC.ShowOpen

Item.UserProperties.Find("Pfad").Value = oUAC.FileName

Item.GetInspector.ModifiedFormPages("Aufgabe").Controls("Anzeige").Picture = LoadPicture(oUAC.FileName)

End Sub

Gruß Uniwop.
Bitte warten ..
Mitglied: MrTrebron
24.06.2011 um 09:45 Uhr
Guten Morgen Uniwop

Der folgende Code speichert alle Anhänge in einem Unterordner von c:\temp. Name des Unterordners ist der Absender.

01.
Private Sub Application_NewMail() 
02.
    Dim Ordnername As String 
03.
    Dim objPosteingang As MAPIFolder 
04.
    Dim objNewMail As MailItem 
05.
    On Error Resume Next 
06.
    Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
07.
    For Each objNewMail In objPosteingang.Items 
08.
        With objNewMail 
09.
            If .UnRead = True Then 
10.
                Anzahl = .Attachments.Count 
11.
                If Anzahl > 0 Then 
12.
                    Ordnername = "C:\temp\" & objNewMail.SenderName 
13.
                    MkDir Ordnername 
14.
                    For i = 1 To Anzahl 
15.
                        .Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName 
16.
                    Next i 
17.
                End If 
18.
            End If 
19.
        End With 
20.
    Next objNewMail 
21.
End Sub
Mehr gibt es dazu hier

Gruß
Norbert
Bitte warten ..
Mitglied: uniwop
24.06.2011 um 11:17 Uhr
Dankeschön, werde es damit versuchen.

MfG

Uniwop
Bitte warten ..
Mitglied: uniwop
24.06.2011 um 14:41 Uhr
Hallo Norbert,

ich habe den 2. Script umgeschrieb, dass mit diesem der Explorer geöffnet wird und eine PDF-Datei im Textfeld im Outlookformul gespeichert wird.
Nun muss ich mit dem 1. Script dieses Textfeld ansteuern und dabei den gespeicherten Pfad der PDF-Datei öffnen. Dieses stellt das Problem dar.

Währe nett, wenn Du da mir nochmals einen eventuellen Script-Auszug senden könntest.

Vielen Dank im voraus

Uniwop
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel VBA an PDF Formular anpassen
gelöst Frage von Detel1VB for Applications3 Kommentare

Hallo! Ich habe ein PDF Formular das aus Excel VBA beschrieben wird, per email versandt und per outlook zurueck ...

Microsoft Office
PDF in Outlook läßt sich nicht öffnen
Frage von mexxMicrosoft Office2 Kommentare

Hallo, wir verwenden Outlook 2010 und den Adobe Reader DC. Wenn eine Mail ein PDF als Anhang hat, öffnet ...

Windows 8
PDF Dateien öffnen sich nicht
Frage von andywolfWindows 83 Kommentare

Guten Tag! Plötzlich die pdf. Dateien haben aufgehört sich zu öffnen. Bei dem Versuch zu öffnen schreibt man: "es ...

Multimedia
PDF-Dateien standardmäßig im Vollbild öffnen
Frage von Tomschaf91Multimedia2 Kommentare

Hallo zusammen, leider habe ich im Internet keine passende Lösung für mein Problem gefunden. Ich möchte eine PDF-Datei (mehrere ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...

Batch & Shell
Shell-Skript - Syntax error: Unterminated quoted string
Frage von newit1Batch & Shell13 Kommentare

Hallo Ich schreibe ein Skript das eine CSV-Datei in eine mySQL Datenbank schieben soll. Bekomme nach start des Skrips ...

E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...