Domino 9 und frühere Versionen > Entwicklung

Serien-Mail per Script

<< < (2/2)

JohnSilver:
 ??? ???

Hallo,

das Problem mit der Anrede wäre gelöst, wobei jetzt ein neues Problem
vorliegt. In jedem neu erzeugten Mail wird der "text" aus der Vorlage
direkt hinter die Anrede gestellt. Wie kann ich den "text" aus der Vorlage
zwei Zeilen unter die Anrede stellen? Oder muß die Anrede(String) und der Text(String)wieder in RichText umgewandelt werden, damit AppendNewLine
einsetzbar ist?

Bin für jede Hilfe sehr dankbar.

Besten Dank im voraus.


Dim text As String  


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

koehlerbv:
Wie wäre es mit
Anrede = Anrede & chr$ (10) & chr$ (10) & Text ?

Statt "+" sollte man in LS sowieso "&" verwenden - aber das hat mit diesem Problem nix zu tun.

Bernhard

JohnSilver:
Hallo Bernhard,

vielen vielen Dank,  es funktioniert!!! :) :) :)

noch eine letzte Frage, wie kann ich formatierten Text aus der Vorlage
übernehemen, der Text wird immer unformatiert aus der Vorlage übernommen?

Michael

koehlerbv:
Gib der Methode AppendRTItem der NotesRichTextItem-Klasse eine Chance.
Du solltest aber bedenken, daß Mails beim Versand via Internet meist alle Formatierungen verlieren - ein reines Text-Mail kommt also immer am saubersten an.

HTH,
Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete