Hallo zusammen,
ich bin neu hier und hoffe meine Hilfsanfrage ist so richtig, falls nicht bitte korrigieren.
Ich benötige ein Makro, dieses soll PDF-Dateien von E-Mails automatisch öffnen.
D.h. sobald eine neue E-Mail mit PDF-Anhang im Postfach landet, soll dieses PDF automatisch ohne klicken geöffnet werden.
Gibt es eine Möglichkeit dies zu realisieren?
Liebe Grüße und danke vorab!
Hallo,
Zitat:Ich benötige ein Makro, dieses soll PDF-Dateien von E-Mails automatisch öffnen.
D.h. sobald eine neue E-Mail mit PDF-Anhang im Postfach landet, soll dieses PDF automatisch ohne klicken geöffnet werden.
Gibt es eine Möglichkeit dies zu realisieren?
ich denke, daß das nicht funktionieren funktionieren wird, und das ist auch gut so.
Es sei denn, Du bist exessiver Virensammler.
(02.05.2019, 23:46)Käpt\n Blaubär schrieb: [ -> ]Hallo,
ich denke, daß das nicht funktionieren funktionieren wird, und das ist auch gut so.
Es sei denn, Du bist exessiver Virensammler.
Mir geht es nicht um exessives Virensammeln :D
/ Es geht um Interne-Mails wo keine Gefahr besteht...
Damit sollte es eigentlich auch schon fast funktionieren:
'Explorer Object
Dim WithEvents objExplorer As Explorer
'aktuelles Mailitem
Dim WithEvents mItem As MailItem
Dim objShell As Object
Private Sub Application_Startup()
'aktiven Explorer beim Outlookstart setzen
Set objExplorer = ActiveExplorer
Set objShell = CreateObject("wscript.shell")
End Sub
Private Sub mItem_Read()
With mItem
If .Attachments.Count > 0 Then
objShell.SendKeys ("{TAB}^({TAB 10})%({DOWN}){DOWN} ") <--- Ist von Outlook 2016 , kennt jemand die SendKeys für Outlook 365?
End If
End With
End Sub
Private Sub objExplorer_SelectionChange()
With objExplorer
If .Selection.Count > 0 Then
If .Selection.Item(1).Class = olMail Then
Set mItem = .Selection.Item(1)
End If
End If
End With
End Sub
Hoffe mir kann einer weiterhelfen :)
Hallo!
Nicht mit SendKeys arbeiten. Prüfe den Dateityp des Anhangs und öffne die Datei mit "ShellExecute".
Gruß, René
(03.05.2019, 07:45)mumpel schrieb: [ -> ]Hallo!
Nicht mit SendKeys arbeiten. Prüfe den Dateityp des Anhangs und öffne die Datei mit "ShellExecute".
Gruß, René
Kannst du mir ein Beispiel zeigen?
Kann leider nicht programmieren, das Skript OBEN hat ein Kollege erstellt.
LG