Version =20
VersionRequired =20
Checksum =-1714331655
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =5700
    DatasheetFontHeight =10
    ItemSuffix =25
    Left =12015
    Top =5760
    Right =17715
    Bottom =9375
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x4b73f03a2bd2e340
    End
    Caption ="bcs group Messenger"
    OnOpen ="MkrPosition"
    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 =570
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xc5d20bc8cc9a554ab2ae179011963802
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =-15
                    Top =75
                    Width =5715
                    Height =420
                    FontSize =16
                    FontWeight =700
                    Name ="Bezeichnungsfeld19"
                    Caption ="Neue Sammelnachricht erstellen"
                    FontName ="Arial"
                    GUID = Begin
                        0x2c81d2930c5d3f419d6ae7eb329240ae
                    End
                End
            End
        End
        Begin Section
            Height =2948
            Name ="Detailbereich"
            GUID = Begin
                0x1e889a69e1404d43a1812b1b739cc0b5
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1023
                    Top =60
                    Width =2850
                    Height =255
                    ColumnWidth =2310
                    TabIndex =2
                    Name ="Absender"
                    DefaultValue ="=[Forms]![frm_Anmeldung]![Benutzername]"
                    FontName ="Arial"
                    GUID = Begin
                        0x9007570ce02cd548a6d5b62c20302575
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =63
                            Top =60
                            Width =855
                            Height =255
                            Name ="Absender_Bezeichnungsfeld"
                            Caption ="Absender"
                            FontName ="Arial"
                            GUID = Begin
                                0x068c824d1b8c6943ba334c9b0f699205
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1020
                    Top =1020
                    Width =4605
                    Height =255
                    ColumnWidth =2310
                    Name ="Betreff"
                    FontName ="Arial"
                    GUID = Begin
                        0xaee19eb746c7c24db727ff93d4e00175
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =1020
                            Width =855
                            Height =255
                            Name ="Betreff_Bezeichnungsfeld"
                            Caption ="Betreff"
                            FontName ="Arial"
                            GUID = Begin
                                0x85df2151a946294b92a03df30bd44f99
                            End
                        End
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1020
                    Top =1305
                    Width =4605
                    Height =1515
                    ColumnWidth =3000
                    TabIndex =1
                    Name ="Nachricht"
                    OnExit ="MkrWeiter1"
                    FontName ="Arial"
                    GUID = Begin
                        0xbaf6d2bcd3d8b7499176b90f20531436
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =1305
                            Width =855
                            Height =255
                            Name ="Nachricht_Bezeichnungsfeld"
                            Caption ="Nachricht"
                            FontName ="Arial"
                            GUID = Begin
                                0x3e5fcf0b8587fd43894d941629d789f0
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1023
                    Top =345
                    Width =2850
                    Height =270
                    ColumnWidth =2310
                    TabIndex =3
                    ColumnInfo ="\"\";\"\";\"10\";\"200\""
                    GUID = Begin
                        0xb55f89e2e9d8134ba496830c8ad99c11
                    End
                    Name ="An"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_Position"
                    DefaultValue ="\"Agent\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =63
                            Top =345
                            Width =855
                            Height =255
                            Name ="An_Bezeichnungsfeld"
                            Caption ="An"
                            FontName ="Arial"
                            GUID = Begin
                                0xcaf151240366dd4784719d77ce5fcb80
                            End
                        End
                    End
                End
                Begin ComboBox
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1020
                    Top =690
                    Width =2850
                    Height =270
                    TabIndex =4
                    ColumnInfo ="\"\";\"\";\"10\";\"400\""
                    GUID = Begin
                        0x2f424befcdf19f4093090427956a7e79
                    End
                    Name ="Office"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_Office"
                    DefaultValue ="\"München\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =690
                            Width =855
                            Height =255
                            Name ="Bezeichnungsfeld24"
                            Caption ="Office"
                            FontName ="Arial"
                            GUID = Begin
                                0xc7bfe3e1f3fc4f4fb72b8bbc0be8f64c
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =575
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xe806703f93ec344abf374b445ddc6acb
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =4545
                    Top =60
                    Width =1125
                    Height =390
                    FontWeight =700
                    Name ="Speichern"
                    Caption ="Senden"
                    OnClick ="Mkr_SendenSammelnachricht"
                    FontName ="Arial"
                    GUID = Begin
                        0x9565fa6c72c9dd4d802850ad046bd493
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =60
                    Width =1035
                    Height =255
                    ColumnWidth =1035
                    TabIndex =1
                    Name ="Datum"
                    ControlSource ="=Date()"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0x288928889cd0bb489d8f9dd879c97198
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =60
                    Top =270
                    Width =1035
                    Height =255
                    ColumnWidth =675
                    TabIndex =2
                    Name ="Uhrzeit"
                    ControlSource ="=Time()"
                    Format ="Short Time"
                    FontName ="Arial"
                    GUID = Begin
                        0x721a1af06928f44e8cbf5021538ddfbb
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3390
                    Top =60
                    Width =1140
                    Height =390
                    FontWeight =700
                    TabIndex =3
                    Name ="Befehl20"
                    Caption ="Abbrechen"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x827bcba7f6c6614c9bab390d86121fa6
                    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 Befehl18_Click()
On Error GoTo Err_Befehl18_Click

    Dim stDocName As String

    stDocName = "Mkrspeichernsenden"
    DoCmd.RunMacro stDocName

Exit_Befehl18_Click:
    Exit Sub

Err_Befehl18_Click:
    MsgBox Err.Description
    Resume Exit_Befehl18_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