Bonsoir,
J'ai trouvé sur le net cette fonction. Mon problème est que VS 2003 me souligne "Outlook.Application". je ne sais pas quel namespace il faut importer. (il me dit que le type Outlook.Application est non défini.
Public
Function
AssignTaskOutlook(
ByVal
personne
As
String
,
ByVal
jour
As
Date
,
ByVal
sujet
As
String
,
ByVal
texte
As
String
)
Dim
interopApplication
As
Outlook.Application =
Me
.ActiveExplorer().Application
Dim
objOLApp
As
Outlook.Application
Dim
objItem
As
Outlook.TaskItem
Dim
objRecipient
As
Outlook.Recipient
objOLApp = CreateObject("Outlook.Application")
objItem = objOLApp.CreateItem(olTaskItem)
With
objItem
.Assign()
objRecipient = .Recipients.Add(personne)
.DueDate = jour
.Subject = sujet
.body = texte
.Send()
End
With
objItem =
Nothing
objOLApp =
Nothing
End
Function
Merci d'avance
mickael