Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Voici un exemple assez simple à utiliser en ajoutant une référence à Microsoft Outlook Object Library
Sub AjoutTache() Dim myolApp As New Outlook.Application Dim myItem As Outlook.TaskItem Dim objName As Outlook.Namespace Dim objFolder Set objName = myolApp.GetNamespace("MAPI") Set objFolder = objName.GetDefaultFolder(olFolderTasks) '13 Set myItem = myolApp.CreateItem(olTaskItem) '3 myItem.Subject = "Tache N° 1" myItem.DueDate = Now myItem.Assign Set myItem = Nothing Set myolApp = Nothing End Sub
Cordialement Pascal
"Jean" a écrit dans le message de news: 440bdfed$0$19692$
Bonjor à tous,
Je voudrais pouvoir créer des taches Outllook depuis le vba Excel. Afin de créer des alertes.
Comment faire ?
Jean
Bonjour
Voici un exemple assez simple à utiliser en ajoutant une référence à
Microsoft Outlook Object Library
Sub AjoutTache()
Dim myolApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim objName As Outlook.Namespace
Dim objFolder
Set objName = myolApp.GetNamespace("MAPI")
Set objFolder = objName.GetDefaultFolder(olFolderTasks) '13
Set myItem = myolApp.CreateItem(olTaskItem) '3
myItem.Subject = "Tache N° 1"
myItem.DueDate = Now
myItem.Assign
Set myItem = Nothing
Set myolApp = Nothing
End Sub
Cordialement
Pascal
"Jean" <jj@free.fr> a écrit dans le message de news:
440bdfed$0$19692$8fcfb975@news.wanadoo.fr...
Bonjor à tous,
Je voudrais pouvoir créer des taches Outllook depuis le vba Excel.
Afin de créer des alertes.
Bonjour Voici un exemple assez simple à utiliser en ajoutant une référence à Microsoft Outlook Object Library
Sub AjoutTache() Dim myolApp As New Outlook.Application Dim myItem As Outlook.TaskItem Dim objName As Outlook.Namespace Dim objFolder Set objName = myolApp.GetNamespace("MAPI") Set objFolder = objName.GetDefaultFolder(olFolderTasks) '13 Set myItem = myolApp.CreateItem(olTaskItem) '3 myItem.Subject = "Tache N° 1" myItem.DueDate = Now myItem.Assign Set myItem = Nothing Set myolApp = Nothing End Sub
Cordialement Pascal
"Jean" a écrit dans le message de news: 440bdfed$0$19692$
Bonjor à tous,
Je voudrais pouvoir créer des taches Outllook depuis le vba Excel. Afin de créer des alertes.
