transfer text from cell to Task folder in Outlook

[yosi]

did someone knows how to transfer text from cell in sheet to the Task folder in Outlook ??

 

[dk]

Hello,

This code shows how to create a new Outlook task. It just takes its Subject and Body from cell A1 and A2.

You must set a reference to the Microsoft Outlook Object Library before this will work.

Sub CreateTask()

'Create a new Outlook task in Excel VBA
Dim oOlookApp As Outlook.Application
Dim oOlookTask As Outlook.TaskItem

Set oOlookApp = CreateObject("Outlook.Application")

Set oOlookTask = oOlookApp.CreateItem(olTaskItem)

With oOlookTask
    .Subject = Range("A2").Value    'Take information from worksheet
    .Body = Range("A1").Value
    .DueDate = #12/11/2002#
    .Importance = olImportanceHigh
    .Save
End With

End Sub

 

[yosi]

thanks