Créer des taches sous Lotus via VBA excel

Signaler
Messages postés
6
Date d'inscription
mardi 28 janvier 2014
Statut
Membre
Dernière intervention
31 janvier 2014
-
 QCaquine -
Bonjour,

J'ai fait une recherche sur le forum (et même sur le net) et je n'ai rien trouvé donc je me permet de poser la question ici, au cas ou quelqu'un aurait LA réponse.

Voilà, depuis excel, je souhaite pouvoir créer des Taches sous Lotus. Tout ce que j'ai trouvé c'est l'envoi de mail via excel par lotus mais rien sur la création de tache dans Lotus.

Est ce que quelqu'un aurait un début de code à me proposer ?

Nouvelle je suis donc je remercie d'ores et déjà ceux qui auront la gentillesse de lire ma question, la comprendre et pourquoi pas m'apporter un début de réponse et surtout l'ensemble des participants au forum qui nous aide sans le savoir par leur réponse à dépatouiller nos macros.

A bientot, j'espère

2 réponses

Messages postés
6
Date d'inscription
mardi 28 janvier 2014
Statut
Membre
Dernière intervention
31 janvier 2014

Mon message, n'entousiamant pas les foules, je continue à avancer et j'ai donc eu l'idée d'envoyer un mail de type "demande de tache" en vba.
J'avance donc tout doucement et vous livre mon code ci-dessous :
Sub Creer_TacheLotus()

    Dim Maildb As Object 'The mail database
    Dim UserName As String 'The current users notes name
    Dim MailDbName As String 'THe current users notes mail database name
    Dim MailDoc As Object 'The mail document itself
    Dim session As Object 'The notes session

    UserName = "mail@mail.fr"
    Set session = CreateObject("Notes.NotesSession")
    'Open the mail database in notes
    Set Maildb = session.GETDATABASE("", "")
    If Maildb.IsOpen = True Then
    Else
    Maildb.OPENMAIL
    End If
     
    'Paramètres du mail à envoyer
    Set MailDoc = Maildb.CreateDocument
    MailDoc.form = "Task"   'mail de type taches
    MailDoc.Subject = "Test"    ' titre de la tache
    MailDoc.DueDate = "01/02/2014" ' date limite
    MailDoc.StartDate = "01/01/2014" 'date de début
    MailDoc.Save = True
 
    'Send the document
    
    MailDoc.posteddate = Now()
    MailDoc.SEND 1, "" & UserName

    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set session = Nothing

End Sub

A ce stade, je reçois bien un mail de type taches dans la boite mail du Username mais :
j'ai un premier message d'erreur à l'ouverture du message sous lotus qui me dit "Erreur lors de la tentative d'ouverture du document : document non valide ou inexistant". Je clique sur Ok puis j'ai un message IBM Lotus Notes : "Attention un masque ebregistré ne doit pas contenir de sous masques calculés".
Je clique sur Ok et j'accède enfin à ma tache. Mais lorsque je clique sur enregistrer et fermer dans la tache cela me plante lotus notes qui plante et se ferme.

Bon c'est un début mais pas concluant, si d'autres utilisateurs veulent chercher avec moi, je me sentirai moins seule.

A bientot pour j'espère un vrai début de solution.
Messages postés
6
Date d'inscription
mardi 28 janvier 2014
Statut
Membre
Dernière intervention
31 janvier 2014

Bon, j'y suis presque mais ce n'est pas vraiment satisfaisant car je reçoit bien un mail mais instance par instance il faut que je me supprime ou ajout en tant que destinataire pour avoir accès à réponse "accepter". Ce qui en matière d'automatisation n'est pas le top.
Voici mon code, si certain entrevoit une solution, je suis preneuse :

Sub créer_une_tache_lotus

        Dim Datederelance As String
        Dim session As Object
        Dim db As Object
        Dim doc As Object
        Dim assignedto As String
        Dim subject As String
        Dim startdate As Variant
        Dim duedate As Variant
        Dim body As String
        Dim copyto As String
        Dim import As Variant
        Dim UserName As String
        UserName = "mail@mail.fr" 'mail du destinataire de la tache
        Set session = CreateObject("Notes.NotesSession")
        Set db = session.GETDATABASE("", "")
        db.OPENMAIL
        Set doc = db.CreateDocument
        
        'Mise à jour des variables
        Datederelance = "01/31/2014"
        subject = "Titre de la relance"
        startdate = CDate(Datederelance) 'date de début de la tache
        duedate = CDate(Datederelance)  'date de fin de la tache
        assignedto = UserName 'personne a qui sera adressé le mail
        import = "1" 'niveau d'importance de la tache (de 1 haute à 3 basse)


        doc.Form = "Task"
        doc.subject = subject
        doc.StartDateTime = startdate
        doc.DueDateTime = duedate
        doc.Importance = import
        doc.principal = assignedto
        doc.assignedto = UserName
        doc.AssignState = 2
        doc.alarms = 1
        doc.sendto = UserName
        doc.Save = True
        Call doc.Send(False, "")


EDIT : Ajout des balises de code
Bonjour,
Depuis votre dernier message, y a t-il eu de l'avancement?