DominoArea.org [Archive]

Bonjour et merci avance.

Alors j'essaye d'envoyer en client lourd un email avec une pièce jointe
depuis un bouton dans un masque (en lotuscript)


exemple envoie email : la pièce jointe que je veux envoyé se trouve dans un texte riche et le nom du champ est E_attacher

Code : Tout sélectionner

Dim DocMail  As NotesDocument
      Set DocMail = New notesdocument(db)
      DocMail.Form = "Memo"
      DocMail.Subject = " Nouvelle Demande"
      DocMail.Principal = " Nouvelle Demande "
      Set rtitem = New NotesRichTextItem( DocMail, "Body" )
       ' j'ai essayer ceci mais sa ne marche pas pr les pieces jointe
      'Dim  rtitem2 As NotesRichTextItem
      'Set rtItem2 = doc.GetFirstItem("E_attacher")
      'If Not rtItem2 Is Nothing Then
      '   Call rtItem2.CopyItemToDocument(DocMail,"Body")
      'End If
      'Call rtitem.AppendRTItem(rtItem2)
      Call rtitem.AppendText("Bonjour, ")
      Call rtitem.AddNewLine( 2 )      
      Call rtitem.AppendText("Une Nouvelle demande")
      Call rtitem.AddNewLine( 2 )      
      Call rtitem.AppendText("Liens versLa Demande--> ")
      Call rtitem.AppendDocLink( doc,"")
      Call rtitem.AddNewLine( 2 )      
      Call rtitem.AppendText("Liens vers  La base  --> ")
      Call rtitem.AppendDocLink( db, db.Title )
      Call DocMail.Send(False,"jean pierre")

Deuxième problème qui est aussi dans les envoie e-mail est le problème de carnet adresse je m'explique :

Lorsque je crée une base et qu'il y a des envoies e-mail entre différentes personnes.

Si la personnes à qui on veut envoyé e-mail se trouve dans notre carnet adresse personnel alors lotus script plante et met une boite de dialogue stipulant de choisir entre les 2 personnes.
Généralement les utilisateurs ferme la boite de dialogue et donc envoie e-mail n'a pas lieu.

J'ai essayer de forcer envoie e-mail en mettant des adresses en dur cela ne change rien; Si quelqu'un à une solution.

[/code]

appendRTitem me parait pas mal, mais si ça ne marche pas, c'est peut-être parce que le doc (mail) n'a pas été enregistré.
essaye en détachant la PJ sur le disque pour l'attacher ensuite dans le mail (voir notesEmbeddedObject.ExtractFile et notesRichTextItem.EmbedObject)

Pour le pb de carnet d'adresse, il faut que ce soit le serveur qui envoie ton mail pour éviter ce souci.
Pour cela, soit tu appelles un agent sur le serveur, soit tu diffères l'envoi par un agent programmé, ce ne sont pas les choix qui manquent.

Ok merci a vous deux.

C'est vrai que quand j'envoie mon e-mail je ne sauvegarde pas le document d'où je pense l'erreur qui se passe.

Ok pour le carnet adresse autant le faire en différer à l'aide agent sa évitera d'avoir 10 mails à la suite