Hallo Forum,
ich bin mal wieder ratlos:
in einem Response-Dokument im Editmode versende ich eine Mail mit einem Standardtext. Dabei erscheint dann das Standardfenster zum Versenden der Mail, dieses jedoch doppelt (siehe Bild)! Klicke ich 2 mal auf Send stürtzt LN ab. Wo liegt der Hase im Pfeffer?
Hier der relevante Code:
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim maildb As NotesDatabase
Dim maildoc As NotesDocument
Dim profil As NotesDocument
Dim parentdoc As NotesDocument
Dim thisdoc As NotesDocument
Dim doc As NotesDocument
Dim rtitem As Variant
Dim uiview As NotesUIView
Set uidoc = uiws.CurrentDocument
Set thisdoc = uidoc.Document
thisdoc.Form = "AI"
creator = thisdoc.GetFirstItem("Createdby" ).text
action = thisdoc.GetFirstItem("Action").text
If action = "" Then
Dim askme As Integer
askme = uiws.Prompt( PROMPT_OK, "Fault!", "You must enter an Action proir to sending the mail")
'Messagebox "You must enter an Action proir to sending the mail"
Exit Sub
Else
Call thisdoc.Save(True,False)
End If
' Mail to specialist #####################################################################
Set maildb = New NotesDatabase("","")
maildb.OpenMail
Set profil = maildb.GetProfileDocument("CalendarProfile")
Set maildoc = New NotesDocument(maildb)
maildoc.Form = "Memo"
maildoc.Logo = profil.DefaultLogo(0)
maildoc.Principal = profil.Owner(0)
maildoc.SendTo = thisdoc.AssignedTo(0)
maildoc.Subject = "An Action Item has been assigned to you from the Support Line Tool"
Set rtitem= maildoc.GetFirstItem( "Body" )
If rtitem Is Nothing Then
Set rtitem = New NotesRichTextItem( maildoc, "Body" )
End If
Set rtitem = maildoc.GetFirstItem( "Body" )
Call rtitem.AppendText( "This Action Item has been assigned to you from the Support Line Tool")
Call rtitem.AddNewLine( 2 )
……………………..
Call rtitem.AppendText( "Best regards")
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( Creator)
Call maildoc.Send(False)
‘ Mail to specialist ######################################################################
Call uiws.EditDocument(True, maildoc)
Set uidoc = uiws.CurrentDocument
Call uidoc.Save
Call uidoc.Close
Call thisdoc.Save(True,False)
End Sub