title image


Smiley Re: UserForm und E-Mail
Hi,ich habe eine Userform angelegt und in der Userform ein Label mit Namen Label1 platziert.Die Farbänderung beim Bewegen des Mauscursors über den Label1 konnte ich nur so lösen, dass sich die Farbe grundsätzlich ändert. Damit z.B. eine Cursor-Hand erscheint muß bei Eigenschaften des label1 unter Mousepointer der Wert 99 eingestellt werden und unter der Eingenschaft MouseIcon das entsprechend Symbol als Datei eingebunden werden.Damit Outlook gestartet werden kann, ist im VB-Editor unterExtras Verweise die Microsoft Outlook 9.0 Object Library auszuwählen.Anschließend das folgende Listing eingeben - fertig.Dim k As BooleanPrivate Sub Label1_Click() Dim ol As Outlook.Application Dim mail As Outlook.MailItem Set ol = CreateObject("Outlook.Application") Set mail = ol.CreateItem(olMailItem) mail.Display mail.Recipients.Add Label1.CaptionEnd SubPrivate Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If k Then Label1.ForeColor = &H80000002 k = False Else Label1.ForeColor = &H80000006 k = True End IfEnd Subbye Herbi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: