Autor Thema: Mailversand per Script  (Gelesen 1663 mal)

Offline Wiesel

  • Aktives Mitglied
  • ***
  • Beiträge: 188
  • Geschlecht: Weiblich
Mailversand per Script
« am: 23.01.08 - 16:54:18 »
Hallo!

Ich bin etwas ratlos.

Ich habe per Script einen Mailversand in Schaltflächen eingebaut, wobei die Mail generiert und zum Beschreiben geöffnet wird.

In der ersten Schaltfläche steht dieses Script direkt drin und funktioniert auch einwandfrei.

In der zweiten Schaltfläche gibt es eine If-Anweisung und damit zwei Funktionsaufrufe innerhalb der Schaltfläche, womit dann das Mail versendet werden soll.
Führe ich nun die Schaltfläche aus, dann funktioniert eingentlich alles, ausser dass die dann aufgemachte Mail keinen Text enthält.
Schaue ich mir das mittels Debugger an, erscheint der Text so wie er soll.
?????

Hier mal der Mail-Teil:

Sub MailversandIndividual
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim db As NotesDatabase
   Dim rtitem As NotesRichTextItem
   Dim maildb As NotesDatabase
   Dim mailnote As NotesDocument
   Dim profile As NotesDocument     
   Dim SendToNames As String
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set maildb = New NotesDatabase("","")
   Dim Benutzer As New NotesName(session.UserName)
   
   SendToNames = uidoc.FieldGettext("txtAuftraggeber")
   
   If SendToNames = "" Then
      Messagebox "Im Dokument wurden keine weiteren Mitarbeiter angegeben. Das Mail wird an 'Niemanden' gesandt."
   Else
      maildb.OpenMail
      
      Set mailnote = New NotesDocument(maildb)
      Set profile = maildb.GetProfileDocument("CalendarProfile")
      
      mailnote.SendTo = SendToNames
      mailnote.Form = "Memo"
      mailnote.Logo = session.GetEnvironmentString("DefaultLogo",False)
      mailnote.Principal = profile.Owner(0)
      mailnote.Subject = "Info zur Anforderung einer IDV-Auswertung, Auftragsnummer " & uidoc.Fieldgettext("txtAuftragsnummer")
      
      Set rtitem = mailnote.CreateRichTextItem( "Body" )
      Call rtitem.AppendText( "Testdaten geprüft und Vorgang abgeschlossen" )
      Call rtitem.AddNewLine( 1 )
      Call rtitem.AddNewLine( 1 )
      Call rtitem.AppendText( "Öffnen Sie das nachfolgende Dokument---> " )
      Call rtitem.AppendDocLink( doc, db.Title )
      Call rtitem.AddNewLine( 1 )
      Call rtitem.AddNewLine( 1 )
      Call rtitem.AppendText( "Mit freundlichen Grüßen" )
      
      Call ws.EditDocument(True,mailnote)
   End If
   
End Sub

Vielen Dank!

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Mailversand per Script
« Antwort #1 am: 23.01.08 - 17:09:30 »
Du kannst kein RichTextItem anlegen und ohne zu speichern im Frontend öffnen.

Bernhard

Offline Klafu

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.944
  • Geschlecht: Männlich
  • Remember the Cookies!
Re: Mailversand per Script
« Antwort #2 am: 23.01.08 - 17:19:14 »
Hab deinen Code auch eben getestet.
Ich würd sagen, am Ende fehlt ein

Code
Call mailnote.Save(True,  True)
„Der einzige Mensch, der sich vernünftig benimmt, ist mein Schneider. Er nimmt jedesmal neu Maß, wenn er mich trifft, während alle anderen immer die alten Maßstäbe anlegen in der Meinung, sie paßten auch heute noch...“

Offline Wiesel

  • Aktives Mitglied
  • ***
  • Beiträge: 188
  • Geschlecht: Weiblich
Re: Mailversand per Script
« Antwort #3 am: 24.01.08 - 09:47:25 »
Vielen Dank für die Antworten!
Hat prima geklappt.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz