Domino 9 und frühere Versionen > ND6: Entwicklung

Formel in Skript umwandeln

<< < (2/5) > >>

judicious:
Soviel ich jetzt aus den Helpnotes lesen konnte sollte mein Script irgend wie so aussehen. Stimmt das ungefähr?

--- Code: --- Dim ses As New NotesSession
Dim ndbCurrentDB As NotesDatabase
Dim docMailDocument As NotesDocument
Dim rtBody As NotesRichTextItem
Dim nSendto As NotesName

Set ndbCurrentDB = ses.CurrentDatabase
Set docMailDocument = New NotesDocument( ndbCurrentDB )
Set rtBody = docMailDocument.CreateRichTextItem( "Body" )
Set nSendto = ses.CreateName(sSendto)

'Set Fields for the Mail
docMailDocument.SendTo = v_name
docMailDocument.Subject = "Your Email request"

'Set Body Field for the Mail
Call rtBody.AppendText( "Guten Tag" )
Call rtBody.AddNewLine( 2 )

Call rtBody.AppendText( sMailtext )
Call rtBody.AddNewLine( 1)
Call rtBody.AppendDocLink( docRequestdoc, "Zum Antrag gehen")
Call rtBody.AppendText( " - Link zum Dokument" )
Call rtBody.AddNewLine( 2)

Call rtBody.AppendText( "Mit freundlichen Grüssen" )
Call rtBody.AddNewLine( 2 )
Call rtBody.AppendText(sOriginator )

'Send the Mail
Call docMailDocument.Send( True )

--- Ende Code ---

Hmm funktioniert irgend wie nicht. Diese beiden Fehler kommen.

dirk_2909:
Hallo

So sollte aussehen!
DU musst nur noch um CopyTo etc. erweitern

Dirk

umi:
wo werden den diese bieden Variabeln gesetzt?


--- Code: ---Call rtBody.AppendDocLink( docRequestdoc, "Zum Antrag gehen")
docMailDocument.SendTo = v_name

--- Ende Code ---

judicious:
Da ich nicht skripten kann, kann es vorkommen das ich echt dumme Fehler mache, also bitte nicht hauen ;)

      Dim uiws As New notesuiworkspace
      Dim ses As New NotesSession
      Dim ndbCurrentDB As NotesDatabase
      Dim docMailDocument As NotesDocument
      Dim rtBody As NotesRichTextItem
      Dim nSendto As NotesName
      
      Dim v_name As String
      
      Set ndbCurrentDB = ses.CurrentDatabase
      Set docMailDocument = New NotesDocument( ndbCurrentDB )
      Set rtBody = docMailDocument.CreateRichTextItem( "Body" )
      Set nSendto = ses.CreateName(sSendto)
      
   'Set Fields for the Mail
      docMailDocument.SendTo = v_name
      docMailDocument.Subject = "Your Email request"
      
   'Set Body Field for the Mail
      Call rtBody.AppendText( "Guten Tag" )
      Call rtBody.AddNewLine( 2 )
      
      Call rtBody.AppendText( sMailtext )
      Call rtBody.AddNewLine( 1)
      Call rtBody.AppendDocLink( docRequestdoc, "Zum Antrag gehen")
      Call rtBody.AppendText( " - Link zum Dokument" )
      Call rtBody.AddNewLine( 2)
      
      Call rtBody.AppendText( "Mit freundlichen Grüssen" )
      Call rtBody.AddNewLine( 2 )
      Call rtBody.AppendText(sOriginator )
      
   'Send the Mail
      Call docMailDocument.Send( False )

umi:
Wir hauen doch nicht.... wir schiessen :-)
v_name ist immer noch leer
Set nSendto = ses.CreateName(sSendto) ist ein wenig komisch?
evtl. hilft dir folgendes

--- Code: ---dim v_username as string
dim berechtigte as string
dim blindCopyTo as string
....
v_username = source.fieldgettext("v_username")
berechtigte = source.fieldgettext("berechtigte")
blindCopyTo = source.fieldgettext("blindCopyto")
...
...

docMailDocument.SendTo = v_username
docMailDocument.copyto = berechtigte
docMaildocument.BlindCopyTo = blindcopyto
....
set  docRequestDoc = source.document
...

...

--- Ende Code ---
Ausserdem solltest du unter Options noch ein Option Declare einfügen. Damit entgehst Du eineigen der gröbsten Fehler....

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete