SendTo

[Garcia Rafael]

Hello j'ai été chargé de développer un workflow sur lotus notes 5 mais je ne connais pas la programmation de lotus et je suis confronté au problème de l'envoi automatique de mail je ne comprends pas comment je dois faire pouvez vous m'aider merci d'avance[%sig%]

[Ludovic Hermez]

Voici ce que nous avons fait en fonction de notre besoin !!Dans addressBook, tu dois définir une (ou plusieurs) Database Maildans un code Lotus Script:exemple de code !! DocMemo.Form = "Memo" DocMemo.From = Session.CommonUserName DocMemo.SendTo= "Portal" --> Db mail Call DocMemo.Send( False )Bon courageLudo

[stef]

Tu peux trouver un debut de programmation d'un WorkFlow dans le bouquin suivant :Lotus Domino Designer 5 de Jean-Francois Rouquiédes chez Eyrolles - editeur T-SoftJe pense qu'il ya les grandes lignes du workflow mais bien sur le but n'est pas de recopier betement ce qu'ils ont fait...(au alentour de 250-300 frs)Ciao

[raf]

merci a vous deux

[Lémur]

voici un code que j'ai fait pour une relance auto de mail sur un workflow.Tu retrouve dedans l'expediteur , le destinataire, le sujet et le corps du mailSub MailRelanceMaj (doc As NotesDocument) Dim notesName As NotesName Dim mailDoc As NotesDocument Dim corps As NotesRichTextItem Dim srv As Variant On Error Goto GestionErreur ' Instanciation des objets Set db = gsession.CurrentDatabase Set mailDoc = New NotesDocument(db) srv=Evaluate("@Name([CN];@ServerName)") mailDoc.Form = "Memo" ' Emetteur Set notesName = New NotesName( doc.From(0) ) mailDoc.Principal = notesName.Common ' Destinataires 'on recupere l'auteur de la fiche. mailDoc.SendTo = doc.fAuteur 'Copie conforme au suppléant s'il y a lieu If doc.fSuppleant(0) <>"" Then mailDoc.CopyTo=doc.fSuppleant End If ' Sujet mailDoc.Subject = "CAPITALISATION : Relance fiche à mettre à jour" ' Corps du message Set corps = New NotesRichTextItem(mailDoc, "Body") Call corps.AppendText("La fiche portant sur "+doc.fTitre(0)+" est en retard."& Chr(13) & Chr(13)) Call corps.AppendText("Cliquez sur le lien suivant pour ouvrir directement la fiche : "& Chr(13)) Call corps.AppendText("http://"+srv(0)+"/"+db.FilePath+"/v_All/"+doc.UniversalID+"?openDocument") 'Envoi du courrier Call maildoc.Send (False) 'Suppression du courrier Call maildoc.Remove(True) Exit Sub

[oguruma]

ma réponse arrive un peu tard...j'ai de la doc là-dessus et dans ce forum j'ai laissé du code permettant de générer des messages.. pour cela j'ai développé une classe Mail...Si tu souhaite tout ceci... ?