Opdrachtknop in formulier voor aanmaken taak in Outlook

[John van Herk]

Case:

Ik heb de volgende nieuwe module gemaakt:

In VBA:
Maak een nieuwe module en ga dan in het visual basic venster naar Extra --> Verwijzingen en vink vervolgens "Microsoft Outlook 11 object library aan".
Plak vervolgens de volgende code in de module.

Option Compare Database

Dim appOutlook As Outlook.Application
Dim task As Outlook.TaskItem

Sub NieuweTaak()

Set appOutlook = New Outlook.Application
Set task = appOutlook.CreateItem(olTaskItem)
task.Display

Set appOutlook = Nothing
Set task = Nothing

End Sub


End Sub

Hoe zet je deze opdracht in een knop op een formulier?

BvD,
John

 

[thomrob]

maak als voorbeeld eens een knop op een al bestaand formulier mbv een wizard. In de codemodule van het formulier zie je dan hoe er code achter het click-event van de knop wordt geplaatst.

Vervang vervolgens de automatisch gegenereerde code door je eigen outlook code.

 

[John van Herk]

thomrob,

bedankt, het werkt prima.

PS: kun je ook nog gegevens uit een query/tabel/formulier meesturen naar de taak?

 

[Tardis]

Het bestand accarch67.zip op deze pagina

http://helenfeddema.com/access.htm

helpt je verder op weg.
Zelf aanpassen naar jouw situatie.

Groet,

Tardis

 

[John van Herk]

Bedankt.

Hier kan ik wel mee verder komen.