View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default disregard the Outlook dialog box sending task/eMail from Excel 2003

Ron de Bruin
http://www.rondebruin.nl/sendmail.htm
http://msdn.microsoft.com/library/en...odc_xlmail.asp

Ron has sample code for using CDO to send mail. This apparently avoids the
security message. It doesn't use Outlook.

--
Regards,
Tom Ogilvy


"jC!" wrote in message
om...
hi all,

currently i am creating a macro in Excel 2003 which will create an
Outlook Task which is assigned and send to the recipient. the issue is
that Outlook 2003 displays a dialog box asking if this access is
allowed. my question is it at all possible to have this dialog box
either suppressed or have it automatically acknowledged by line of
code.

the code so far:
Sub CreateTask()

Dim olApp As Outlook.Application
Dim olTsk As TaskItem
Dim objRecipient As Outlook.Recipient

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

With olTsk
.Assign
Set objRecipient = ")
.Subject = "Test Task1"
'.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = DateValue("06/26/03")
.TotalWork = 40
.ActualWork = 20
.Save
.Send
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub

any help is mostly appreciated - cheers....


....jurgenC!