Version =20
VersionRequired =20
Checksum =-961712924
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 =12345
    Top =4560
    Right =23805
    Bottom =10785
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x23fa7a248e78e140
    End
    Caption ="Nachricht"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010400069c00bc0353ff0000010009009a0b3408640001000f00580201000100 ,
        0x5802030001004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000000000000000000000000000000000000000000050524956 ,
        0xe030000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000180000000000102710271027 ,
        0x000010270000000000000000e800bc0300000000000000000000000000000000 ,
        0x0000000000000000030000000000000000001000503403002888040000000000 ,
        0x000000000000000000000000000000000000000000000000cb0077d408000000 ,
        0x00000000010001000000ff000200000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x01000000000000000000000000000000e8000000534d544a000000001000d800 ,
        0x4100700070006c00650020004c00610073006500720057007200690074006500 ,
        0x72002000380035003000300000005265736f6c7574696f6e0036303064706900 ,
        0x4475706c6578004e6f6e650042697473506572506978656c004e6f6e6500536d ,
        0x6f6f7468696e670046616c7365005061676553697a65004c6574746572005061 ,
        0x6765526567696f6e0000496e707574536c6f74005374616e6461726443617373 ,
        0x6574746500547261795377697463680054727565000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x08001f005d000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000545330 ,
        0x303100
    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
                0x5e21e072b6e65247b8a5aac438dda385
            End
            Begin
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =255
                    Width =9980
                    Height =284
                    Name ="an"
                    ControlSource ="=\"leinhosit-max.de\""
                    FontName ="Arial"
                    GUID = Begin
                        0x25a39b0050c3d442a39a5ba130b8d105
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =643
                    Width =9980
                    Height =285
                    TabIndex =1
                    Name ="cc"
                    ControlSource ="=\"bd@it-max.de\""
                    DefaultValue ="=[Forms]![frmEmailBriefNeu]![cc]"
                    FontName ="Arial"
                    GUID = Begin
                        0xe4648ec4077ca346911fcb8a2d26e9df
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =1033
                    Width =9980
                    Height =285
                    TabIndex =2
                    Name ="bcc"
                    FontName ="Arial"
                    GUID = Begin
                        0xf97225b1f667ef4d9842e67893f3b8c5
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =93
                    Left =226
                    Top =1814
                    Width =11000
                    Height =2507
                    TabIndex =4
                    Name ="Mailinhalt"
                    DefaultValue ="=\"Hallo Oliver, \" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & \" \" & \"Bitte st"
                        "euere folgende Umsegmentierung ein: \" & Chr(13) & Chr(10) & Chr(13) & Chr(10) &"
                        " \"Firmenname: \" & IIf([Forms]![frm_HauptTerminierungWV]![Firma] Is Not Null,[F"
                        "orms]![frm_HauptTerminierungWV]![Firma],[Forms]![frm_HauptTerminierungWV]![Name]"
                        ") & Chr(13) & Chr(10) & \"Mobile Rufnummer: \" & [Forms]![frm_HauptTerminierungW"
                        "V]![Retentiondaten].[Form]![Nummer] & Chr(13) & Chr(10) & \"Vertriebspartner Num"
                        "mer: 28009594\" & Chr(13) & Chr(10) & \"Jetzige R-Klasse: \" & [Forms]![frm_Haup"
                        "tTerminierungWV]![Retentiondaten].[Form]![R-Klasse] & Chr(13) & Chr(10) & \"Grun"
                        "d:  Ein Konkurrenz Angebot liegt dem Kunden vor. Um das Angebot halten zu können"
                        " wird die Umsegmentierung benötigt.\" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "
                        "\"Name Gebietsleiter:  Oliver Markowitz\" & Chr(13) & Chr(10) & Chr(13) & Chr(10"
                        ") & \"Mit freundlichen Grüßen\" & Chr(13) & Chr(10) & [Forms]![frm_Haupt]![Termi"
                        "nierer] & Chr(13) & Chr(10) & \"IT-Max GmbH\""
                    FontName ="Arial"
                    GUID = Begin
                        0x5f00c86abc00fb4793c866e1e0c8b34b
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =1246
                    Top =1423
                    Width =9980
                    Height =285
                    TabIndex =3
                    Name ="Betreff"
                    DefaultValue ="=\"Umsegmentierungsanfrage für die Rufnummer \" & [Forms]![frm_HauptTerminierung"
                        "WV]![Retentiondaten].[Form]![Nummer] & \"des Kunden \" & IIf([Forms]![frm_HauptT"
                        "erminierungWV]![Firma] Is Not Null,\"Firma \" & [Forms]![frm_HauptTerminierungWV"
                        "]![Firma],[Forms]![frm_HauptTerminierungWV]![Name])"
                    FontName ="Arial"
                    GUID = Begin
                        0x86f244a35c470a45a87d1f35035d2f6d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =345
                            Top =1425
                            Width =795
                            Height =240
                            Name ="Betreff_Text"
                            Caption ="Betreff:"
                            FontName ="Arial"
                            GUID = Begin
                                0x934d7a930730874eb85fd9d9daf4a20e
                            End
                        End
                    End
                End
                Begin CheckBox
                    OverlapFlags =93
                    Left =226
                    Top =4458
                    TabIndex =5
                    Name ="Sende_KZ"
                    DefaultValue ="True"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x1dcf11a99437be46b1d8f0f6e4e8c6d4
                    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
                                0xf88bf1ced1efe94c981598cdda4e91d5
                            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
                        0x680491d5ae6f0647bc8dc9d3d4591377
                    End
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =113
                    Top =113
                    Width =11230
                    Height =4645
                    Name ="Rechteck18"
                    GUID = Begin
                        0xad12f5df1194f34a974dd2e92b1379d2
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =95
                    Left =566
                    Top =5215
                    Width =1026
                    Height =255
                    TabIndex =6
                    GUID = Begin
                        0x0eb00abd3ee6e44cb957554afa6814fc
                    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
                                0xffbe57f94cdbcb438bec49d05671ac4d
                            End
                        End
                    End
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =113
                    Top =4988
                    Width =11230
                    Height =565
                    Name ="Rechteck23"
                    GUID = Begin
                        0x94571a5450b94641b3576b13f39b746b
                    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
                        0x9a4b043656260d42a82f6a57c3d1228d
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =247
                    Left =2608
                    Top =5215
                    Width =6816
                    Height =255
                    TabIndex =7
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x7a67d254c224004fbbd4de83af82d5a7
                    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
                                0xd1a04a250444a7408f20d5925d17b80e
                            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
                        0x3df36460f2e83146bb41b80e87da4826
                    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
                                0x73bba0fdc3350c478f5f815d35a707f8
                            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
                        0xdca0225ac825fa4f94dfbf7505322609
                    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
                        0xc48cae63dbca2a418d39a74fad503ef7
                    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