Outlook sjabloon .oft

[mulderwme]

Hallo allemaal,

Een Outlooksjabloon is heel handig.
Maar...om een sjabloon uiteindelijk op te slaan, moet je echter heel wat handelingen verrichten.
Niet iedere gebruiker heeft de nodige kennis en ervaring om dit snel en simpel te doen.

Om dat te vereenvoudigen, zou ik iemand in Word zijn tekst willen laten tikken en dit document met VBA willen laten opslaan als .oft, in een map naar keuze.

Word kent saveas .oft niet.

Wie heeft hier kennis van/ervaring mee?

Groet
Willem

 

[spaarie]

Je weet dat dit de Excel topic is?

 

[mulderwme]

Hallo Spaarie,

Ik heb wel gezocht en ben een vergelijkbare vraag van Floriandus tegengekomen uit 2009. Maar die vraag was niet opgelost, zelfs geen reactie.

Misschien heb ik de verkeerde zoektermen gebruikt en heb ik hem daarom niet gevonden.

Als je me kunt wijzen welk topic het is...

Groet
Willem

 

[spaarie]

Ik denk dat je de vraag beter had kunnen stellen in de VBA topic...
Maar heb je wel eens gekeken naar 'Snelonderdelen' onder 'Invoegen'.

Typ de sjabloontekst in je mail > selecteer deze > ga naar invoegen > snelonderdelen en sla de selectie op in de galerij snelonderdelen.
Wanneer je nu een nieuwe mail aanmaakt en je gaat naar invoegen > snelonderdelen kan je deze tekst invoegen in je mail...

 

[snb]

Probeer eens:

Sub M_snb()
  With CreateObject("outlook.application").CreateItem(0)
     .to = ""
     .Subject = "nieuw"
     .Body = activedocument.Content
     .SaveAs "G:\OF\iemeel.oft", 2
  End With
End Sub

 

[mulderwme]

Bij "Snelonderdelen" heb ik alleen maar "Autotekst" staan.

De reactie van snb komt net binnen. Dat is de oplossing.

Groet
Willem

 

[mulderwme]

Bedankt snb.

Dit is de oplossing. Je hebt me weer goed geholpen!

groet
Willem