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
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, "")