Hallo alle zusammen. Ich habe hier eine Schaltfläche die ne mail verschicken soll, wenn man die Schaltfläche betätigt...allerdings habe ich eine Fehlermeldung "Object varialbe not set" an der Fett markierten Stelle. Ich habe doch doc definiert. Würde mich sehr freuen wenn Ihr mir sagen würdet was genau da falsch ist.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim names As NotesDatabase
Dim namesdoc As NotesDocument
Dim ProfilDoc As NotesDocument
Dim uid As String
Dim namespath As Variant
Dim email As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
If doc.fdNeuVerantwortlicher = "" Then
'email versenden
Set email = New NotesDocument(db)
email.Form = "Memo"
email.Subject = "Ein neuer Verbesserungsvorschlag ist eingetroffen"
Set rtitem = New NotesRichTextItem( email, "Body" )
Call rtitem.AppendText( "Umsetzung des Vorschlags wurde durch den LAS freigegeben. Link zum Dokument --> " )
Call rtitem.AppendDocLink(doc, "link to document" )
Call email.Send( False, doc.fdVerantwortlicher)
Msgbox("Verantwortlicher wird informiert")
Else
'email versenden
Set email = New NotesDocument(db)
email.Form = "Memo"
email.Subject = "Ein neuer Verbesserungsvorschlag ist eingetroffen"
Set rtitem = New NotesRichTextItem( email, "Body" )
Call rtitem.AppendText( "Umsetzung des Vorschlags wurde durch den LAS freigegeben. Link zum Dokument -->" )
Call rtitem.AppendDocLink(doc, "link to document" )
Call email.Send( False, doc.fdNeuVerantwortlicher)
Msgbox("Verantwortlicher wird informiert")
End If
doc.fdYesNo4 = "Yes"
doc.fdNameYes4= session.CommonUserName
doc.fdDatumYes4 = Now
'doc speichern
Call uidoc.Refresh
Call doc.Save(True, False)
End Sub
