[VBA] Center form in Outlook 2000

[zmaster]

Ik ben zelf op het moment bezig om in Outlook 2000 een custom form te creeeren. Ik zit alleen met het volgende probleem. Ik wil het form centreren maar dat lukt niet echt. Ik heb de volgende code ingevoerd:

code:

Sub Item_Open()
   Set objInspector = Item.GetInspector
   objInspector.Width = 484
   objInspector.Height = 398
   objInspector.Left = (Screen.Width - Width) / 2
   objInspector.Top = (Screen.Height - Height) / 2
   Set objInspector = Nothing
End Sub

Als deze code uitgevoerd krijg ik de melding:

Script Error
Object required: 'Screen'
Line No:3

Zou iemand me daar een handje mee kunnen helpen? Tia

[Creepy]

En wat heb je zelf al geprobeerd om dit op te lossen? We verwachten hier stiekum dat je zelf in staat bent om dit soort errors zelf op te lossen. Het lijkt erop dat Outlook het object Screen niet kent. Zoek dus eens uit waar dit zit en hoe je dat vanuit Outlook kan benaderen.

Als je P&W FAQ - De "quickstart" zou willen lezen dan zie je wat we eigenlijk van een topicstart verwachten

[zmaster]

Okee sorry mijn fout.

Ja klopt. Ik zie dus inderdaad dat Outlook het Object Screen niet kent. Ik heb al gezocht op MSDN maar ook daar kom ik niet veel wijzer uit. Er wordt vooral verwezen naar VB en niet naar de programmatuur die in Outlook gebruikt wordt. Zelfs in de Object Browser die zich in de script editor van Outlook bevind kan ik niks bruiksbaar vinden.

Wat ik zelf nog geprobeerd heb is te werken met FormStartPosition.CenterScreen maar ook als ik dit gebruik geeft hij de melding "Object required: FormStartPosition.CenterScreen"

Ik heb zelf het gevoel als ik helemaal verkeerd aan het kijken ben maar ik kom er maar geen wijs uit.

_{offtopic: Het is zo, dit een project waar aan gewerkt wordt op mn stage en ik help daar een handje mee. Ik doe zelf de opleiding Netwerk Infrastructure Design. Programmeren ligt me dus niet echt geweldig}

[Ciqniz]

code:

Sub Item_Open()
   Set objInspector = Item.GetInspector
   objInspector.Screen.Width = 484
   objInspector.Screen.Height = 398
   objInspector.Left = (Screen.Width - objInspector.Width) / 2
   objInspector.Top = (Screen.Height -objInspector.Height) / 2
   Set objInspector = Nothing
End Sub

of

code:

Sub Item_Open()
   Set objInspector = Item.GetInspector
   objInspector.Width = 484
   objInspector.Height = 398
   objInspector.Left = (Screen.Width - objInspector.Width) / 2
   objInspector.Top = (Screen.Height -objInspector.Height) / 2
   Set objInspector = Nothing
End Sub

Ik heb geen idee of dit wat is, en of dit gaat werken, maar het is een idee.
Het lijkt mij dat jouw eigenschappen Width en Height (die je van screen.width en screen.height aftrekt) niet bestaan...
Als dit niet werkt heb je misschien wel een duw in de goede richting...

[ Voor 22% gewijzigd door Ciqniz op 23-06-2005 13:07 ]

[zmaster]

Bovenstaande werkt helaas ook niet. Geen van de beide.

Heeft iemand anders misschien een andere oplossing?

[zmaster]

*klein kickje naar boven*