Vorlage per Script modifizieren

[JohnSilver]

Hallo,

Script1 ließt die Mailadressen aus meiner Kundendatenbank aus (für die ausgewählten Dokumente) und schreibt diese in meiner Maildatenbank in ein neues Maildokument in das Feld "SendTo".

Das andere Script(Script2) öffnet per Button in meiner Kundendatenbank
eine Auswahl, in welcher man die entsprechende Mailvorlage aus der Maildatenbank wählt.

Was nicht funktioniert (Script3) ist, daß die Mailadresse(n) aus Script1 in
die ausgewählte Vorlage aus Script2 im Feld "SendTo" steht.

Besten Dank im voraus.

Gruß

Michael

[Axel_Janssen]

Leider hat die Hitzewelle dazu geführt, daß meine Kristallkugel immer noch recht beschlagen ist.
Was hälst du davon code zu posten? und Fehlermeldungen?  

[JohnSilver]

Hallo Axel,

sorry,

hier die Scripte:

[Lenham]

Ja, jetzt ist's klarer.
Das kann nicht funktionieren. Aber ein schlanker Code ...  

[JohnSilver]

Das Problem wäre gelöst, in der Mailvorlage heißt das Feld nicht
SendTo sondern EnterSendTo!

Jetzt habe ich allerdings ein neues Problem:

wenn ich im unteren Abschnitt folgendes einfüge:

mailnote.body = Anrede

werden meine Serienmails erstellt, jedoch wird der Text in der Vorlage
durch die Anrede überschrieben.
 
Bei dem folgenden Code wird der Inhalt der Vorlage nicht überschrieben,
jedoch erscheint bei der zweiten Mail zusätzlich die Anrede von der
ersten Mail, bei der dritten Mail die Anrede der ersten beiden(zusätzlich) usw.

Call body.AppendText(Anrede)


Ich bin für jede Hilfe sehr sehr dankbar!

--------------------------------------------------------------------------------------------------------


   vMailInfo = Evaluate( "@MailDbName" )
   Set newcollection = ws.Picklistcollection(PICKLIST_CUSTOM, False, vMailInfo(0), vMailInfo(1), "Vorlage", "Vorlage wählen", "Wählen Sie bitte eine Vorlage für das neue Memo.")
   Set mailnote = newcollection.getfirstdocument
   
   
   For y =0 To counter-1   
      
      
      mailnote.EnterSendTo = SendToNames(y)
      mailnote.Form = Memo
      Set body = mailnote.GetFirstItem("Body")
      Set rtnav = body.CreateNavigator
      Anrede = (SendToBriefanrede(y) + " " +  SendToNachname(y) + ",")
      rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH)  
      
      
      
      Call body.BeginInsert(rtnav)
      
      Call body.AppendText(Anrede)
      
      Call body.AddNewLine(1)
      Call body.AddNewLine(1)
      Call body.EndInsert
      
      mailnote.Logo = session.GetEnvironmentString("DefaultLogo",False)
      mailnote.Principal = profile.Owner(0)
      Call ws.EditDocument(True,mailnote)
      
      
   Next