Discussion :

[d.deneys]

Bonjour,
J'essaye d'importé des taches dans Outlook depuis un tableau excel.

Je ne dois pas être loin du but mais il reste un petit bug dans le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub AjoutTacheII()
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
Dim dl&
dl = Cells(Rows.Count, 2).End(xlUp).Row
For i = 4 To dl
Set myItem = myolApp.CreateItem(olTaskItem) '3
myItem.Subject = Cells(i, "B")
myItem.DueDate = Cells(i, "C")
myItem.Assign
Set myItem = Nothing
Next i
Set myolApp = Nothing
End Sub

Rien ne ce passe au niveau d'Outlook mais pas de message d'erreur VBA.

[d.deneys]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Sub AjoutTacheII()
    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
    Dim dl&
    dl = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 4 To dl
    Set myItem = myolApp.CreateItem(olTaskItem) '3
    myItem.Subject = Cells(i, "B")
    myItem.DueDate = Cells(i, "C")
    myItem.Assign
    myItem.ReminderSet = False
    myItem.Save
    Next i
    Set myolApp = Nothing
    End Sub

Me créé bien la tache dans Outlook Hourra, mais:
La date de création ce met a aujourd'hui et ne fait pas référence a myItem.DueDate = Cells(i, "C")
Le Texte en colonne H ne ce met pas dans Note

[d.deneys]

Code actuel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Sub AjoutTacheII()
    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
    Dim dl&
    dl = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 4 To dl
    Set myItem = myolApp.CreateItem(olTaskItem) '3
    myItem.Subject = Cells(i, "B") 'Sujet
    myItem.StartDate = Cells(i, "C") 'Date de début
    myItem.Body = Cells(i, "H") 'Note
    myItem.Categories = Cells(i, "D") 'catégorie
    myItem.Assign
    myItem.ReminderSet = False
    myItem.Save
    Next i
    Set myolApp = Nothing
    End Sub

Je recherche quels sont les autres codes tel que :
.DueDate
.Subject
.Body

de tel sorte a trouver ceux qui correspondent au colonnes suivantes dans les taches d'outlook:
Créé le
Priorité personnalisé
Adresse Postale
Ville

Je cherche également comment faire pour vérifier si la tache existe déjà dans outlook et si c'est le cas, ne pas la recréé.
Afin de pouvoir clôturer le sujet