Version =20
VersionRequired =20
Checksum =1005128461
Begin Form
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ShortcutMenu = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    DividingLines = NotDefault
    DefaultView =0
    ScrollBars =0
    BorderStyle =1
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    Cycle =1
    GridX =5
    GridY =5
    Width =7596
    DatasheetFontHeight =10
    ItemSuffix =54
    Left =3405
    Top =1140
    Right =10995
    Bottom =5100
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xe9b6f5c18dd6e140
    End
    RecordSource ="tbl_AP_Mail_Manager_Einstellungen"
    Caption ="AP-Mail-Manager"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="MS Sans Serif"
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin TextBox
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
        End
        Begin Tab
            Width =5103
            Height =3402
        End
        Begin Page
            Width =1701
            Height =1701
        End
        Begin Section
            Height =4195
            BackColor =-2147483633
            Name ="Detailbereich"
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    AccessKey =67
                    Left =113
                    Top =3741
                    Width =1251
                    Height =405
                    ForeColor =0
                    Name ="Schließen"
                    Caption ="S&chließen"
                    OnClick ="[Event Procedure]"
                End
                Begin Tab
                    OverlapFlags =93
                    Left =120
                    Top =120
                    Width =7365
                    Height =3510
                    TabIndex =1
                    TabFixedWidth =1701
                    TabFixedHeight =340
                    Name ="RegisterStr0"
                    Begin
                        Begin Page
                            OverlapFlags =223
                            Left =255
                            Top =600
                            Width =7095
                            Height =2895
                            Name ="Datenherkunft"
                            Begin
                                Begin CheckBox
                                    OverlapFlags =223
                                    Left =5622
                                    Top =3216
                                    Name ="Listenüberschrift"
                                    ControlSource ="Listenüberschrift"
                                    DefaultValue ="True"
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =340
                                            Top =3180
                                            Width =4980
                                            Height =240
                                            Name ="Bezeichnungsfeld58"
                                            Caption ="Spaltenüberschriften anzeigen"
                                        End
                                    End
                                End
                                Begin ComboBox
                                    LimitToList = NotDefault
                                    OverlapFlags =223
                                    ColumnCount =2
                                    Left =2386
                                    Top =793
                                    Width =3411
                                    TabIndex =1
                                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"100\""
                                    Name ="Standarddatenherkunft"
                                    ControlSource ="Standarddatenherkunft"
                                    RowSourceType ="Table/Query"
                                    RowSource ="SELECT tbl_AP_Datenherkunft.ID, tbl_AP_Datenherkunft.Bezeichnung FROM tbl_AP_Dat"
                                        "enherkunft ORDER BY tbl_AP_Datenherkunft.Bezeichnung;"
                                    ColumnWidths ="0;3402"
                                    OnDblClick ="=DropDown()"
                                    BaseInfo ="\"SELECT tbl_AP_Datenherkunft.ID, tbl_AP_Datenherkunft.Bezeichnung FROM tbl_AP_D"
                                        "atenherkunft ORDER BY tbl_AP_Datenherkunft.Bezeichnung;\";\"tbl_AP_Datenherkunft"
                                        "\";\"\";\"ID\";\"Bezeichnung\";\"PrimaryKey\""
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =340
                                            Top =793
                                            Width =1935
                                            Height =240
                                            Name ="Bezeichnungsfeld60"
                                            Caption ="Standard-Datenherkunft:"
                                        End
                                    End
                                End
                                Begin ComboBox
                                    LimitToList = NotDefault
                                    RowSourceTypeInt =1
                                    OverlapFlags =223
                                    ColumnCount =2
                                    Left =2386
                                    Top =1133
                                    Width =3411
                                    TabIndex =2
                                    BoundColumn =1
                                    Name ="Anzeige_Reihenfolge"
                                    ControlSource ="Anzeige_Reihenfolge"
                                    RowSourceType ="Value List"
                                    RowSource ="\"Empfänger\";\"E\";\"Email-Adresse\";\"A\""
                                    ColumnWidths ="3402;0"
                                    OnDblClick ="=DropDown()"
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =340
                                            Top =1133
                                            Width =1920
                                            Height =240
                                            Name ="Bezeichnungsfeld42"
                                            Caption ="Reihenfolge:"
                                        End
                                    End
                                End
                                Begin ComboBox
                                    LimitToList = NotDefault
                                    RowSourceTypeInt =1
                                    OverlapFlags =223
                                    ColumnCount =2
                                    Left =2386
                                    Top =1473
                                    Width =3411
                                    TabIndex =3
                                    BoundColumn =1
                                    Name ="Anzeige_Sortierung"
                                    ControlSource ="Anzeige_Sortierung"
                                    RowSourceType ="Value List"
                                    RowSource ="\"Empfänger\";\"E\";\"Email-Adresse\";\"A\""
                                    ColumnWidths ="3402;0"
                                    OnDblClick ="=DropDown()"
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =340
                                            Top =1473
                                            Width =1920
                                            Height =240
                                            Name ="Bezeichnungsfeld44"
                                            Caption ="Sortierung:"
                                        End
                                    End
                                End
                                Begin TextBox
                                    DecimalPlaces =2
                                    OverlapFlags =223
                                    TextAlign =1
                                    Left =2386
                                    Top =1814
                                    Width =1356
                                    TabIndex =4
                                    Name ="Anzeige_Breite_1"
                                    ControlSource ="Anzeige_Breite_1"
                                    Format ="Standard"
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =345
                                            Top =1810
                                            Width =1920
                                            Height =240
                                            Name ="Bezeichnungsfeld46"
                                            Caption ="Feldbreite (1. Spalte):"
                                        End
                                    End
                                End
                                Begin TextBox
                                    DecimalPlaces =2
                                    OverlapFlags =223
                                    TextAlign =1
                                    Left =2381
                                    Top =2158
                                    Width =1356
                                    TabIndex =5
                                    Name ="Anzeige_Breite_2"
                                    ControlSource ="Anzeige_Breite_2"
                                    Format ="Standard"
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =345
                                            Top =2155
                                            Width =1935
                                            Height =240
                                            Name ="Bezeichnungsfeld48"
                                            Caption ="Feldbreite (2. Spalte):"
                                        End
                                    End
                                End
                                Begin TextBox
                                    Enabled = NotDefault
                                    Locked = NotDefault
                                    DecimalPlaces =0
                                    OverlapFlags =223
                                    TextAlign =1
                                    BackStyle =0
                                    Left =2376
                                    Top =2497
                                    Width =1356
                                    TabIndex =6
                                    Name ="Schriftgrad"
                                    ControlSource ="Schriftgrad"
                                    Format ="General Number"
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =340
                                            Top =2494
                                            Width =1935
                                            Height =240
                                            Name ="Bezeichnungsfeld50"
                                            Caption ="Schriftgrad:"
                                        End
                                    End
                                End
                                Begin TextBox
                                    Enabled = NotDefault
                                    Locked = NotDefault
                                    OverlapFlags =223
                                    TextAlign =1
                                    BackStyle =0
                                    Left =2376
                                    Top =2837
                                    Width =3411
                                    TabIndex =7
                                    Name ="A_Schriftart"
                                    ControlSource ="Schriftart"
                                    Begin
                                        Begin Label
                                            OverlapFlags =223
                                            Left =340
                                            Top =2834
                                            Width =1935
                                            Height =240
                                            Name ="Bezeichnungsfeld52"
                                            Caption ="Schriftart:"
                                        End
                                    End
                                End
                                Begin CommandButton
                                    OverlapFlags =223
                                    AccessKey =83
                                    Left =5850
                                    Top =2790
                                    Width =337
                                    Height =322
                                    TabIndex =8
                                    ForeColor =0
                                    Name ="Schriftart"
                                    Caption ="&Schriftart"
                                    OnClick ="[Event Procedure]"
                                    PictureData = Begin
                                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddadadadadadadada ,
                                        0xa4444dad444444adda74dadad7447adaada44dada744adaddad74adad447dada ,
                                        0xadad4444444dadaddada74da447adadaadada44d44adadaddadad74447dadada ,
                                        0xadadad444dadadaddadada747adadadaadadada4adadadaddadadadadadadada ,
                                        0xadadadadadadadad
                                    End
                                    ObjectPalette = Begin
                                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                                        0xffffff0000000000
                                    End
                                    ControlTipText ="Schriftart einstellen"
                                End
                                Begin CommandButton
                                    TabStop = NotDefault
                                    OverlapFlags =223
                                    Left =5896
                                    Top =793
                                    Width =840
                                    Height =284
                                    TabIndex =9
                                    Name ="Auswahl"
                                    Caption ="Auswahl"
                                    OnClick ="[Event Procedure]"
                                End
                            End
                        End
                        Begin Page
                            OverlapFlags =255
                            Left =255
                            Top =600
                            Width =7095
                            Height =2895
                            Name ="Email"
                            Begin
                                Begin CheckBox
                                    OverlapFlags =255
                                    Left =340
                                    Top =829
                                    Name ="Sende_KZ"
                                    ControlSource ="Sende_KZ"
                                    DefaultValue ="True"
                                    Begin
                                        Begin Label
                                            OverlapFlags =255
                                            Left =565
                                            Top =793
                                            Width =5100
                                            Height =240
                                            Name ="Sende_KZ_Text"
                                            Caption ="Vor dem Senden Maileditor öffnen"
                                        End
                                    End
                                End
                                Begin CheckBox
                                    OverlapFlags =255
                                    Left =340
                                    Top =1159
                                    TabIndex =1
                                    Name ="Schliessen_nach_Senden"
                                    ControlSource ="Schliessen_nach_Senden"
                                    Begin
                                        Begin Label
                                            OverlapFlags =255
                                            Left =570
                                            Top =1133
                                            Width =5100
                                            Height =240
                                            Name ="Bezeichnungsfeld33"
                                            Caption ="Mailformular nach dem Senden schließen"
                                        End
                                    End
                                End
                                Begin CheckBox
                                    OverlapFlags =255
                                    Left =340
                                    Top =1501
                                    TabIndex =2
                                    Name ="Meldung_nach_Senden"
                                    ControlSource ="Meldung_nach_Senden"
                                    Begin
                                        Begin Label
                                            OverlapFlags =255
                                            Left =570
                                            Top =1474
                                            Width =5100
                                            Height =240
                                            Name ="Bezeichnungsfeld35"
                                            Caption ="Meldung nach dem Versenden der Email anzeigen"
                                        End
                                    End
                                End
                                Begin CheckBox
                                    OverlapFlags =255
                                    Left =340
                                    Top =2189
                                    TabIndex =3
                                    Name ="Express_ClickYes"
                                    ControlSource ="Express_ClickYes"
                                    DefaultValue ="True"
                                    GUID = Begin
                                        0x748584db0f80a849b7ac4447e886c3e7
                                    End
                                    Begin
                                        Begin Label
                                            OverlapFlags =255
                                            Left =570
                                            Top =2154
                                            Width =5670
                                            Height =240
                                            FontWeight =700
                                            Name ="Bezeichnungsfeld77"
                                            Caption ="Express ClickYes aktivieren (Umgeht die Outlook-Abfrage)"
                                            GUID = Begin
                                                0xe0868473f5018a43817e6333eaf0f57f
                                            End
                                        End
                                    End
                                End
                            End
                        End
                    End
                End
                Begin Rectangle
                    OverlapFlags =247
                    Left =226
                    Top =686
                    Width =7135
                    Height =2845
                    Name ="Rechteck4"
                End
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit

