Domino 9 und frühere Versionen > Entwicklung

Link in Mail versenden

<< < (2/2)

klaussal:
... db.server.... ;)

Gravedigger:
Hab ich schon probiert. Hier erhalte ich den richtigen Servernamen, d. h. CN=DEDOM01/OU=Server/O=BLUBBER.

Der Name "intranet" kommt bei uns nur durch den DNS-Server zustande.

Chriss:
Hallo,
folgender Agent versendet Mails mit darin enthaltenen Links auf die nach dem letzten lauf erstellten Dokumente.

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim maildoc As NotesDocument
   Dim rtxitem As NotesRichTextItem
   Dim rtxStyle As NotesRichTextStyle
   Dim i As Integer
   Dim Gesellschaften As String
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()
   Set maildoc = New NotesDocument( db )
   Set rtxitem = New NotesRichTextItem( mailDoc, "Body" )
   Set rtxStyle = session.CreateRichtextStyle()
   '+++ Mailtext mit Einleitungstext versehen
   Call rtxitem.AppendText("Sehr geehrte Damen und Herren,")
   Call rtxitem.AddNewLine( 2 )
   Call rtxitem.AppendText("anbei erhalten Sie die neuesten links auf unsere Dokumente.")
   Call rtxitem.AddNewLine( 2 )
   '+++ Doclinks der Dokumente in den Mailtext einfügen
   While Not(doc Is Nothing)
      Gesellschaften = ""
      Call rtxitem.AppendDocLink( doc, db.Title )
      rtxStyle.NotesColor = COLOR_BLUE
      rtxStyle.Bold = False
      Call rtxitem.AppendStyle(rtxStyle)
      Call rtxitem.AppendText("  >>>>     " )
      rtxStyle.NotesColor = COLOR_BLACK
      rtxStyle.Bold = True
      Call rtxitem.AppendStyle(rtxStyle)
      Call rtxitem.AppendText( doc.Titel( 0 ) )
      '+++ hier wird jetzt noch die Gesellschaft hinzu gefügt
      rtxStyle.Bold = False
      Call rtxitem.AppendStyle(rtxStyle)
      Forall Gesellschaft In doc.Kategorie
         If Gesellschaften = "" Then
            Gesellschaften = Gesellschaft
         Else
            Gesellschaften = Gesellschaften + "  /  " + Gesellschaft            
         End If
      End Forall
      Call rtxitem.AddTab ( 2 )
      Call rtxitem.AppendText ( Gesellschaften )
      Call rtxitem.AddNewLine( 2 )
      Call session.UpdateProcessedDoc( doc )
      Set doc = collection.GetNextDocument(doc)
      i = i + 1
   Wend
   If  i <> 0 Then
      '+++ Maildokument mit Absender,Empfänger und Thema versehen
      maildoc.SendTo = "Empfänger"
      'maildoc.recipients = "Empfänger"
      maildoc.Principal = db.Title
      maildoc.Form = "Memo"
      maildoc.From = db.Title
      maildoc.Subject = Str$(i) + " die neuesten Dokumente der DB "
      '+++ Mailtext mit Abschlußtext versehen
      rtxStyle.Bold = False
      Call rtxitem.AppendStyle(rtxStyle)
      Call rtxitem.AddNewLine( 2 )
      Call rtxitem.AppendText( "Für Rückfragen stehe ich gerne unter der Durchwahl ")
      rtxStyle.Bold = True
      Call rtxitem.AppendStyle(rtxStyle)
      Call rtxitem.AppendText( "-0815")
      rtxStyle.Bold = False
      Call rtxitem.AppendStyle(rtxStyle)
      Call rtxitem.AppendText( " zur Verfügung." )
      Call rtxitem.AddNewLine( 3 )
      Call rtxitem.AppendText( "Mit freundlichen Grüßen" )
      Call rtxitem.AddNewLine( 2 )
      Call rtxitem.AppendText( "Ernie und Bert" )
      Call rtxitem.AddNewLine( 1 )      
      Call rtxitem.AppendText( "Sesamstrasse" )
      Call rtxitem.AddNewLine( 3 )
      rtxStyle.Fontsize = 12
      rtxStyle.Bold = True
      rtxStyle.NotesColor = COLOR_RED
      Call rtxitem.AppendStyle(rtxStyle)
      Call rtxitem.AppendText( "Bitte keine Antworten an die Absender Adresse senden, sie ist nicht adressierbar!!" )
      Call maildoc.send(False)
   Else
      Exit Sub
   End If
End Sub

nachdem der Agent in einer DB erstellt wurde, sollte er mit der Server ID unterschrieben werden (Absender). Absender ist der Titel der Db, es steht aber immer dabei gesendet von. Wenn mit der Server ID unterschrieben wird, steht da DB.Title und gesendet von Servername

PS: Der Agent läuft bei uns einmal täglich morgens um 6 Uhr. Damit haben die Mitarbeiter wenn Sie ins Büro kommen immer die neuesten Infos ( vom Vortag)

schönen Tach noch
Chriss

koehlerbv:
Hier geht es aber offensichtlich um Links für Webmails ...
Wobei dies aber sinnigerweise nirgendwo explizit erwähnt wird, und GraveDigger hat den Thread wohl schon längst vergessen.

Navigation

[0] Themen-Index

[*] Vorherige Sete