Créer une tâche dans outlook et l'envoyer

*** Ajouter la librairie Outlook ***


Dim objOutlook As Outlook.Application 'Objet
Outlook
Dim objMsg As Outlook.MailItem 'Message
Outlook
Dim objTask As Outlook.TaskItem 'Tache
Outlook
Dim objAttach As Outlook.Attachments 'Le fichier
a attacher

'****************************
'-- Ouverture de Outlook --
'-- Creation d'un message --
'-- Attache le fichier PDF --
'****************************
Set objOutlook = New Outlook.Application
'Set objMsg = objOutlook.CreateItem(olMailItem)
Set objTask = objOutlook.CreateItem(olTaskItem)

'Set objAttach = objMsg.Attachments
'objAttach.Add "c:winnttemp" & as_nom_etat
'objMsg.To = "suzanne"

'********************************
'-- Affiche le message Outlook --
'********************************
'objMsg.Display
objTask.Display

Problème : pour *** Ajouter la librairie Outlook ***,
dans outils - références , j'ai coché "Microsoft Outlook 11.0 Object Library"
est-ce juste ?
car l'instruction
Set objOutlook = New Outlook.Application
provoque le message "le module spécifié n'existe pas"

*** Ajouter la librairie Outlook ***


Dim objOutlook As Outlook.Application 'Objet
Outlook
Dim objMsg As Outlook.MailItem 'Message
Outlook
Dim objTask As Outlook.TaskItem 'Tache
Outlook
Dim objAttach As Outlook.Attachments 'Le fichier
a attacher

'****************************
'-- Ouverture de Outlook --
'-- Creation d'un message --
'-- Attache le fichier PDF --
'****************************
Set objOutlook = New Outlook.Application
'Set objMsg = objOutlook.CreateItem(olMailItem)
Set objTask = objOutlook.CreateItem(olTaskItem)

'Set objAttach = objMsg.Attachments
'objAttach.Add "c:winnttemp" & as_nom_etat
'objMsg.To = "suzanne"

'********************************
'-- Affiche le message Outlook --
'********************************
'objMsg.Display
objTask.Display

Oui c'est bien ça.

Vérifie si ta librairie Microsoft DAO 3.6 Object library est au-dessus
de la librairie OLE Automation.

C'est la seule explication que je vois pour l'instant

Ce n'était pas le cas, mais même après les avoir mis dans l'ordre, le message
vient toujours

Oui c'est bien ça.

Vérifie si ta librairie Microsoft DAO 3.6 Object library est au-dessus
de la librairie OLE Automation.

C'est la seule explication que je vois pour l'instant

tu peux toujours enlever le New devant mais je ne pense pas que ça va
régler le problème.

j'imagine que tu as copier mon code ... essaye de taper "Dim objMsg as
"... Vois-tu Outlook dans la liste des types ???