send an outlook task to colleagues

A

Atishoo

I can send a task to my own outlook but cant set another recipient using the
recipient command (it doesnt like it) (or maybe it just doesnt like me) what
code should I be using instead?

Dim olApp As Outlook.Application
Dim olTsk As TaskItem

Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)

With olTsk
..Recipients = ("Salter John")
..Subject = "Update Web Site"
..Status = olTaskInProgress
..Importance = olImportanceHigh
..DueDate = DateValue("06/26/03")
..TotalWork = 40
..ActualWork = 20
..Save
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub

thanks
 
J

Jacob Skaria

Try

Recipients:=Array("(e-mail address removed)", "(e-mail address removed)")

If this post helps click Yes
 
J

Jacob Skaria

Try the below

Dim olApp As Outlook.Application
Dim olTsk As TaskItem
Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)


With okTsk
.To = "(e-mail address removed),[email protected]"
.CC = "(e-mail address removed);[email protected]"
.BCC = "(e-mail address removed)"
End With

If this post helps click Yes
 
A

Atishoo

got it!! code is as follows:
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)
myItem.Assign
Set myDelegate = myItem.Recipients.Add("Jeff Smith")
myItem.Subject = "Prepare Agenda For Meeting"
myItem.DueDate = #9/20/97#
myItem.Send
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top