Version =20
VersionRequired =20
Checksum =1766820985
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    ScrollBars =2
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =16440
    DatasheetFontHeight =10
    ItemSuffix =24
    Left =255
    Top =3045
    Right =17070
    Bottom =12720
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x77f435572b75e340
    End
    RecordSource ="qry_ADAktivKeineRuekmeldung"
    Caption ="bcs group Email an AD Formular"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =585
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x19a83c1c644b124e8f3faf6ca92da071
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =60
                    Top =285
                    Width =1083
                    Height =240
                    FontWeight =700
                    Name ="AD_Bezeichnungsfeld"
                    Caption ="AD"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x79394f441aa6804b8f51c5503fe38988
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =1200
                    Top =285
                    Width =2199
                    Height =240
                    FontWeight =700
                    Name ="Email_Bezeichnungsfeld"
                    Caption ="Email"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xa76842d59eacb84b86c3f40593576737
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =3465
                    Top =285
                    Width =921
                    Height =240
                    FontWeight =700
                    Name ="Anrede_Bezeichnungsfeld"
                    Caption ="Anrede"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x4feee310ae420747aa9c1b3598bf4839
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =4443
                    Top =285
                    Width =1935
                    Height =240
                    FontWeight =700
                    Name ="Vorname_Bezeichnungsfeld"
                    Caption ="Vorname"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x98c390ea790ac245ae09e29c92fb5f45
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =6465
                    Top =285
                    Width =2037
                    Height =240
                    FontWeight =700
                    Name ="Name_Bezeichnungsfeld"
                    Caption ="Name"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x77703c6d5802cc4da2279db3e0bb777e
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =8625
                    Top =60
                    Width =1740
                    Height =465
                    FontWeight =700
                    Name ="Bezeichnungsfeld21"
                    Caption ="Nicht ausgewertete \015\012Termine"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd841b2eddc492044a403c4105eaf7dae
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =10483
                    Top =285
                    Width =1872
                    Height =240
                    FontWeight =700
                    Name ="Bezeichnungsfeld30"
                    Caption ="Struktur"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x44b6017959678e45ba935268547ef472
                    End
                End
            End
        End
        Begin Section
            Height =566
            Name ="Detailbereich"
            GUID = Begin
                0x0456bab0e071164d823bfa61aa794906
            End
            Begin
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =60
                    Top =117
                    Width =1083
                    Height =255
                    ColumnWidth =2310
                    Name ="AD"
                    ControlSource ="AD"
                    FontName ="Arial"
                    GUID = Begin
                        0x08d2f40547a120458e5a92da4c26b83b
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =1200
                    Top =117
                    Width =2199
                    Height =255
                    ColumnWidth =3000
                    TabIndex =1
                    Name ="Email"
                    ControlSource ="Email"
                    FontName ="Arial"
                    GUID = Begin
                        0xb9a5ed7fc3913042a01718e5370d88a6
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =3465
                    Top =117
                    Width =921
                    Height =255
                    ColumnWidth =900
                    TabIndex =2
                    Name ="Anrede"
                    ControlSource ="Anrede"
                    FontName ="Arial"
                    GUID = Begin
                        0xd689a8a3781bf94cb5be06aadc0f60b7
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =4443
                    Top =117
                    Width =1935
                    Height =255
                    ColumnWidth =3000
                    TabIndex =3
                    Name ="Vorname"
                    ControlSource ="Vorname"
                    FontName ="Arial"
                    GUID = Begin
                        0x6e7f84b5324168498dc0c6d1690df5c7
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =6465
                    Top =117
                    Width =2037
                    Height =255
                    ColumnWidth =3000
                    TabIndex =4
                    Name ="Name"
                    ControlSource ="Name"
                    FontName ="Arial"
                    GUID = Begin
                        0x722e19c5b3836944bca5820c27e8b313
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =2
                    IMESentenceMode =3
                    Left =8625
                    Top =117
                    Width =1752
                    Height =255
                    TabIndex =5
                    Name ="Text22"
                    ControlSource ="Keine Rückmeldung"
                    FontName ="Arial"
                    GUID = Begin
                        0x09a083ee826f1346a5a75d9fbf8926d4
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15984
                    Top =127
                    Width =351
                    Height =345
                    TabIndex =6
                    ForeColor =-2147483630
                    Name ="OK"
                    Caption ="OK"
                    OnClick ="Mrk_FilterEmailanAD"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad
                    End
                    FontName ="Tahoma"
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Befehl ausführen"
                    GUID = Begin
                        0xc1d9b7f9c91dc0448f76e7c690e1ce0b
                    End
                End
                Begin ComboBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    ListRows =30
                    Left =12420
                    Top =120
                    Width =3525
                    Height =255
                    TabIndex =7
                    BackColor =16777215
                    ForeColor =0
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x47afe16592a24947b283031b3f308d46
                    End
                    Name ="FilterTerminHaupt"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_FilterAuswahlEmailanAD"
                    ColumnWidths ="1442"
                    DefaultValue ="=\"MkrNichtAusgewerteteTermine\""
                    FontName ="Arial"
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =10483
                    Top =117
                    Width =1872
                    Height =255
                    TabIndex =8
                    Name ="Struktur"
                    ControlSource ="Struktur"
                    FontName ="Arial"
                    GUID = Begin
                        0xd864cb3b1ce46046a1f48364943154e8
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x5580cf5d751881469e60fb4dc5f49259
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =60
                    Top =30
                    Width =516
                    Height =516
                    Name ="Befehl20"
                    Caption ="Befehl20"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular schließen"
                    GUID = Begin
                        0x514e6db9a27d7c468bcb5ff4b6e7a5b2
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =2
                    BackStyle =0
                    IMESentenceMode =3
                    Left =8674
                    Top =56
                    Width =1752
                    Height =255
                    TabIndex =1
                    Name ="Text23"
                    ControlSource ="=Sum([Keine Rückmeldung])"
                    FontName ="Arial"
                    GUID = Begin
                        0x6efe72bb1cf89e47af9fb145d39a504e
                    End
                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

Private Sub Alle_Termine_senden_Click()
On Error GoTo Err_Alle_Termine_senden_Click

    Dim stDocName As String

    stDocName = "Mkr_TermineSenden"
    DoCmd.RunMacro stDocName

Exit_Alle_Termine_senden_Click:
    Exit Sub

Err_Alle_Termine_senden_Click:
    MsgBox Err.Description
    Resume Exit_Alle_Termine_senden_Click
    
End Sub

Private Sub Termine_senden_Click()

End Sub
Private Sub Befehl19_Click()
On Error GoTo Err_Befehl19_Click

    Dim stDocName As String

    stDocName = "Mkr_TermineSenden"
    DoCmd.RunMacro stDocName

Exit_Befehl19_Click:
    Exit Sub

Err_Befehl19_Click:
    MsgBox Err.Description
    Resume Exit_Befehl19_Click
    
End Sub
Private Sub Befehl20_Click()
On Error GoTo Err_Befehl20_Click


    DoCmd.Close

Exit_Befehl20_Click:
    Exit Sub

Err_Befehl20_Click:
    MsgBox Err.Description
    Resume Exit_Befehl20_Click
    
End Sub