Finalisation code Export Ecel -> Tache Outlook

Version imprimable

1 pièce(s) jointe(s)

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:

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.

Encore un peut de progrès mais reste quelques bugs:

Code:

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

J'avance alors je post pour aider également si d'autre cherchent la même chose que moi

Code actuel:
Code:

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