Making access create a task in Outlook

[lixolin]

Hello!
I have a problem with Access that i was hoping to get some help with.



Im working with a database where I want to create a button in a split form (based on a single table) that when clicked takes the data out of the selected tuple and uses it (selected fields for selected tasks) to create a task in outlook that can then be passed on by the manager (who has access to the databse) to an employee (who only works in outlook).

I am using Access 2010 and Outlook 2010. I have VERY limited experience with Visual Basic, and programming in general, but i have experimented with different codes i found online, so far unsuccessfully. I do know my way around access pretty well and I understand SQL fairly good as well.

The table which the form takes the data from is called "Tasks", and the form is called "Tasks2". The field that i want to use for headline is called "Headline" and is a text value. The field i want to use for the description ("main text") of the outlook task is called "Description" and is a memo value Then i have two fields named starting date and finishing date to be used for setting the dates of the outlook task, both in a date-format.

If you could help me write this i would be for ever thankful

[June7]

Does this thread help https://www.accessforums.net/access/...46/index2.html

[lixolin]

Sadly no, i tried the code, i even tried changing it and kind of mixing it with the code i found earlier, and nothing worked

[June7]

Why not, what happens - error message, wrong results, nothing? The calendar item is not created? I have tested this code and it created calendar item for me.

[lixolin]

I solved it, wooho!
The problem was in my access settings, it didnt recognise the commands i used, changed it in tools > references by ticking the outlook box.

My working code after a little bit of re-design on the form became:

Private Sub Kommandoknapp137_Click()
Dim olApp As Outlook.Application
Dim otTask As TaskItem
Dim ofFolder As MAPIFolder
Dim onNamespace As NameSpace
Dim ofInbox As MAPIFolder
Dim oicItems As Items
Dim omMail As MailItem
Dim orpRecurrence As RecurrencePattern
Dim NowDate As Date
Dim DateEnd As Date
Dim DateDif As Long
Dim Task As Object
Dim ToContact As Object

Set Task = Outlook.CreateItem(olTaskItem)
NowDate = Now()
If Not IsNull(Förfallodatum.Value) Then
Task.DueDate = Förfallodatum.Value
End If
Task.Subject = Title.Value
If Not IsNull(Description.Value) Then
Task.Body = Description.Value
End If
Task.Assign
Set ToContact = Task.Recipients.Add(Epost)
Task.ReminderSet = True
Task.Save
Task.Send
Form.Close
End Sub



probably really clumsy and unefficient code, i just took the pieces that seemed vital from several codes i found, but it did the trick!