Outlook 2007, Onderwerp van taak in combobox op userform

[jackfish]

Ik wil graag het onderwerp van een taak in Outlook, als zoekterm gebruiken voor een combobox op een userform in Word. Ik heb een bescheiden puzzelstukje

Om vanuit Outlook het Wordbestand te openen heb ik onderstaande code. Met het openen van het bestand verschijnt ook het userform met daarop de combobox1

Sub Word_openen()
Set wrd = GetObject(, "Word.Application")
wrd.Documents.Open "h:\test.docm"
End Sub

Wie ziet een mogelijkheid om een stap verder te komen?

 

[alphamax]

Met een voorbeeldbestandje word je sneller en beter geholpen.
Je kan alles al vanuit word doen, geen reden om het bestand met code te openen.

 

[jackfish]

Ik ben op Helpmij.nl eigenlijk altijd snel en goed geholpen Alphamax. Een voorbeeldbestand is een goede suggestie.

Ik kan niet alles vanuit Word doen. Immers, het onderwerp van een taak in Outlook moet in een Combobox komen van Word. Of je moet Outlook weten uit te lezen. Dat klikt alsof jij weet hoe dat moet.....

Bekijk bijlage Test.zip

 

[edmoor]

Zoals je vanuit Outlook een Word object kan openen, kan je ook vanuit Word een Outlook object openen. Dat zal zijn wat alphamax bedoeld en lijkt mij ook beter.

Hier staat beschreven hoe je met VBA via het Outlook object bij de agendapunten kan komen:
http://www.gregthatcher.com/Scripts/VBA/Outlook/GetListOfCalendarAppointments.aspx

En hier voor de Taken:
https://technet.microsoft.com/en-us/library/ee692909.aspx

 

[alphamax]

bij deze, test maar eens uit

 

[jackfish]

Wat een geweldig forum toch. Dank jullie wel edmoor en alphamax. Ik ben erg onder de indruk.

Thanks :thumb:

 

[snb]

Ik iets minder.

Zie ook http://www.snb-vba.eu/VBA_Outlook_external.html#L92

Vermijd additem om Comboboxen/listboxen te vullen.(zie http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html)
Als je de eigenschap .List gebruikt is .clear overbodig.
Vermijd overbodige objectvariabelen.

Dit is voldoende:

Sub M_snb()
  for each it in CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items
    c00=c00 & "_" & it.subject
  next

  combobox1.list=split(mid(c00,2),"_")
End Sub