Creating and assigning tasks in Outlook from Excel
<p>I am attempting to create a service desk tool in Excel, and the way I am thinking of making it easy for the admin to assign them would be to use the tasks in Outlook.</p>

<p>The admin person would receive the email, fill out a line in Excel, then click on a button to open a new task in Outlook, with fields pre-filled out. Then they would drag and drop the email as an attachment.</p>

<p>However, I am trying to get the assigned to email address pre-filled from a value in the spreadsheet. Assign doesn't seem to work, and neither does Recipient. Does anyone have any ideas why not? This is the code that I have so far:</p>

<pre><code>Dim OutApp As Outlook.Application
Dim OutTask As Outlook.TaskItem

 Set OutApp = CreateObject("Outlook.Application")
 Set OutTask = OutApp.CreateItem(olTaskItem)

 With OutTask
    .Assign = Cells(2, "G")
    .Subject = "Service Request" &amp; Cells(2, "A")
    .StartDate = Cells(2, "H")
    .DueDate = Cells(2, "H") + Cells(2, "I")
    .ReminderTime = .DueDate - 1
    .Body = "Please see the attached email for a service request assigned to you."
    .Display
 End With

Set OutTsk = Nothing
Set OutApp = Nothing

End Sub
</code></pre>

<p>Any help would be greatly appreciated!</p>