Sauvegarder sous forme de brouillon un mail

[Nicolas]

Bonjour à tous,dans mon application je pilote par un lien OLE l'envoie automatique de mails via lotus notes, mon problème est que je voudrais permettre à l'utilisateur de sauvegarder ses mails sous forme de brouillon mais je n'ai trouvé aucune information sur la commande ou procèdure à suivre pour le réaliser.Merci d'avance à ceux qui pourront m'aider

[PhilippeG]

Bonjour,le bouton Enregistrer brouillon de ma boite mail met la valeur "SaveAsDraft" dans le champ tmpAction (le code est FIELD tmpAction := "SaveAsDraft";) puis sauvegarde le doc.A mon avis il suffit de faire la même chose dans ton code mais je n'ai pas testé.Tiens nous au courant

[Nicolas]

Merci pour le renseignement, mais avec mon lien OLE je n'arrive pas à créer l'objet FieldVoici l'initialisation de mes différents objets notes' session notesSess = allouer un objet OLE "Notes.Notessession"UserName = Sess>>UserNameMailDbName =Gauche(UserName, 1) + Droite(UserName, (Taille(UserName) - Position(UserName, " "))) + ".nsf"' Base notesMaildb = Sess>>GETDATABASE("", MailDbName)SI Maildb>>ISOPEN = True ALORS // Notes déjà ouvertSINON Maildb>>OPENMAILFIN' Le mailMailDoc = Maildb>>CreateDocumentQuelqu'un aurai-t-il une idée sur la façon de créer l'objet FIELD en OLE?Merci

[Nicolas]

Merci pour le renseignement, mais avec mon lien OLE je n'arrive pas à créer l'objet FieldVoici l'initialisation de mes différents objets notes' session notesSess = allouer un objet OLE "Notes.Notessession"UserName = Sess>>UserNameMailDbName =Gauche(UserName, 1) + Droite(UserName, (Taille(UserName) - Position(UserName, " "))) + ".nsf"' Base notesMaildb = Sess>>GETDATABASE("", MailDbName)SI Maildb>>ISOPEN = True ALORS // Notes déjà ouvertSINON Maildb>>OPENMAILFIN' Le mailMailDoc = Maildb>>CreateDocumentQuelqu'un aurai-t-il une idée sur la façon de créer l'objet FIELD en OLE?Merci

[Nicolas]

Merci pour le renseignement, mais avec mon lien OLE je n'arrive pas à créer l'objet FieldVoici l'initialisation de mes différents objets notes' session notesSess = allouer un objet OLE "Notes.Notessession"UserName = Sess>>UserNameMailDbName =Gauche(UserName, 1) + Droite(UserName, (Taille(UserName) - Position(UserName, " "))) + ".nsf"' Base notesMaildb = Sess>>GETDATABASE("", MailDbName)SI Maildb>>ISOPEN = True ALORS // Notes déjà ouvertSINON Maildb>>OPENMAILFIN' Le mailMailDoc = Maildb>>CreateDocumentQuelqu'un aurai-t-il une idée sur la façon de créer l'objet FIELD en OLE?Merci

[Nicolas]

Voici la solution que j'ai trouvé :MailDoc>>PutInFolder ("($Draft)")MailDoc>>Save (OLEVrai, OLEVrai)Le plus difficile a été de trouver le nom exacte de la vue Brouillon.