Version =20
VersionRequired =20
Checksum =647479050
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    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 =2235
    Right =16485
    Bottom =8460
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x23fa7a248e78e140
    End
    Caption ="Nachricht"
    DatasheetFontName ="Arial"
    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
                0xbcdad97c3cf3904aafdc1a1f21db34bd
            End
            Begin
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =255
                    Width =9980
                    Height =284
                    Name ="an"
                    ControlSource ="=[Forms]![frmEmailBrief]![An]"
                    FontName ="Arial"
                    GUID = Begin
                        0x10816beea129e141ae344187618d61c8
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =643
                    Width =9980
                    Height =285
                    TabIndex =1
                    Name ="cc"
                    DefaultValue ="=[Forms]![frmEmailBrief]![cc]"
                    FontName ="Arial"
                    GUID = Begin
                        0xb8d9cf97fd909d47b318499d244d8745
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =1033
                    Width =9980
                    Height =285
                    TabIndex =2
                    Name ="bcc"
                    DefaultValue ="[Forms]![frmEmailBrief]![bcc]"
                    FontName ="Arial"
                    GUID = Begin
                        0x32b47ef705e0354d8bc288c049343b6c
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =93
                    Left =226
                    Top =1814
                    Width =11000
                    Height =2507
                    TabIndex =4
                    Name ="Mailinhalt"
                    ControlSource ="=IIf([Forms]![frm_HauptTerminierungWV]![Anrede]=\"Herr\",\"Sehr geehrter\",\"Seh"
                        "r geehrte\") & \" \" & IIf([Forms]![frm_HauptTerminierungWV]![Anrede] Is Not Nul"
                        "l,[Forms]![frm_HauptTerminierungWV]![Anrede],\"Damen und Herren\") & \" \" & [Fo"
                        "rms]![frm_HauptTerminierungWV]![tbl_Kunden.Name] & \",\" & Chr(13) & Chr(10) & C"
                        "hr(13) & Chr(10) & [Forms]![frmEmailBrief]![Text] & Chr(13) & Chr(10) & Chr(13) "
                        "& Chr(10) & [Forms]![frmEmailBrief]![Absender] & Chr(13) & Chr(10) & Chr(13) & C"
                        "hr(10) & \"BCS Group\" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & \"info@bcsgroup"
                        ".de \015\012\015\012Fon. 0180 55 44 940 55\015\012Fax. 0180 55 44 940 54\015\012"
                        "\015\012http://www.bcsgroup.de \015\012\015\012Der Inhalt dieser E-Mail ist nur "
                        "dann rechtsverbindlich, wenn er von unserer Seite schriftlich bestätigt wird. Di"
                        "ese E-Mail enthält vertrauliche Informationen. Wenn Sie wissen oder erkennen kön"
                        "nen, dass Sie diese vertraulichen Informationen nicht erhalten sollten, informie"
                        "ren Sie uns bitte und löschen Sie diese E-Mail von Ihrem System. Eine Weiterverw"
                        "endung oder Verbreitung dieser vertraulichen Informationen ist nicht gestattet.\015"
                        "\012\015\012The content of this e-mail may only be deemed to be legally binding "
                        "if it is confirmed by us in writing. This e-mail contains confidential informati"
                        "on. If you know or if you can perceive that you are not intended to receive this"
                        " confidential information please inform us and delete this e-mail from your syst"
                        "em. It is not allowed to use or distribute the confidential information.\015\012"
                        "\015\012BCS Group  Reginhardstraße 34, 13409 Berlin,Amtsgericht Charlottenburg: "
                        "HRB 129271 B, Ust.-ID-Nr. DE 273726509, Steuernr. 27 / 019 / 00993; Geschäftsfüh"
                        "rer Darko Djuras\""
                    FontName ="Arial"
                    GUID = Begin
                        0xc3dcf87c56b62e44b8dc2b40978e5b93
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =1423
                    Width =9980
                    Height =285
                    TabIndex =3
                    Name ="Betreff"
                    DefaultValue ="=[Forms]![frmEmailBrief]![Betreff]"
                    FontName ="Arial"
                    GUID = Begin
                        0x13a9c1216d2e0747993bdade4feef454
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =345
                            Top =1425
                            Width =795
                            Height =240
                            Name ="Betreff_Text"
                            Caption ="Betreff:"
                            FontName ="Arial"
                            GUID = Begin
                                0xae7c2a9629a0104fb0ebbd1fd3a8d0cf
                            End
                        End
                    End
                End
                Begin CheckBox
                    OverlapFlags =93
                    Left =226
                    Top =4458
                    TabIndex =5
                    Name ="Sende_KZ"
                    DefaultValue ="True"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x009f4b5b88c57f4da895f44393d05d5d
                    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
                                0x3abd70b8244da74387d097c135ed3799
                            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
                        0x853363137f901d48b51e8dc209d6777a
                    End
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =113
                    Top =113
                    Width =11230
                    Height =4645
                    Name ="Rechteck18"
                    GUID = Begin
                        0x8c543238387fb246a423c1a1adfdbc7b
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =95
                    Left =566
                    Top =5215
                    Width =1026
                    Height =255
                    TabIndex =6
                    GUID = Begin
                        0x06c306f42a07d841be88970f1e28bff0
                    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
                                0xe685cf0d00f00446a1522c90983743a4
                            End
                        End
                    End
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =113
                    Top =4988
                    Width =11230
                    Height =565
                    Name ="Rechteck23"
                    GUID = Begin
                        0x401d411257698043b637328ad7b12c48
                    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
                        0xa4eeedf92a9ba64ea0115ac8f1d0102e
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =247
                    Left =2608
                    Top =5215
                    Width =6816
                    Height =255
                    TabIndex =7
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x7f537d59aec4b446b780adfe0de1c06c
                    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
                                0x937c0574882a2442bcc5de5af1cc2dff
                            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
                        0x24b4ee4360e082429e02f13bf5c73f19
                    End
                    Name ="Format"
                    RowSourceType ="Value List"
                    RowSource ="\"HTML\";\"RTF\";\"TXT\";\"XLS\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =255
                            Left =9751
                            Top =5215
                            Width =675
                            Height =240
                            Name ="Bezeichnungsfeld28"
                            Caption ="Format:"
                            FontName ="Arial"
                            GUID = Begin
                                0x976ac60f20ca144dafcca1937ad79b60
                            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
                        0x1d81d7e140a2df4fb25407d9066f8cbb
                    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
                        0xd3f725243ff6ed4781e6538e70d8a84f
                    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 Felder_löschen()
On Error GoTo Err_Felder_löschen
    
    DoCmd.Hourglass True
    Me![An] = Null
    Me![cc] = Null
    Me![bcc] = Null
    Me![Betreff] = Null
    Me![Mailinhalt] = Null
    Me![Objektart] = Null
    Me![Objekt] = Null
    Me![Objekt].Visible = False
    Me![Format] = "HTML"
    Me![Format].Visible = False
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE tbl_AP_Mail_Manager_tmp_Email_an.* FROM tbl_AP_Mail_Manager_tmp_Email_an;"
    DoCmd.RunSQL "DELETE tbl_AP_Mail_Manager_tmp_Email_cc.* FROM tbl_AP_Mail_Manager_tmp_Email_cc;"
    DoCmd.RunSQL "DELETE tbl_AP_Mail_Manager_tmp_Email_bcc.* FROM tbl_AP_Mail_Manager_tmp_Email_bcc;"
    DoCmd.SetWarnings True
    DoCmd.Hourglass False

Exit_Felder_löschen:
    Exit Sub

Err_Felder_löschen:
    DoCmd.Hourglass False
    MsgBox Err.Description
    Resume Exit_Felder_löschen

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