Call Doc.Send()

[Steph_]

si il est compliqué mon doc !


sinon
tout va bien, avec des valeurs de champs récupérées et quelques if il tourne nickel dans le workflow

par contre, autre petit souci
dans une autre base, j'ai un champ de type texte calculé multivalué avec 2 ou 3 noms, prenom nom séparés par une ,
je récupère le contenu avec un getitemvalue, mais au moment de l'envoi, j'ai le message "Impossible d'envoyer du courrier, car aucune correspondance n'a été trouvé dans les carnets d'adresses"

j'ai essayé avec fielgettext, ça ne marche pas non plus

on fait comment pour récupérer des noms et les faire considérer comme des noms à l'envoi ?

[nemrod93]

Re,
attaques en back-end sur la classe notesdocument
tu fais doc.sendTo = leNomDuChamp, Call doc.Save( False, True )

et tu appelles call doc.send(false)

[Steph_]

j'avais déjà essayé ça, mais ça veut pas

c'est juste le contenu du champ que je récupère qui ne fonctionne pas à l'envoi
le reste fonctionne bien

[Michael DELIQUE]

les nom données existent bien dans le names ?

[Steph_]

oui les noms existent
et avant je passais par un @mailSend qui utilisait ce champ et ça marchait très bien

[nemrod93]

Re
ça affiche quoi si tu boucles sur les données du champ avec un
for i = 0 to ubound(leChamp)
print leChamp(i)
next

[Steph_]

attend, je refais le script, à force de faire des modifs, il est hs

[Steph_]

Code : Tout sélectionner

Sub Click(Source As Button)
   Dim db As NotesDatabase
   Dim doc As NotesUIDocument
   Dim ws As New notesUIWorkspace
   Dim titre As String
   Dim SendTo As String
   Set session =New NotesSession
   Set db = session.CurrentDatabase
   Set doc = ws.currentdocument
   subject = doc.FieldGetText( "objet" )
   Set newDoc = New NotesDocument(db)
   Set rtitem = New NotesRichTextItem( newDoc, "body" )
   SendTo= doc.FieldGetText("SendToEmett")
   
   newDoc.form="memo"
   newDoc.Subject =objet
   newDoc.SendTo = envoiA
   newDoc.CopyTo=copieA
   newDoc.BlindCopyTo=copieCachéeA
   rtitem.AppendText(texte)
   
   Call rtitem.AppendDocLink ( doc.Document   , "Accès à la base")      'lien vers le doc
   newDoc.subject = "GDI" +" - " +objet
   
   Print sendTo
   
   Call newDoc.save(False, False)
   Call newDoc.Send(True,sendTo)  'envoi
End Sub

j'ai refais simple

j'ai toujours le message impossible d'envoyer le courrier à cause de pb de concordance dans les annuaires

et avec le print je vois bien les 4 noms prénoms s'afficher comme ça

nom prénom, nom prénom, nom prénom, nom prénom

mais le doc ne part pas

[Michael DELIQUE]

c'est quoi le séparateur ? ton pb doit venir de la

fait un msgbox de sento à la place d'un print

[Steph_]

ce sont des virgules

[nemrod93]

re,
essaies la boucle que je t'ai donné, si tu n'as qu'une seule msgbox, comme le dit Mickaël, c'est certainement un pb de séparateur

[Steph_]

elle marche pas la boucle

[nemrod93]

re

oups il faut faire

for i = 0 to ubound(doc.leChamp)
msgbox doc.leChamp(i)
next

[Steph_]

marche pas non plus

par contre

Code : Tout sélectionner

For i = 0 To Ubound(doc.document.sendTo)
      Msgbox doc.document.sendTo(i)
   Next


ça oui


alors j'ai une box avec rien

et une autre avec les 4 noms prénoms séparés par des , et un espace

[nemrod93]

re,
t'es en frontal dans ce cas je te conseille de préfixer ton document frontal (notesuidocument) en uidoc et de réserver doc pour le document dorsal (notesdocument)
je qui donne
set uidoc = notesuiworkspace.currentdocument
set doc = uidoc.document
c'est plus clair pour tout le monde

Pour ton résultat, tu devrais avoir 4 msgbox (une pour chaque élément), là tu à un vide (pas possible que le send fonctionne) et une chaine unique séparée par des virgules

Comment est renseigné "SendToEmett"? il est bien en "Autoriser valeurs multiples"? la gestion du séparateur est correcte?