Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[Outlook 2003] In een macro naar een formulier navigeren

Pagina: 1
Acties:

  • demasterbaas
  • Registratie: Maart 2006
  • Laatst online: 20-11 10:24
Ik wil uit een macro een formulier oproepen, maar weet niet hoe ik er kom...

Macro nu:

code:
1
2
3
4
5
6
7
8
Sub Klanttoevoegen()

Set myFolder1 = Session.Folders("Outlook")
Set myFolder2 = Session.Folders("Klantenbestand")
Set myItem = myFolder1.Items.Add("IPM.Contact.Klant toevoegen")
myItem.Display

End Sub


Het formulier bevindt zich in een adreslijst "Klantenbestand". Die lijst bevindt zich volgens de eigenschappen ervan in "\\Persoonlijke mappen\Contactpersonen"

Wie weet de juiste code? Tnx

  • demasterbaas
  • Registratie: Maart 2006
  • Laatst online: 20-11 10:24
Doet het al!

code:
1
2
3
4
5
6
7
8
9
Sub Klanttoevoegen()

Set myFolder1 = Session.Folders("Persoonlijke Mappen")
Set myFolder2 = myFolder1.Folders("Contactpersonen")
Set myFolder3 = myFolder2.Folders("Klantenbestand")
Set myItem = myFolder3.Items.Add("IPM.Contact.Klant toevoegen")
myItem.Display

End Sub