Re: Outlook Formular

Hallo Wolfgang,

es hängt davon ab, welchen style die comboBox hat.

Zitat:

"A single-select list or combo box bound to an Outlook property fires the
PropertyChange or CustomPropertyChange event. A single-select unbound list
or combo box fires a Click event.
A multi-select list box fires no events."


Siehe hier....

http://www.outlookcode.com/d/formcontrols.htm


Wenn Du mehr haben möchtest geht das leider nur mit einem COM AddIn.

Hoffe das hilft.


--
Freundliche Grüße / with regards

Helmut Obertanner
Technical Consultant

Softwaredevelopment
DATALOG Software AG | Zschokkestr. 36 | D-80687 Munich
web: www.datalog.de


..... and IT works!

"Wolfgang Diehl" <anonymous@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im
Newsbeitrag news:0ba101c53b7d$21a01fe0$a401280a@xxxxxxxxxx
Hallo Helmut,

mein script sieht jetzt so aus und
..... and IT not works!

--------------------------------
Dim myInspector
Dim myPage
Dim cmbAfl
Dim blnDidInit

Sub Item_Open()
on error resume next
blnDidInit = False

Set myinspector = Item.GetInspector
Set myPage = myInspector.ModifiedFormPages("FKS")
Set cmbAfL = myPage.Controls("cmbAfl")
with cmbAfl
.Additem = "Aurich"
..Additem = "Bremen"
end with
Set myPage = Nothing
Set myInspector = Nothing
blnDidInit = True
End Sub


Sub cmbAfL_Click()
on error resume next
If blnDidInit Then
Item.UserProperties("Afl") = cmbAfl.Text
End If
End Sub
--------------------------------
muss ich noch in den Eigenschaften der cmbBox ausser
Namen (cmbAfL) etwas ändern um es zum Laufen zu bringen??

Gruß
Wolfgang



>-----Originalnachricht-----
>Tschuldigung,
>
>Set cmbThema = myPage.Controls("cmbAfl")
>
>muss natürlich heissen:
>
>Set cmbAfl = myPage.Controls("cmbAfl")
>
>--
>Freundliche Grüße / with regards
>
>Helmut Obertanner
>Technical Consultant
>
>Softwaredevelopment
>DATALOG Software AG | Zschokkestr. 36 | D-80687 Munich
>web: www.datalog.de
>
>
>.... and IT works!
>
>"Helmut Obertanner" <obertanner@xxxxxxxxxx> schrieb im
Newsbeitrag
>news:O5IO8$0OFHA.3668@xxxxxxxxxxxxxxxxxxxxxxx
>> Hallo Wolfgang,
>>
>> so einfach geht es leider nicht.
>> Zuerst musst Du Dir die Referenz auf die ComboBox
holen.
>>
>> Zuerst die Seite, auf der Du die ComboBox plaziert
hast, dann die
>> ComboBox.
>>
>> Und das geht ungefähr so:
>>
>> Dim myInspector
>> Dim myPage
>> Dim cmbAfl
>> Dim blnDidInit
>>
>> Sub Item_Open()
>>
>> on error resume next
>>
>> blnDidInit = False
>>
>> Set myinspector = Item.GetInspector
>>
>> 'Hier namen der Formularseite ändern
>>
>> Set myPage = myInspector.ModifiedFormPages("Meine
Seite")
>>
>> Set cmbThema = myPage.Controls("cmbAfl")
>>
>> with cmbAfl
>>
>> .Add.....
>>
>> Set myPage = Nothing
>>
>> Set myInspector = Nothing
>>
>> blnDidInit = True
>>
>> End Sub
>>
>> 'Und weiter unten....
>>
>> Sub cmbThema_Click()
>>
>> on error resume next
>>
>> If blnDidInit Then
>>
>> 'Zum Beispiel
>>
>> Item.UserProperties("Afl") = cmbAfl.Text
>>
>> End If
>>
>> End Sub
>>
>>
>> --
>> Freundliche Grüße / with regards
>>
>> Helmut Obertanner
>> Technical Consultant
>>
>> Softwaredevelopment
>> DATALOG Software AG | Zschokkestr. 36 | D-80687 Munich
>> web: www.datalog.de
>>
>>
>> ... and IT works!
>>
>> "Wolfgang Diehl" <anonymous@xxxxxxxxxxxxxxxxxxxxxxxxx>
schrieb im
>> Newsbeitrag news:09ff01c53b42$ca7a4c20
$a401280a@xxxxxxxxxx
>> Hallo,
>>
>> ich habe die CompoBox im Formular (Entwurf) über
>> die Werkzeugleiste eingefügt und möchte sie jetzt
>> mit 'Leben' füllen.
>>
>> Mein script ....
>> Function Item_Open()
>> with cmbAfL
>> .additem = "Aurich"
>> .additen = "Bremen"
>> end with
>> End Function
>> .... and IT not works!
>>
>> Gruß
>> Wolfgang Diehl
>>
>>>-----Originalnachricht-----
>>>Du musst das Formulat entwerfen und das Steuerelement
>> per Drag & Drop auf
>>>das Formular ziehen.
>>>
>>>Wenn Die ComboBox im Menü sein soll geht das nur per
>> skript im Formular oder
>>>per AddIn.
>>>
>>>Wo möchtest Du die ComboBox denn haben ?
>>>
>>>--
>>>Freundliche Grüße / with regards
>>>
>>>Helmut Obertanner
>>>Technical Consultant
>>>
>>>Softwaredevelopment
>>>DATALOG Software AG | Zschokkestr. 36 | D-80687 Munich
>>>web: www.datalog.de
>>>
>>>
>>>.... and IT works!
>>>
>>>"Wolfgang Diehl" <anonymous@xxxxxxxxxxxxxxxxxxxxxxxxx>
>> schrieb im
>>>Newsbeitrag news:1fcb01c539ed$c32177b0
>> $a401280a@xxxxxxxxxx
>>>Hallo,
>>>
>>>wie binde ich eine ComboBox in ein Formular ein?
>>>
>>>Danke für die Hilfe.
>>>
>>>Wolfgang Diehl
>>>
>>>
>>>.
>>>
>>
>>
>
>
>.
>


.

Relevant Pages

  • Re: Memory problem with XML::DOM::Parser???
    ... >> # Die Anfrage ist Teil der neuen EPA ... # Modul für die XML-Funktionen des Clients ... # Subroutine, um die XML-Struktur aus dem XML-Rootfile und den ... sub construct_xml { ...
    (comp.lang.perl.misc)
  • Re: Daten aus word Dialogfeld in Outlook Kontakte
    ... muß ich dafür die Objekt Bibliothek für Outlook 10 einbinden. ... Das Makro soll aber auch auf anderen Rechner mit Outlook 2000 funktionieren. ... Private Sub UserForm_Initialize ...
    (microsoft.public.de.word.vba)
  • Re: Zur Laufzeit generierter Timer - Name
    ... Ich sehe in der Tat für mich noch keinen Weg der an mehreren Timern vorbei ... Private Jobs As New List ... Public Sub Main ... Do While FRM.Created '<< Hier ist die GameLoop ...
    (microsoft.public.de.german.entwickler.dotnet.vb)