MS-Outlook-2003 Mails und Anhänge ins Dateisystem exportieren

• lblDatafile
• lblMsg
• lblCounter
• lblProzent
• cmdCancel

Option Explicit
'
'   ----------------------------------------------------------------------
'
'   Name:   khoSAM  - SaveAsMsg
'
'   Zweck:  Sichern bestimmter (neuer) Mails aus
'           Outlook-PST-Dateien in einzelne MSG-Files
'           Löschen von Mails nach nn Tagen
'
'   Author: Dipl.Inform. Karl-Holger Osterbuhr
'
'   Stand:  17.03.2008
'
'   Historie:
'           14.03.2008 - Mit %-Anzeige
'           27.01.2008 - Mit Formular
'   ----------------------------------------------------------------------
'
Private Sub cmdCancel_Click()
    DieseOutlookSitzung.bCancelSave = True
    Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iHandleForm     As Integer
    
    Me.lblDatafile.Caption = "Sicherung beginnt..."
    Me.lblCounter.Caption = ""
    Me.lblProzent.Caption = ""
    Me.lblMsg.Caption = DieseOutlookSitzung.khoSAMversion

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim iHandleForm     As Integer
Dim sFile           As String

    iHandleForm = FreeFile
    sFile = DieseOutlookSitzung.FormPosFile
    Open sFile For Output As iHandleForm
    
    Print #iHandleForm, Me.Left
    Print #iHandleForm, Me.Top
    
    Close #iHandleForm
End Sub