FREMDBEITRAG: Makros zum direkten Anzeigen von *.jpg in Outlook

Home-›Foren-›Outlook-›Outlook VBA-›FREMDBEITRAG: Makros zum direkten Anzeigen von *.jpg in Outlook

5 Antworten anzeigen - 1 bis 5 (von insgesamt 5)
  • Autor
    Beitrag
  • #29556
    lastwebpage
    Moderator

    Folgender Beitrag wurde mir per Mail zugesendet, Fragen, Kommentare, Anregungen bitte in diesen Thread posten.
    (Ich bin nur der arme Moderator, und habe mich zugegebenermaßen noch nicht so intensiv mit VB-OL Makros beschäftigt 😉 )

    Die Dateien können, inklusive der Binär-Datei Bilder.frx die hier nicht angegeben ist, hier runter geladen werden:
    [url=http://www.lastwebpage.de/mailhilfe/makros_zum_direkten_anzeigen_von_jpg_in_outlook.zip]Zipdatei zum Makro anzeigen von JPG Dateien[/url]

    [line]
    Hallo Peter.

    Hier also das Outlook-Makro, mit dem man direkt *.jpg angezeigt kriegt. Zugegebenermaßen noch ziemlich rudimentär. Normalerweise kommentiere ich meine software auch. Aber Du brauchst ja nur durchzusteppen. Und wenn es Verständnis-Schwierigkeiten gibt, kannst Du mich ja fragen. Im Moment ist auch noch etwas nervig, daß grundsätzlich jedes *,jpg angezeigt wird, nicht nur die expliziten Anlagen. Ich würde mich freuen, wenn ich in irgendeiner Form mitkriegen würde, falls jemand die Makros weiterentwickelt. Und wenn ich selber noch was daran ändere, schicke ich Dir das dann auch gerne.

    Viele Grüße, Björn

    [Editiert am 26/5/2005 von lastwebpage]

    [Editiert am 26/5/2005 von lastwebpage]

    #99809
    lastwebpage
    Moderator

    DieseOutlookSitzung.cls
    [line]

    VERSION 1.0 CLASS
    BEGIN
    MultiUse = -1 \’True
    END
    Attribute VB_Name = \”DieseOutlookSitzung\”
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = True
    Option Explicit

    Dim O As New Klasse1

    Private Sub Application_Startup()

    Set O.Expl = Outlook.ActiveExplorer

    End Sub

    #99811
    lastwebpage
    Moderator

    Klasse1.cls
    [line]
    VERSION 1.0 CLASS
    BEGIN
    MultiUse = -1 \’True
    END
    Attribute VB_Name = \”Klasse1\”
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = False
    Attribute VB_Exposed = False
    Option Explicit

    Public WithEvents OL As Outlook.Application
    Attribute OL.VB_VarHelpID = -1
    Public WithEvents OlFolders As Folders
    Attribute OlFolders.VB_VarHelpID = -1
    Public WithEvents OlMailItem As MailItem
    Attribute OlMailItem.VB_VarHelpID = -1
    Public WithEvents OlNS As NameSpace
    Attribute OlNS.VB_VarHelpID = -1
    Public WithEvents Expl As Explorer
    Attribute Expl.VB_VarHelpID = -1
    Public WithEvents Expls As Explorers
    Attribute Expls.VB_VarHelpID = -1
    Public WithEvents OlInsp As Inspector
    Attribute OlInsp.VB_VarHelpID = -1
    Public WithEvents OlInsps As Inspectors
    Attribute OlInsps.VB_VarHelpID = -1
    Public WithEvents InboxItems As Items
    Attribute InboxItems.VB_VarHelpID = -1
    Public WithEvents OlPane As OutlookBarPane
    Attribute OlPane.VB_VarHelpID = -1

    Private Sub Expl_SelectionChange()

    Const C_Pause As Single = 1

    Dim OlE As Outlook.Explorer
    Dim OlS As Outlook.Selection
    Dim OlA As Attachment
    Dim n%, x%, y%, FileNummer%, Name$

    Set OlE = Application.ActiveExplorer
    Set OlS = OlE.Selection

    FileNummer = 0

    If (OlS.Count > 0) Then
    x = OlS.Item(1).Attachments.Count
    If x > 0 Then
    For y = 1 To x
    Set OlA = OlS.Item(1).Attachments.Item(y)
    If (LCase(Right$(OlA.FileName, 3)) = \”jpg\”) Then
    FileNummer = FileNummer + 1
    OlA.SaveAsFile \”c:\\OutlookTemp\\\” & FileNummer & \”.jpg\”
    End If
    Next y
    End If
    End If

    If (FileNummer > 0) Then
    Bilder.Show
    End If

    End Sub

    Private Sub OlMailItem_Open(Cancel As Boolean)

    MsgBox \”Huhu!\”

    End Sub

    #99812
    lastwebpage
    Moderator

    Bilder.frm
    [line]
    VERSION 5.00
    Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Bilder
    Caption = \”Bilder\”
    ClientHeight = 7260
    ClientLeft = 8700
    ClientTop = 7170
    ClientWidth = 9930
    OleObjectBlob = \”Bilder.frx\”:0000
    End
    Attribute VB_Name = \”Bilder\”
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit

    Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    NächstesBild
    End Sub

    Private Sub UserForm_Click()
    \’ MsgBox \”Left \” & Bilder.Left
    \’ MsgBox \”Top \” & Bilder.Top
    NächstesBild
    End Sub

    Private Sub UserForm_Deactivate()
    Unload Bilder
    End Sub

    Private Sub UserForm_Initialize()

    \’ MsgBox Bilder.Left
    \’ MsgBox Bilder.Top
    NächstesBild
    End Sub

    Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Dim Nummer%
    Nummer = KeyAscii

    \’ Bei ESC beenden, sonst blättern:
    If Nummer = 27 Then
    Unload Bilder
    Else
    NächstesBild
    End If

    End Sub

    Private Sub NächstesBild()
    Static ls_Riegel_B As Boolean
    Static Datei$

    If (ls_Riegel_B <> True) Then
    Datei = Dir(\”C:\\OutlookTemp\\*.jpg\”)
    ls_Riegel_B = True
    Else
    Datei = Dir
    End If

    If Datei <> \”\” Then
    Bilder.PictureSizeMode = fmPictureSizeModeClip
    Bilder.Picture = LoadPicture(\”C:\\OutlookTemp\\\” & Datei)
    \’ MsgBox \”Höhe \” & Bilder.Picture.Height
    \’ MsgBox \”Breite \” & Bilder.Picture.Width
    If (Bilder.Picture.Width > Bilder.Width * 26.458) Or _
    (Bilder.Picture.Height > Bilder.Height * 26.458) Then
    Bilder.PictureSizeMode = fmPictureSizeModeZoom
    End If
    Else
    Unload Bilder
    End If

    End Sub

    Private Sub UserForm_Terminate()
    \’ Alle jpg\’s löschen:
    Static Datei$

    Datei = Dir(\”C:\\OutlookTemp\\*.jpg\”)

    If Datei <> \”\” Then
    Kill \”C:\\OutlookTemp\\\” & Datei
    While Datei <> \”\”
    Datei = Dir
    If Datei <> \”\” Then Kill \”C:\\OutlookTemp\\\” & Datei
    Wend
    End If
    End Sub

    #108542
    Unbekannt
    Teilnehmer

    Hallo,

    kann mir bitte jemand sagen, wie man das installiert`?

    Vielen Dank

5 Antworten anzeigen - 1 bis 5 (von insgesamt 5)

Das Thema ‘FREMDBEITRAG: Makros zum direkten Anzeigen von *.jpg in Outlook’ ist für neue Antworten geschlossen.

-

Hat Ihnen der Beitrag gefallen?

1 Stern2 Sterne3 Sterne4 Sterne5 Sterne (Keine Bewertung vorhanden)
Loading...