Send a task from an excel file

L

Lorna

How can I send a task (outlook) from an excel file.
Also this task must contain some information from this
excel file (some cells).

And after the recipient has finished the task, outlook
must the filled the excel file with some data.

Thanks
 
R

Rob van Gelder

This request is better asked in an Outlook Newsgroup. I'm pretty horrible at
Outlook automation, so it would be a good idea to get this verified.


Sub test()
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objTask As Outlook.TaskItem

On Error Resume Next
Set objApp = GetObject(, "Outlook.Application")
If Err.Number Then Set objApp = CreateObject("Outlook.Application")
On Error GoTo 0

If Not objApp Is Nothing Then
Set objNS = objApp.GetNamespace("MAPI")
objNS.Logon

Set objTask = objApp.CreateItem(olTaskItem)
objTask.Subject = Range("A1").Value
objTask.DueDate = Range("B1").Value
objTask.Save

Set objTask = Nothing
Set objApp = Nothing
End If
End Sub
 
R

Rob van Gelder

Sorry. Meant this to be late binding.

First 3 lines should read:

Dim objApp As Object
Dim objNS As Object
Dim objTask As Object
 
Top