Private Sub Auswahl_Click()
On Error GoTo Err_Auswahl_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_AP_Datenherkunft_Liste"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Auswahl_Click:
    Exit Sub

Err_Auswahl_Click:
    MsgBox Err.Description
    Resume Exit_Auswahl_Click

End Sub
Private Sub Schließen_Click()
On Error GoTo Err_Schließen_Click

    DoCmd.Close acForm, Me.Name
    
Exit_Schließen_Click:
    Exit Sub

Err_Schließen_Click:
    MsgBox Err.Description
    Resume Exit_Schließen_Click

End Sub
Private Sub Schriftart_Click()
On Error GoTo Err_Schriftart_Click
    
    Dim hw As Long
    hw = Me.hwnd
    
    Dim fnt As type_MYFONT
    With fnt
        .ccName = Me![A_Schriftart]
        .nSelection = Choose(2, CF_BOTH, CF_SCREENFONTS, CF_PRINTERFONTS)
'        .bTTOnly = Me.CH_TTOnly
'        .bExtended = Me.CH_Extended     ' no dialog effects
        .nPointSize = Me![Schriftgrad]    ' default font height
'        .bLimitSize = Me.CH_LimitSize   ' no size limits
'        .nSizeMin = Me.CB_minSize       ' min size limit
'        .nSizeMax = Me.CB_maxSize       ' max size limit
'        .nWeight = Me.Schriftstil       ' default font weight FW_NORMAL = 400
'        .bItalic = Me.CH_Kursiv         ' not italic
        ' note: following flags only effects if bExtended is true
