Version =20
VersionRequired =20
Checksum =-1171468976
Begin Form
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    DividingLines = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridX =5
    GridY =5
    Width =11456
    DatasheetFontHeight =10
    ItemSuffix =34
    Left =5025
    Top =3405
    Right =16485
    Bottom =9630
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x23fa7a248e78e140
    End
    Caption ="Nachricht"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010410039c0038091fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000000000000c060c00 ,
        0x505249560020000024980600c600150129840000180000000000102710271027 ,
        0x000010270000000000000000ff00000000020001000000020000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000e54d050001000500010000000000000000000001 ,
        0x0200000000020000000064000000000000000000010001000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xbb028804000003000000000000000100000000000000010000001c0701000000 ,
        0x09000900030000000000ffff1000070007000700000000000000000081000000 ,
        0x000000000000000002000000070000000000000000190000e40c000000000000 ,
        0xb80b00007017000000000000dc05000058020000000000000000000000000000 ,
        0xfeff0000000000000000000000000000000000000000000000000000370c0000 ,
        0xda0c000010270000102700001027000010270000a00a0000c2060000b8060000 ,
        0x2c04000040010000d20000000000000000000000000000000000000000000000 ,
        0x000000000001ffff000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xe40400004d00550043002d00580050002d004500470030003100300000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000009000000feffffff09000000feffffff09000000 ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffffffffffeffffff4745524d414e0000000000000000000042005200 ,
        0x5300500031003000350041002e00450058004500000000000000000042005200 ,
        0x4c0048004c004100350041002e0044004c004c00000000000000000042005200 ,
        0x420035004c004100350041002e0044004c004c00000000000000000042004f00 ,
        0x350032003500300044004e002e0049004e004900000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000080008040000000000000000000000000100ffff ,
        0x000000000e010000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xc600880000006400000000000141000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000006000000f5ffffff0000000000000000 ,
        0x0000000000000000000000010000000041007200690061006c00000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000ffffff000100000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000ffffffff6400000000000000 ,
        0x03000080660061006200690061006e002e004c00650069006e0068006f007300 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000020100000000000000000000000000000100000042524c484c303541 ,
        0x2e444c4c000000000000000001000000454f5343
    End
    PrtDevNames = Begin
        0x0800210048000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000003139322e3136382e3130302e323700
    End
    OnLoad ="[Event Procedure]"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
        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 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 Section
            Height =6236
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0xa6283b929ed9c34b9dce7dcfdee5a0b0
            End
            Begin
                Begin TextBox
                    OverlapFlags =93
                    Left =1133
                    Top =226
                    Width =9980
                    Height =284
                    Name ="an"
                    ControlSource ="=\"leinhos@it-max.de\""
                    FontName ="Arial"
                    GUID = Begin
                        0x7bfb6c20b6bea54d949c088328a08300
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =643
                    Width =9980
                    Height =285
                    TabIndex =1
                    Name ="cc"
                    ControlSource ="=\"leinhos@it-max.de\""
                    FontName ="Arial"
                    GUID = Begin
                        0x113b6ca767c70f42a7fef97b679585b3
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =1033
                    Width =9980
                    Height =285
                    TabIndex =2
                    Name ="bcc"
                    ControlSource ="=\"leinhos@it-max.de\""
                    FontName ="Arial"
                    GUID = Begin
                        0x4b6aee1fb784074e91bc04560704d602
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =93
                    Left =226
                    Top =1814
                    Width =11000
                    Height =2507
                    TabIndex =4
                    Name ="Mailinhalt"
                    ControlSource ="=\"Test\""
                    FontName ="Arial"
                    GUID = Begin
                        0x42254f79e86f7d4d9638dc71a3ddba15
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =1423
                    Width =9980
                    Height =285
                    TabIndex =3
                    Name ="Betreff"
                    ControlSource ="=\"Test\""
                    DefaultValue ="=[Forms]![frmEmailBriefNeu]![Betreff]"
                    FontName ="Arial"
                    GUID = Begin
                        0x29d96a5c9932a74a85e3c211b0b63131
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =345
                            Top =1425
                            Width =795
                            Height =240
                            Name ="Betreff_Text"
                            Caption ="Betreff:"
                            FontName ="Arial"
                            GUID = Begin
                                0x70108fa999ddb64d812a2e7c88003c95
                            End
                        End
                    End
                End
                Begin CheckBox
                    OverlapFlags =93
                    Left =226
                    Top =4458
                    TabIndex =5
                    Name ="Sende_KZ"
                    DefaultValue ="True"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x27cdcb24aa4d0f49ac6f2cdcdba61ed0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =255
                            Left =451
                            Top =4422
                            Width =3195
                            Height =240
                            Name ="Sende_KZ_Text"
                            Caption ="Vor dem Senden Maileditor öffnen"
                            FontName ="Arial"
                            GUID = Begin
                                0x06618dc8c4cb814395127bb6953b2a24
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    AccessKey =83
                    Left =113
                    Top =5669
                    Width =1251
                    Height =405
                    TabIndex =9
                    Name ="Senden"
                    Caption ="&Senden"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x28000000380000000d0000000100180000000000880800000000000000000000 ,
                        0x0000000000000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0000000000000000000000000000000000000000000e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe08080808080 ,
                        0x80e3dfe000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0808080c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 ,
                        0xc0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000e3dfe0e3dfe0e3dfe000000000 ,
                        0x0000000000000000e3dfe0e3dfe0e3dfe0000000000000000000e3dfe0e3dfe0 ,
                        0x000000e3dfe0e3dfe0e3dfe0000000e3dfe0e3dfe00000000000000000000000 ,
                        0x00e3dfe0e3dfe0000000000000000000e3dfe0e3dfe0000000e3dfe0e3dfe0e3 ,
                        0xdfe0000000e3dfe0e3dfe0808080808080e3dfe0808080ffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffc0c0c0000000e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0000000e3dfe0000000e3dfe0e3dfe0e3 ,
                        0xdfe0000000e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe0000000e3dfe0 ,
                        0xe3dfe0e3dfe0000000e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe00000 ,
                        0x00e3dfe0e3dfe0e3dfe0000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0808080ff ,
                        0xffffffffff800000800000800000800000800000800000ffffffffffffc0c0c0 ,
                        0x000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0000000e3dfe00000 ,
                        0x00e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3 ,
                        0xdfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe0000000e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe0e3dfe08080808080 ,
                        0x80e3dfe0808080ffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffc0c0c0000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0x000000e3dfe0000000000000000000000000000000e3dfe0000000e3dfe0e3df ,
                        0xe0e3dfe0000000e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe000000000 ,
                        0x0000000000000000000000e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0808080ffffffffffff8000008000008000008000 ,
                        0x00800000800000ffffffffffffc0c0c0000000e3dfe0e3dfe0e3dfe0e3dfe000 ,
                        0x0000000000000000e3dfe0e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe0 ,
                        0x000000e3dfe0e3dfe0e3dfe0000000e3dfe0000000e3dfe0e3dfe0e3dfe00000 ,
                        0x00e3dfe0000000e3dfe0e3dfe0e3dfe0000000e3dfe0000000e3dfe0e3dfe0e3 ,
                        0xdfe0000000e3dfe0e3dfe0808080808080e3dfe0808080ffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffff000080000080c0c0c0000000e3dfe0e3df ,
                        0xe0e3dfe0000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe000000000000000 ,
                        0x0000e3dfe0e3dfe0000000000000000000000000e3dfe0e3dfe0e3dfe0000000 ,
                        0x000000000000000000e3dfe0e3dfe0000000000000000000e3dfe0e3dfe00000 ,
                        0x00000000000000000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0808080ff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffff000080000080c0c0c0 ,
                        0x000000e3dfe0e3dfe0e3dfe0000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe08080808080 ,
                        0x80e3dfe0808080ffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffc0c0c0000000e3dfe0e3dfe0e3dfe0e3dfe0000000000000000000 ,
                        0x000000e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0000000e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe08080808080808080808080808080808080808080 ,
                        0x80808080808080808080808080808080000000e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe00000 ,
                        0x00e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3 ,
                        0xdfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0 ,
                        0xe3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0e3df ,
                        0xe0e3dfe0e3dfe0e3dfe0e3dfe0e3dfe0
                    End
                    FontName ="Arial"
                    ObjectPalette = Begin
                        0x000300010000000020000000400000006000000080000000a0000000c0000000 ,
                        0xe00000000020000020200000402000006020000080200000a0200000c0200000 ,
                        0xe02000000040000020400000404000006040000080400000a0400000c0400000 ,
                        0xe04000000060000020600000406000006060000080600000a0600000c0600000 ,
                        0xe06000000080000020800000408000006080000080800000a0800000c0800000 ,
                        0xe080000000a0000020a0000040a0000060a0000080a00000a0a00000c0a00000 ,
                        0xe0a0000000c0000020c0000040c0000060c0000080c00000a0c00000c0c00000 ,
                        0xe0c0000000e0000020e0000040e0000060e0000080e00000a0e00000c0e00000 ,
                        0xe0e000000000400020004000400040006000400080004000a0004000c0004000 ,
                        0xe00040000020400020204000402040006020400080204000a0204000c0204000 ,
                        0xe02040000040400020404000404040006040400080404000a0404000c0404000 ,
                        0xe04040000060400020604000406040006060400080604000a0604000c0604000 ,
                        0xe06040000080400020804000408040006080400080804000a0804000c0804000 ,
                        0xe080400000a0400020a0400040a0400060a0400080a04000a0a04000c0a04000 ,
                        0xe0a0400000c0400020c0400040c0400060c0400080c04000a0c04000c0c04000 ,
                        0xe0c0400000e0400020e0400040e0400060e0400080e04000a0e04000c0e04000 ,
                        0xe0e040000000800020008000400080006000800080008000a0008000c0008000 ,
                        0xe00080000020800020208000402080006020800080208000a0208000c0208000 ,
                        0xe02080000040800020408000404080006040800080408000a0408000c0408000 ,
                        0xe04080000060800020608000406080006060800080608000a0608000c0608000 ,
                        0xe06080000080800020808000408080006080800080808000a0808000c0808000 ,
                        0xe080800000a0800020a0800040a0800060a0800080a08000a0a08000c0a08000 ,
                        0xe0a0800000c0800020c0800040c0800060c0800080c08000a0c08000c0c08000 ,
                        0xe0c0800000e0800020e0800040e0800060e0800080e08000a0e08000c0e08000 ,
                        0xe0e080000000c0002000c0004000c0006000c0008000c000a000c000c000c000 ,
                        0xe000c0000020c0002020c0004020c0006020c0008020c000a020c000c020c000 ,
                        0xe020c0000040c0002040c0004040c0006040c0008040c000a040c000c040c000 ,
                        0xe040c0000060c0002060c0004060c0006060c0008060c000a060c000c060c000 ,
                        0xe060c0000080c0002080c0004080c0006080c0008080c000a080c000c080c000 ,
                        0xe080c00000a0c00020a0c00040a0c00060a0c00080a0c000a0a0c000c0a0c000 ,
                        0xe0a0c00000c0c00020c0c00040c0c00060c0c00080c0c000a0c0c000c0c0c000 ,
                        0xe0c0c00000e0c00020e0c00040e0c00060e0c00080e0c000a0e0c000c0e0c000 ,
                        0xe0e0c00000000000
                    End
                    Picture ="C:\\Bilder\\Mail-Senden.bmp"
                    GUID = Begin
                        0xb472fb1d8e440546a73f2bd4318bdc24
                    End
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =113
                    Top =113
                    Width =11230
                    Height =4645
                    Name ="Rechteck18"
                    GUID = Begin
                        0xd40b854e543f4e4b83c236dc0b601159
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =95
                    Left =566
                    Top =5215
                    Width =1026
                    Height =255
                    TabIndex =6
                    GUID = Begin
                        0x4fd9219d98545c4d900018cc23d11b85
                    End
                    Name ="Objektart"
                    RowSourceType ="Value List"
                    RowSource ="\"\";\"Bericht\""
                    AfterUpdate ="[Event Procedure]"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =226
                            Top =5215
                            Width =345
                            Height =240
                            Name ="Bezeichnungsfeld22"
                            Caption ="Art:"
                            FontName ="Arial"
                            GUID = Begin
                                0x38dfc450e949a34a9a62049f97ac2481
                            End
                        End
                    End
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =113
                    Top =4988
                    Width =11230
                    Height =565
                    Name ="Rechteck23"
                    GUID = Begin
                        0xf3d9f04ee4299647b448244c56ed2ae7
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =247
                    Left =226
                    Top =4875
                    Width =1305
                    Height =240
                    BackColor =-2147483633
                    Name ="Bezeichnungsfeld24"
                    Caption ="Objekt anhängen"
                    FontName ="Arial"
                    GUID = Begin
                        0x9149920318810046b16f01b2b9ac2d4c
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =247
                    Left =2608
                    Top =5215
                    Width =6816
                    Height =255
                    TabIndex =7
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xa9494618691960489fe8a881344f61c2
                    End
                    Name ="Objekt"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_EmailAnhang"
                    AfterUpdate ="[Event Procedure]"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =255
                            Left =1927
                            Top =5215
                            Width =690
                            Height =240
                            Name ="Bezeichnungsfeld26"
                            Caption ="Objekt:"
                            FontName ="Arial"
                            GUID = Begin
                                0x48f8d0ed49ab1041913b5a6988b50201
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    Visible = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =247
                    Left =10431
                    Top =5215
                    Width =786
                    Height =255
                    TabIndex =8
                    GUID = Begin
                        0x0e0ecc76b49294488b9b7b605d380b8f
                    End
                    Name ="Format"
                    RowSourceType ="Value List"
                    RowSource ="\"HTML\";\"RTF\";\"TXT\";\"XLS\""
                    DefaultValue ="=\"RTF\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =255
                            Left =9751
                            Top =5215
                            Width =675
                            Height =240
                            Name ="Bezeichnungsfeld28"
                            Caption ="Format:"
                            FontName ="Arial"
                            GUID = Begin
                                0x6a47e7c6433c494bb8409024d077bd87
                            End
                        End
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =247
                    Left =226
                    Width =921
                    TabIndex =10
                    BackColor =8454143
                    Name ="Tmp"
                    FontName ="Arial"
                    GUID = Begin
                        0xb6562027721c6b45adc74065206809ec
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =10770
                    Top =5670
                    Width =561
                    Height =336
                    TabIndex =11
                    Name ="Befehl33"
                    Caption ="Befehl33"
                    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
                        0xe2ebff6d3ce61d44b1937d2e1b034253
                    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
