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]