'        .bUnderline = Me.CH_Underlined  ' not underline
'        .bStrikeout = Me.CH_Strikeout   ' not strikout
'        .rgbColor = Me.Schriftfarbe     ' default black = 0
    End With
    
    ' Schriftartdialog aufrufen
    If ChooseFont(hw, fnt) Then
        Me![A_Schriftart] = fnt.ccName
        Me![Schriftgrad] = fnt.nPointSize
'        Me.Schriftstil = fnt.nWeight
'        Me.CH_Kursiv = fnt.bItalic
'        Me.CH_Underlined = fnt.bUnderline
'        Me.CH_Strikeout = fnt.bStrikeout
'        Me.Schriftfarbe = fnt.rgbColor
'        Me.Schriftfarbe.BackColor = Me.Schriftfarbe
    End If

Exit_Schriftart_Click:
    Exit Sub
Err_Schriftart_Click:
    MsgBox Err.Description
    Resume Exit_Schriftart_Click

End Sub
Private Sub Tabelle_AfterUpdate()
On Error GoTo Err_Tabelle_AfterUpdate

    If ((Not IsNull(Me![Tabelle])) And (Me![Tabelle] <> "")) Then
        Me![Feld_Name].RowSource = Me![Tabelle]
        Me![Feld_Email].RowSource = Me![Tabelle]
    End If
    
    Me![Feld_Name] = Null
    Me![Feld_Email] = Null
    
Exit_Tabelle_AfterUpdate:
    Exit Sub

Err_Tabelle_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Tabelle_AfterUpdate
End Sub