VBa project vraagje

[rewico]

Hoop dat het hier thuis hoort.

Heb geen kaas gegeten van VBa maar heb het volgende.

In outlook 2010 heb ik in het lint knoppen gemaakt die direct een sjabloon openen. Dat gaat goed behalve dan dat de 3 knoppen hetzelfde sjabloon openen.

Met alt + F11 deze code gebruikt:
Sub DoIt()

Set msg = Application.CreateItemFromTemplate("M:\Medewerkers\sjablonen\Verzuim wegens ziekte.oft[")

msg.Display

End Sub

En dat voor de andere knoppen ook gedaan maar dan met een andere .oft naam.

Hoe moet ik het nou oplossen dat met die andere knoppen .
Voldoet het mogelijk als ik onderstaande doe?

Sub DoIt()

Set msg = Application.CreateItemFromTemplate("M:\Medewerkers\sjablonen\Verzuim wegens ziekte.oft[")
Set msg = Application.CreateItemFromTemplate("M:\Medewerkers\sjablonen\ANDERE NAAM.oft[")

msg.Display

End Sub

 

[wampier]

misschien overbodig maar je hebt de functies wel andere namen gegeven en deze andere namen toegevoegd aan de respectievelijke knoppen?

 

[rewico]

Heb het geheel geexporteerd en een unike naam gegeven.
Daar zit het vast fout

 

[rewico]

iemand op deze regenachtige dag nog een idee hoe ik dit moet aanpakken?