Hallo zusammen!
Ich bin ziemlich neu in der Notes Entwicklung, habe aber vorher jahrelang Java entwickelt.
Derzeit versuche ich einige Abläufe zu automatisieren.
Aktuell möchte ich gerne per Lotusscript eine Mail-In Datenbank erzeugen.
Ich konnte bisher nirgends ein "How-To" dazu finden, darum habe ich mich mal selbst auf die Suche begeben.
Mein erster Versuch sah schon ganz gut aus, aber die MailIn Datenbank konnte keine EMails empfangen (Code zum Schluß meines Posts).
Ein Vergleich mit einer manuell erzeugten MailInDB zeigte auch, dass einige Eigenschaften noch fehlten oder falsch von mir angegeben wurden.
Daher die Frage, ob es für die Erzeugung eines MailIn Dokumentes eventuell bestimmte Vorgehensweise zu beachten gibt oder ob mir jemand sagen kann, welche Eigenschaften ich noch angeben muss.
Vielen Dank im Voraus für eure Antworten!
Private Sub MailinCreateDocument(mailinId As String, internetaddress As String)
Dim notesServer as NotesName
Set notesServer = New NotesName("myServer/myOrg/DE")
Dim db As New NotesDatabase( "", "" )
Dim doc As NotesDocument
Call db.Open( notesServer.Common, "names.nsf" )
Set doc = db.CreateDocument
doc.Form = "Database"
doc.Type = "Database"
doc.FullName = mailinId + "/myOrg/DE"
doc.Description = "Postkorb " + mailinId
doc.MailFile = "mailin\" + mailinId + ".nsf"
doc.MailServer = notesServer.abbreviated
doc.MailDomain = "myOrg"
doc.internetaddress = internetaddress
doc.owner="PK_" + mailinId
doc.LocalAdmin="Administrators"
Call doc.Save( True, True )
End Sub
Mein erster Versuch sah schon ganz gut aus, aber die MailIn Datenbank konnte keine EMails empfangen (Code zum Schluß meines Posts).
Was heisst denn "konnte keine EMails empfangen"?
Passiert beim Mailversand an die DB einfach nichts? Keine Fehlermeldung o.ä.?
Ggf auch einen Blick in die log.nsf des/der beteiligten Server riskieren.
Und herzlich willkommen bei der wilden Notesprogrammierung. :)
Sorry für die unpräzise Angabe.
Ich erhalte einen Zustellungsfehlerbericht
Als Grund erhalte ich die Meldung
No route found to server myServer/myOrg from server myServer/myOrg. Check Server and Connection documents in the Domino Directory.
"Wilde Notesprogrammierung" <- Den find ich gut ;D
Kurzes Feedback von mir. mit den beiden zusätzlichen Eigenschaften klappt das jetzt, ich kann erfolgreich eine Mail an den Postkorb schicken und dort abholen.
Hier der Code (Zeile 12 angepasst, Zeile 20 dazu)
Private Sub MailinCreateDocument(mailinId As String, internetaddress As String)
Dim notesServer as NotesName
Set notesServer = New NotesName("myServer/myOrg/DE")
Dim db As New NotesDatabase( "", "" )
Dim doc As NotesDocument
Call db.Open( notesServer.Common, "names.nsf" )
Set doc = db.CreateDocument
doc.Form = "Database"
doc.Type = "Database"
doc.FullName = mailInNotesName.Canonical
doc.Description = "Postkorb " + mailinId
doc.MailFile = "mailin\" + mailinId + ".nsf"
doc.MailServer = notesServer.abbreviated
doc.MailDomain = "myOrg"
doc.internetaddress = internetaddress
doc.owner="PK_" + mailinId
doc.LocalAdmin="Administrators"
doc.MessageStorage = 1
Call doc.Save( True, True )
End Sub