@Peter,
Ok.
Ich hatte nur einen Teil des Codes mal so schnell kopiert.
So lange es ohne die weiteren |- und &-Zeichen laeuft, gibt es keine Probleme.
Also
Private Const VCALENDAR = |Begin:
....
End
|
Andreas
Also
So etwas
Private Const TEST = |Dies ist ein Test & Startdatum & es geht trotzdem & noch|
schon.
Aber nicht
Private Const TEST = |Dies ist ein Test | & Startdatum & | es geht trotzdem noch|
Andreas
Am einfachsten ist das, wenn man aus der persönlichen Maildatenbank eine Einladung versendet, die die gleichen Inhalte hat, wie später die Mail aus der externen Datenbank haben soll. Diese Mail schickt man nicht an eine Outlook-Adresse, sondern an Notes. In der eingegangenen Mail kann man dann anhand der Felderliste erkennen, welche Informationen in welcher Art mitgesendet wurden. Das baut man dann in der externen Datenbank nach. Hier das Gerüst dazu:
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument (db)
doc.Form = " ..."
doc.Subject = " ... "
doc.SendTo = " ... "
usw.
Call doc.Send (False)
'Falls das Dokument gespeichert werden soll
Call doc.Save (True, True)
Der korrekte Weg wäre das Erzeugen eines "Meeting"- Typ- Appointments direkt in der Datenbank des Benutzers + das Erzeugen eines Notice- Dokumentes als Antwort- Dokument zum Meeting, das dann per "Send" versendet wird. Welche Items die verschiedenen Dokumententypen brauchen, steht haarklein im Dokument "IBM Lotus Notes and Domino Calendaring & Scheduling Schema" (https://www-10.lotus.com/ldd/ddwiki.nsf/dx/cs_schema_toc) beschrieben. Damit ist es völlig egal, welches Mailsystem der Empfänger benutzt, weil sich der Server automatisch um die Konvertierung kümmert.
Leider fehlen hier so viele Grundvoraussetzungen und es werden so viele grundlegende Fehler gemacht, dass ich skeptisch bin, dass der Thread- Ersteller in der Lage ist, aus der schematischen Dokumentation ein funktionierendes Beispiel zu bauen... Hier der Ansatz wie man anfangen könnte: Dim ses As New NotesSession
Dim dbMail As NotesDatabase
Dim docAppt As NotesDocument
Dim docNotice As NotesDocument
Set dbMail = New NotesDatabase( "", "" )
Call dbMail.OpenMail()
Set docAppt = New NotesDocument( dbMail )
Call docAppt.Replaceitemvalue("Form", "Appointment" )
'- hier alle Felder aus Schema für ein Meeting füllen
'...
Call docAppt.Save( True, True, True )
Set docNotice = New NotesDocument( dbMail )
Call docNotice.Makeresponse( docAppt )
Call docNotice.Replaceitemvalue( "Form", "Notice")
'- hier alle Felder aus Schema für eine Einladung füllen (StartDate, StartDateTime, EndDate, EndDateTime, CalendarDate, CalendarDateTime, Subject, Owner, ... )
'...
Call docNotice.Send(False)