Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Outlook 365 - E-Mail Anhänge (PDF´s) automatisch öffnen
#1
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!  Blush
Antworten Top
#2
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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
[-] Folgende(r) 1 Nutzer sagt Danke an Käpt'n Blaubär für diesen Beitrag:
  • Cheaterdeluxe
Antworten Top
#3
(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 :)
Antworten Top
#4
Hallo!

Nicht mit SendKeys arbeiten. Prüfe den Dateityp des Anhangs und öffne die Datei mit "ShellExecute".

Gruß, René
[-] Folgende(r) 1 Nutzer sagt Danke an mumpel für diesen Beitrag:
  • Cheaterdeluxe
Antworten Top
#5
(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
Antworten Top
#6
http://vboffice.de/de/developers/anlagen...ch-drucken
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste