Mail senden über Userform

[MdeJong]

Die Eigenschaft RowSource konnte nicht gesetzt werden

[Crazy Tom]

mach die Datei zu und nochmal auf

[MdeJong]

komisch....jetzt geht es   :19:

Du hast Recht.....so reicht es natürlich.
jetzt muss ich mir das mal in Ruhe anschauen, wie du das gemacht hast?!   :21:

Es läuft auf jeden Fall

Danke Tom

Mfg
Michael

[MdeJong]

Noch eine Frage Tom:

Wenn ich in der Page "Hauptmenü" bin, kann ich mit einem Klick auf die TextBox wo die Mailadresse angezeigt wird, diese mit Doppelklick, in dem Empfänger der Page "Mail an" bringen?

[Crazy Tom]

na die Adressen stehen doch schon alle in der Empfängerlistbox drin

[Crazy Tom]

Hallo

hiermit wird der Eintrag der Textbox in der Listbox markiert

Code:

Private Sub TextBox12_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
With ListBox4
   For i = 0 To .ListCount - 1
    If .List(i, 12) = TextBox12.Text Then
       .Selected(i) = True
    End If
   Next
End With
End Sub

MfG Tom

[MdeJong]

jetzt sind es nur 3, aber wenn es 100 oder mehr sind, muss ich schon nach einen Namen suche und wenn ich den im Hauptmenü gefunden habe und nur diesem eine Mail schicken möchte.

In der "Mail an" müsste ich ja schon wieder danach suchen.

[MdeJong]

so geht es auch :)

[MdeJong]

Hi Tom,


eine letzte Frage für heute noch:

ich habe in der Page "Mail an" folgenden Code für das leeren der TextBoxen gewählt...um eine neue Mail schreiben zu können.

Code:

Private Sub cmdNeueMail_Click()
For Each objControl In Controls  'leert die Textboxen
       Select Case TypeName(objControl)
           Case "TextBox"
           objControl.Text = ""
           End Select
           Next
End Sub

wenn ich die listbox ....also die Auswahl in der Page auch deaktivieren will, mit welchem Befehl kann ich das in dem Code einbauen?

Mfg  Michael

[Crazy Tom]

moin

probier mal hinter next

Listbox4.ListIndex = -1


MfG Tom