Hallo,
ich habe folgendes Problem und komme zu keiner Lösung.
Ich habe ein im uidoc geöffnetes Dokument.
Über den Button speichern soll das Dokument gespeichert werden und ein Mail versandt werden.
Call DokumentAbschliessen
Call uidoc.Print ()
Call Mailversand
Call uidoc.Close (True)
Das Call Mailversand soll einfach ein Mail verschiken.
Dim cr As String
Dim Empfaenger As String
Dim Mailtext As String
Dim KampagnenUNID As String
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
cr = Chr(10) & Chr(13)
KampagnenUNID = doc.Getitemvalue("KampagnenUNID") (0)
'Mail zusammenbauen mit Doc-Link
'Erstellen des Empfaengers
Empfaenger = "_Kampagnen_ABT500/xxx/xxx"
Mailtext = "Sehr geehrte Kollegin," + cr +_
"Sehr geehrter Kollege," + cr + cr + _
"ein neuer Auftrag liegt in der Datenbank Anforderungen vor. " + cr + cr + _
"Anbei der DocLink zum Aufrtag. "
'email versenden
Set email = New NotesDocument( db )
email.form = "Memo"
email.Subject = "Ein neuer Auftrag aus der Datenbank Anforderungen liegt vor!"
email.SendTo = Empfaenger
Set rtitem = New NotesRichTextItem( email, "Body" )
Call rtitem.AppendText (Mailtext)
Call rtitem.AppendDocLink( doc, "DocLink zur Anforderung" )
Call email.Send (True)
'doc speichern
Call uidoc.Refresh
Call doc.Save(True, False)
Beim email.Send kommt dann der Fehler.
Habe grad das Bäume und Waldproblem und finde den Fehler nicht.
Vielen Dank für Eure Hilfe
Chris
Es wird ein Dokument angelegt, wo der Empfänger (Wert aus Adressbuch) angelegt wird.
Das Script holt sich dann das Dok ... (siehe oben)
Set viewMail = db.getView("mailempfaenger_aenderungsmitteilung")
Set docMail = viewMail.getfirstDocument
If Not docMail Is Nothing Then
Else
Msgbox "Kein Empfänger vorhanden, Mail nicht verschickt !" , 12, "Abbruch"
Exit Sub
End If
docSend.SendTo = docMail.name