Outlook 365 - E-Mail Anhänge (PDF´s) automatisch öffnen

[Cheaterdeluxe]

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! 

[Käpt'n Blaubär]

Hallo,

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.

[Cheaterdeluxe]

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 :)

[mumpel]

Hallo!

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

Gruß, René

[Cheaterdeluxe]

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

[mumpel]

http://vboffice.de/de/developers/anlagen...ch-drucken