Option Explicit

Private Declare Function RegisterWindowMessage _
        Lib "user32" Alias "RegisterWindowMessageA" _
        (ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName As Any, _
        ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

Private Sub AN_holen_Click()
On Error GoTo Err_AN_holen_Click

    Dim DocName As String
    
    Me![Tmp] = "An"
    DocName = "frm_Email_Auswahl"
    DoCmd.OpenForm DocName, , , , , , Me.Name

Exit_AN_holen_Click:
    Exit Sub

Err_AN_holen_Click:
    MsgBox Err.Description
    Resume Exit_AN_holen_Click

End Sub
Private Sub BCC_holen_Click()
On Error GoTo Err_BCC_holen_Click

    Dim DocName As String
    
    Me![Tmp] = "Bcc"
    DocName = "frm_Email_Auswahl"
    DoCmd.OpenForm DocName, , , , , , Me.Name

Exit_BCC_holen_Click:
    Exit Sub

Err_BCC_holen_Click:
    MsgBox Err.Description
    Resume Exit_BCC_holen_Click

End Sub
Private Sub CC_holen_Click()
On Error GoTo Err_CC_holen_Click

    Dim DocName As String
    
    Me![Tmp] = "Cc"
    DocName = "frm_Email_Auswahl"
    DoCmd.OpenForm DocName, , , , , , Me.Name

Exit_CC_holen_Click:
    Exit Sub

Err_CC_holen_Click:
    MsgBox Err.Description
    Resume Exit_CC_holen_Click

End Sub
Private Sub Form_Load()
On Error GoTo Err_Form_Load

    Me![Objektart] = Null
    Me![Sende_KZ] = DLookup("[Sende_KZ]", "tbl_AP_Mail_Manager_Einstellungen", "[ID]=1")
    
Exit_Form_Load:
    Exit Sub

Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load

End Sub
Private Sub Objekt_AfterUpdate()
On Error GoTo Err_Objekt_AfterUpdate

    If (IsNull(Me![Format]) Or (Me![Format] = "")) Then
        Me![Format] = "HTML"
    End If
    
    If (IsNull(Me![Objekt])) Or (Me![Objekt] = "") Then
        Me![Format].Visible = False
    Else
        Me![Format].Visible = True
        If Me![Objektart] = "Modul" Then
            Me![Format].Enabled = False
        End If
    End If

Exit_Objekt_AfterUpdate:
    Exit Sub

Err_Objekt_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Objekt_AfterUpdate

End Sub
Private Sub Objektart_AfterUpdate()
On Error GoTo Err_Objektart_AfterUpdate

    Me![Objekt] = ""
    
    If (IsNull(Me![Format]) Or (Me![Format] = "")) Then
        Me![Format] = "HTML"
    End If
    
    
    
    Objekt_AfterUpdate
    
Exit_Objektart_AfterUpdate:
    Exit Sub

Err_Objektart_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Objektart_AfterUpdate
    
End Sub
Private Sub Schließen_Click()
On Error GoTo Err_Schließen_Click

    'Felder_löschen
    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 Senden_Click()
On Error GoTo Err_Senden_Click
    
    Dim H_Sende_KZ

    ' ClickYes
    Dim wnd                 As Long
    Dim uClickYes           As Long
    Dim Res                 As Long

    If (((IsNull(Me![An])) Or (Me![An] = "")) And ((IsNull(Me![cc])) Or (Me![cc] = "")) And ((IsNull(Me![bcc])) Or (Me![bcc] = ""))) Then
        MsgBox "In den Feldern " & Chr(34) & "An" & Chr(34) & ", " & Chr(34) & "Cc" & Chr(34) & " oder " & Chr(34) & "Bcc" & Chr(34) & " muss Mindestens eine Empfängeradresse stehen", vbOKOnly + vbExclamation, AppName
        DoCmd.GoToControl "an"
        Exit Sub
    End If
    
    If ((IsNull(Me![Betreff])) Or (Me![Betreff] = "")) Then
        If vbNo = MsgBox("Sie haben keinen Betreff angegeben." & vbCrLf & "Möchten Sie das Mail trotzdem versenden?", vbYesNo + vbQuestion, AppName) Then
            DoCmd.GoToControl "Betreff"
            Exit Sub
        End If
    End If
    
    If ((IsNull(Me![Mailinhalt])) Or (Me![Mailinhalt] = "")) Then
        If vbNo = MsgBox("Sie haben keinen Text für das Mail eingegeben." & vbCrLf & "Möchten Sie das Mail trotzdem versenden?", vbYesNo + vbQuestion, AppName) Then
            DoCmd.GoToControl "Mailinhalt"
            Exit Sub
        End If
    End If
    
    If IsNull(Me![An]) Then Me![An] = ""
    If IsNull(Me![cc]) Then Me![cc] = ""
    If IsNull(Me![bcc]) Then Me![bcc] = ""
    If IsNull(Me![Mailinhalt]) Then Me![Mailinhalt] = ""
    If IsNull(Me![Betreff]) Then Me![Betreff] = ""
    
    If IsNull(Me![Objektart]) Or (Me![Objektart] = "") Then
        ' ClickYes
        If DLookup("[Express_ClickYes]", "tbl_AP_Mail_Manager_Einstellungen", "[ID]=1") Then
            ' Register a message to send
            uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
            ' Find ClickYes Window by classname
            wnd = FindWindow("EXCLICKYES_WND", 0&)
            ' Send the message to Resume ClickYes
            Res = SendMessage(wnd, uClickYes, 1, 0)
        End If
        
        DoCmd.Hourglass True
        DoCmd.SendObject , "", "", Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
        DoCmd.Hourglass False
        
        ' ClickYes
        If DLookup("[Express_ClickYes]", "tbl_AP_Mail_Manager_Einstellungen", "[ID]=1") Then
            ' Send the message to Suspend ClickYes
            Res = SendMessage(wnd, uClickYes, 0, 0)
        End If
    Else
        If ((IsNull(Me![Objekt])) Or (Me![Objekt] = "")) Then
            MsgBox "Sie haben für das Versenden kein Objekt angegeben." & vbCrLf & "Bitte wählen Sie ein Objekt aus!", vbOKOnly + vbCritical, AppName
            DoCmd.GoToControl "Objekt"
            Exit Sub
        End If
        If ((IsNull(Me![Format])) Or (Me![Format] = "")) Then
            MsgBox "Sie haben für das Versenden kein Format angegeben." & vbCrLf & "Bitte wählen Sie ein Format aus!", vbOKOnly + vbCritical, AppName
            DoCmd.GoToControl "Format"
            Exit Sub
        End If
        If (Me![Objektart] = "acSendModule") Then
            Me![Format] = "TXT"
        End If
        DoCmd.Hourglass True
        Senden_mit_Anhang
        DoCmd.Hourglass False
    End If
    
    If DLookup("[Meldung_nach_Senden]", "tbl_AP_Mail_Manager_Einstellungen", "[ID]=1") Then
        MsgBox "Ihr Mail wurde dem Standard-Mailprogramm übergeben.", vbOKOnly + vbInformation, AppName
    End If
    
    '  Felder_löschen

    If DLookup("[Schliessen_nach_Senden]", "tbl_AP_Mail_Manager_Einstellungen", "[ID]=1") Then
        DoCmd.Close acForm, Me.Name
    End If
    
Exit_Senden_Click:
    Exit Sub

Err_Senden_Click:
    DoCmd.Hourglass False
    MsgBox Err.Description
    Resume Exit_Senden_Click

End Sub
Private Sub Senden_mit_Anhang()
On Error GoTo Err_Senden_mit_Anhang

    ' ClickYes
    Dim wnd                 As Long
    Dim uClickYes           As Long
    Dim Res                 As Long

    ' ClickYes
    If DLookup("[Express_ClickYes]", "tbl_AP_Mail_Manager_Einstellungen", "[ID]=1") Then
        ' Register a message to send
        uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
        ' Find ClickYes Window by classname
        wnd = FindWindow("EXCLICKYES_WND", 0&)
        ' Send the message to Resume ClickYes
        Res = SendMessage(wnd, uClickYes, 1, 0)
    End If

    Select Case Me![Objektart]
        Case "Tabelle"
            Select Case Me![Format]
                Case "HTML"
                    DoCmd.SendObject acSendTable, Me![Objekt], acFormatHTML, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "RTF"
                    DoCmd.SendObject acSendTable, Me![Objekt], acFormatRTF, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "TXT"
                    DoCmd.SendObject acSendTable, Me![Objekt], acFormatTXT, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "XLS"
                    DoCmd.SendObject acSendTable, Me![Objekt], acFormatXLS, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
            End Select
        Case "Abfrage"
            Select Case Me![Format]
                Case "HTML"
                    DoCmd.SendObject acSendQuery, Me![Objekt], acFormatHTML, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "RTF"
                    DoCmd.SendObject acSendQuery, Me![Objekt], acFormatRTF, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "TXT"
                    DoCmd.SendObject acSendQuery, Me![Objekt], acFormatTXT, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "XLS"
                    DoCmd.SendObject acSendQuery, Me![Objekt], acFormatXLS, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
            End Select
        Case "Formular"
            Select Case Me![Format]
                Case "HTML"
                    DoCmd.SendObject acSendForm, Me![Objekt], acFormatHTML, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "RTF"
                    DoCmd.SendObject acSendForm, Me![Objekt], acFormatRTF, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "TXT"
                    DoCmd.SendObject acSendForm, Me![Objekt], acFormatTXT, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "XLS"
                    DoCmd.SendObject acSendForm, Me![Objekt], acFormatXLS, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
            End Select
        Case "Bericht"
            Select Case Me![Format]
                Case "HTML"
                    DoCmd.SendObject acSendReport, Me![Objekt], acFormatHTML, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "RTF"
                    DoCmd.SendObject acSendReport, Me![Objekt], acFormatRTF, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "TXT"
                    DoCmd.SendObject acSendReport, Me![Objekt], acFormatTXT, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
                Case "XLS"
                    DoCmd.SendObject acSendReport, Me![Objekt], acFormatXLS, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
            End Select
        Case "Modul"
            DoCmd.SendObject acSendModule, Me![Objekt], acFormatTXT, Me![An], Me![cc], Me![bcc], Me![Betreff], Me![Mailinhalt], Me![Sende_KZ]
    End Select

    ' ClickYes
    If DLookup("[Express_ClickYes]", "tbl_AP_Mail_Manager_Einstellungen", "[ID]=1") Then
        ' Send the message to Suspend ClickYes
        Res = SendMessage(wnd, uClickYes, 0, 0)
    End If

Exit_Senden_mit_Anhang:
    Exit Sub

Err_Senden_mit_Anhang:
    DoCmd.Hourglass False
    MsgBox Err.Description
    Resume Exit_Senden_mit_Anhang

End Sub
Private Sub Befehl33_Click()
On Error GoTo Err_Befehl33_Click


    DoCmd.Close

Exit_Befehl33_Click:
    Exit Sub

Err_Befehl33_Click:
    MsgBox Err.Description
    Resume Exit_Befehl33_Click
    
End Sub