Finalisation macro pour transferer des taches d'excel vers Outlook

  • Auteur de la discussion Dimitri De Neys
  • Date de début

Dimitri De Neys

Nouveau membre
Bonjour à tous, je dois pas être loin du but mais je ne trouve vraiment pas comment finaliser:
Voici le code que j'ai actuellement:
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...

Je cherche depuis maintenant quelques jour et je ne trouve pas ...
Merci d'avance a qui pourra m'aider.
 

Dimitri De Neys

Nouveau membre
Je progresse alors je post le code afin d'aider également ceux qui sont dans le besoin:

Code actuel:
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
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 136
Messages
6 718 121
Membres
1 586 398
Dernier membre
mookie767
Partager cette page
Haut