permet d'envoyer des courriel ou des task par outlook
présentement configurer pour des task, juste à changer cette ligne là : Set objItem = objOLApp.CreateItem(olTaskItem)
oublierz pas de référencier outlook (je sais pas si ça marche avec outlook express)
Source / Exemple :
Public Function AssignTask(personne as string, jour as date, sujet as string, texte as string)
Dim objOLApp As Outlook.Application
Dim objItem As Outlook.TaskItem
Dim objRecipient As Outlook.Recipient
Set objOLApp = CreateObject("Outlook.Application")
Set objItem = objOLApp.CreateItem(olTaskItem)
With objItem
.Assign
Set objRecipient = .Recipients.Add(personne )
.DueDate = jour
.Subject = sujet
.body = texte
.Send
End With
Set objItem = Nothing
Set objOLApp = Nothing
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.