Hallo, folgendes Problem bei dem ich nicht weiter weiß.
Ich speichere per Lotus SCript ein Mail direkt in der mail.box des Servers. Soweit alles kein Problem, das Mail kommt auch korrekt an, öffnet man dieses Mail im Notes Client (8.5x und 9.x versucht) wird es automatisch im EditMode geöffnet. Warum?
Hier mein script, sicher nicht perfekt aber für den Anfang sollte es reichen
Code
Sub eingangmail_aneinmelder (doc As NotesDocument)
On Error GoTo errhand
Dim s As New NotesSession
Dim db As NotesDatabase
Dim mailDB As New NotesDatabase( "", "" )
Dim mailDoc As NotesDocument
Dim mailUI As NotesUIDocument
Dim w As New NotesUIWorkspace
Dim rtitem As NotesRichTextItem
Set db = s.Getdatabase("Server", "mail.box", False)
Set maildoc = New NotesDocument(db)
mailDoc.Form="Memo"
mailDoc.From="noreply"
mailDoc.Principal="noreply"
mailDoc.SendTo = doc.mail(0)
maildoc.Recipients = doc.mail(0)
maildoc.DeliveryPriority = "High"
maildoc.deliveryReport = "O"
maildoc.subject="Auftrag"
Set rtItem= New NotesRichTextItem(mailDoc,"Body")
Call rtItem.AppendText("Sehr geehrte Damen und Herren!")
Call rtitem.AddNewLine( 2 )
Call rtItem.AppendText("blablablablablqablablablablablabl")
Call maildoc.Save(True, False, False)
Exit Sub
errhand:
Print "error # " & Str(Err) & " at line " & Erl & ": " & Error
Exit Sub
End Sub
Alles anzeigen