Beiträge von Volker S.

Da ich nun doch zu einem Erfolg gekommen bin, möchte ich es auch hier gerne mitteilen.
Nach diesem Post ist dann aber wirklich Schluss.
Nach einem Anruf bei unserem Servicepartner, riet mir dieser u.a., in den Einstellungen des Notesbesitzers, das bevorzugte Format auf MIME zu setzen.
Tja, und was soll ich sagen?
Es funktioniert perfekt.
Sämtliche eingebettet Bilder werden extrahiert und als separate Files angehängt, die nun über die o.g. Routine ausgelesen werden können.
Also nix mehr mit DXL-Exporter und parsen.

Euch allen einen schönen und unfallfreien Himmelfahrts-/Vatertag.

Soo,
nachdem ich mir die XML-Datei vom DXL-Exporter einmal angeschaut habe, bin ich zu dem Entschluss gekommen, es zu lassen wie es ist und das Thema abzuschließen.
Allen beteiligten vielen Dank für Ihre Hilfe.

Hmm..
..leider ist die Funktion .ConvertToMime in Visual Studio für das NotesDocument nicht verfügbar.
Hat evtl. jemand eine Idee? Ansonsten müsste ich wahrscheinlich doch über den DXL-Export gehen.

Zitat von Volker S.

Das sind i.d.R. solche Mails, die per Notes-Client versendet werden (der Else-Fall)

Ich Depp , vergiss es, da bin ich auf dem Holzweg, Notes erzeugt ja Notes-RTF-Mails.

Hallo Torsten,
ich war jetzt doch nochmals drüber und konnte wenigstens einen Teilerfolg erzielen.

With nm
    mime = n_Document.GetMIMEEntity
    If Not mime Is Nothing Then
        mime.DecodeContent()
        .Body = mime.ContentAsText
    Else
        .Body = "<div style='font-family: Calibri, Tahoma, Arial; font-size: 12px;'>" & HttpUtility.HtmlEncode(n_Document.GetItemValue("Body")(0).ToString).Replace(ControlChars.NewLine, "<br />") & "</div>"
    End If
    .Subject = n_Document.GetItemValue("Subject")(0).ToString
    .From = n_Document.GetItemValue("From")(0).ToString
End With

Was mich nur wundert, ist, dass das MIME-Object bei einigen Mails leer (nothing) ist.
Das sind i.d.R. solche Mails, die per Notes-Client versendet werden (der Else-Fall).
Die per Visual-Basic Script, über System.Net.Mail, versendeten Mails lassen sich ganz einfach über .DecodeContent-Eigenschaft dekodieren und werden ganz sauber dargestellt.

Zumindest kann ich bei den Mails von den Notes-Clients wenigstens die Zeilenumbrüche weitergeben. Das mach diese um vieles einfacher lesbar.

Möglicherweise könntest du mir noch einen Tipp geben, wie ich an den MIME-Tree herankomme.
Ich würde mich da gerne schon noch etwas durchfizzeln.
Eingentlich müssten dann ja auch eingebettet Bilder in einem Browsersteuerelement mit angezeigt werden, dann könnte ich mir das Extrahieren per DXL-Export sparen.

Der Designer liegt schon irgendwo auf der Disk herum. Ich glaube, mich zu erinnern, dass ich diesen schon mal gestartet habe.

Zitat von Tode

Vom MimeEntity kommt genau dann Plain Text, wenn man die Methode verwendet, um Plain- Text auszulesen (.ContentAsText). Um HTML zu bekommen, muss man das MimeEntity parsen, alle Mime- Childs durchlaufen (das ist ein Tree), den "Content-type" der Mime- Childs auslesen, bei text/html reagieren, html Code extrahieren, ggf. weitere Mime- Entities die Embedded Images enthalten da reinrechnen, ...

Es könnte so einfach sein, wenn es die Methode .ContentAsHTML geben würde...

Ob ich mir das antue, da es keine andere Möglichkeit gibt, weiß ich ehrlich gesagt nicht. Da muss ich erst mal in mich gehen.

Ich danke die aber für die Erleuchtung.

Hallo Torsten,
danke für deine Hilfe.
Eines verstehe ich jetzt aber nicht. Wenn vom NotesMimeEntity-Objekt auch nur Plain-Text kommt, dann kann ich doch gleich auf die GetFormattedText-Methode zurückgreifen. Oder ist Plain-Text <> Plain-Text? Wo ist da der Unterschied?

Ganz ruhig...
Ich denke, du hast mich falsch verstanden.
Ich mach doch nix im Designer (was ich auch nicht vorhabe), sondern per VB.NET mit VisualStudio.
Hintergrund:
Ich habe einen Dienst geschrieben, der auf eine NotesDB zugreift. Daraus holt er sich die Mails im Posteingang ab, um diverse Daten (Absender, CC, Betreff, Mailtext) in ein selbst entwickeltes Ticketsystem zu überführen. Diese Daten liegen in einer Tabelle am MS-SQL-Server.
Sollte im Betreff ein Ticket-Tag vorkommen, dann wird die Mail u.a. gleich einem Ticket zugeordnet.

Du siehst, dass ich also nicht ganz ein blutiger Anfänger bin, tu mir aber mit der Notesschnittstelle besonders schwer. Warum? Kein Ahnung. Vielleicht liegts daran, dass ich doch schon etwas in die Jahre gekommen bin und mit der Notesschnittstelle noch nicht zu lange zu tun habe oder ich Notes einfach nicht mag.

Über eine Notes-Designer-Schulung hab ich auch schon mal nachgedacht. Ich denke, die würde auch genehmigt werden.

Danke für deine Hilfe.

Ehrlich gesagt, ist Notes ist für mich eh ein Buch mit sieben Siegeln, aber wir benutzen es halt und darum versuch ich irgendwie damit zurecht zu kommen.
Ich bin die ganze Zeit schon beim durchstöbern der Notes-Referenz, aber ich hab das Gefühl, ich dreh mich im Kreis.
Also wenn ich das richtig verstehe, dann muss ich mir erst im Designer irgend ein Dummy-Dokument zusammenbasteln, auf das ich dann später per Code zugreifen kann?
Ich blick da ehrlich gesagt, überhaupt nicht durch.
Ich dachte, es wird einfach ein neues Dokument erstellt, dem ich dann ein neues Item zuweise und dem den Body von der Ursprungsmail zuweise,
also irgendwie so in der Art:

...
   Dim nDoc as NotesDocument
   Dim nTempDoc as NotesDocument
   ...
   rtItem=nDoc.getFirstItem("Body")
   nTempDoc=MailDB.CreateDocument
   nTempDoc.CreateRichtextItem("Body")
   rtItem.CopyItemToDocument(nTempDoc,"Body")


   ...
   mime=nTempDoc.GetMIMEEntity
   xBody=mime.ContentAsText

Angelehnt an diesen Beispielen: Link 1 , Link 2

Hallo Torsten,
danke für die Aufklärung.

Wie "schiebt" man denn das RTItem von einem Dokument ins andere, bzw. wie erstelle ich eine Maske in einen NotesDocument?

Hallo taurec,
das Tabellenfeld ist ein ganz normales varchar(max)-Feld. Dem ist eigentlich wurscht was drin steht.
Auf dem Formular ist ein RTF-Steuerlement, welches die HTML-Formatierung entsprechend der Tags darstellt.
Ich dachte allerdings, dass die GetFormattedText-Methode die HTML-Formatierung des Bodys (also mit Tags und allem drum und dran) zurückgibt. Da habe ich mich dann wohl geirrt.
Muss ich das über einen MIME-Type realisieren?
Ich habe es daher folgendermaßen versucht:

360:        With nm
370:            xBody = n_Document.GetFirstItem("Body") 'das ist als NotesItem deklariert
380:            mime = xBody.GetMIMEEntity 'das ist als NotesMIMEEntity deklariert
390:            .Body = mime.ContentAsText
400:            .Subject = n_Document.GetItemValue("Subject")(0).ToString
410:            .From = n_Document.GetItemValue("From")(0).ToString
420:        End With

Jedoch ist mime immer nothing und die Funktion bricht daher in Zeile 390 ab.

Es wäre super, wenn du mir noch den einen oder anderen Tipp geben könntest.

Vielen Dank.

Hallo taurec,
vielen Dank für die Infos.

Das mit GetFormattedText hab ich versucht, jedoch ist der Text nach wie vor unformatiert.
Hast du vielleicht eine Idee, an was das liegen könnte?

Private Shared Function _GetMails(ByVal aMailAccount As MailAccount, ByVal MoveMails As Boolean) As NotesMailCollection
 
    ' Die Session starten
    Dim Session As New Domino.NotesSession
    Session.Initialize(aMailAccount.Password)
    ' Datenbank öffnen
    Dim MailDB As Domino.NotesDatabase
    Dim MailServer As String = Session.GetEnvironmentString("MailServer", True)
    ' Dim DatabaseFilename As String = Session.GetEnvironmentString("MailFile", True)
 
    MailDB = Session.GetDatabase(MailServer, aMailAccount.DatabaseFilename)
 
    If Not MailDB.IsOpen Then
        MailDB.Open()
    End If
 
    Dim result As New NotesMailCollection
    Dim rtITEM As NotesRichTextItem
 
    Dim n_View As Domino.NotesView
    Dim n_ViewNav As Domino.NotesViewNavigator
    Dim n_ViewEntry As Domino.NotesViewEntry
    Dim n_Document As Domino.NotesDocument
 
    n_View = MailDB.GetView("($Inbox)")
    n_ViewNav = n_View.CreateViewNav
    n_ViewEntry = n_ViewNav.GetFirstDocument
 
    ' For all mails
    Do While Not (n_ViewEntry Is Nothing)
 
        n_Document = n_ViewEntry.Document
        Dim oAttachment As Domino.NotesEmbeddedObject
 
        rtITEM = CType(n_Document.GetFirstItem("Body"), NotesRichTextItem)
        ' Add data to our object
        Dim nm As New NotesMail
 
        With nm
            '.Body = n_Document.GetItemValue("Body")(0).ToString
            .Body = rtITEM.GetFormattedText(True, 0) ' n_Document.GetItemValue("Body")(0).ToString
            .Subject = n_Document.GetItemValue("Subject")(0).ToString
            .From = n_Document.GetItemValue("From")(0).ToString
        End With
 
        If n_Document.HasEmbedded Then
            Dim fileNames As Object() = CType(Session.Evaluate("@AttachmentNames", n_Document), Object())
            For Each fileName As String In fileNames
                oAttachment = n_Document.GetAttachment(fileName)
                nm.AttachmentFilenames.Add(oAttachment)
            Next
        End If
 
        ' Add object to our list
        result.Add(nm)
 
        ' Remove from list
        If MoveMails Then
            n_Document.PutInFolder("erledigt")
            n_Document.RemoveFromFolder("($Inbox)")
        End If
 
        ' Next Mail
        n_ViewEntry = n_ViewNav.GetNextDocument(n_ViewEntry)
    Loop
 
    Return result
 
End Function

Mit den eingebetteten Bildern per DXL-Export muss ich, glaube ich, passen.
Das sieht mir wohl zu kompliziert aus.

Hallo,
mit nachfolgenden Script werden Mails aus einer NotesDB in eine SQL-Tabelle kopiert.
Leider geht dabei die Formatierung des Bodys flöten.

Weiß evtl. jemand Rat, wie die Formatierung beibehalten werden kann?

Außerdem wäre es schön, wenn eingebettete Bilder (keine Anhänge), extrahiert werden könnten, um diese im Filesystem abspeichern zu können.
Möglicherweise könnte mir auch hier einer helfen.

Vielen Dank und ein schönes Wochenende.

Friend Sub MailEmpfangen()
 
10:     Dim acc As New MailAccount
20:     Dim strSubject As String
30:     Dim intFirst As Int16
40:     Dim intLast As Int16
50:     Dim varTicketNr As VariantType
60:     Dim strFiles As String = vbNullString
70:     Dim strFilename As String = vbNullString
80:     Dim strDirectory As String = vbNullString
90:     Dim strFullFileName As String = vbNullString
100:    Dim blAtt As Boolean
110:    Dim blTID As Boolean
120:    Dim strTicket As String = vbNullString
130:    Dim strFROM As String = vbNullString
140:    Dim strCC As String = vbNullString
 
150:    Start.StatusText.Text = "Postfach wird gelesen..."
 
160:    Try
170:        With acc
180:            .Host = "HostIP"
190:            .DatabaseFilename = "mailG\itsupport.nsf"
200:            If CBool(CType(Start.TableLayoutPanel1.Controls("txtOption1_1"), TextBox).Text) = True Then
210:                .Password = "xxxxxx"
220:            Else
230:                .Password = ""
240:            End If
250:        End With
 
            'Alle Mails auflisten
260:        Dim lstMails As NotesMailCollection = NotesTools.GetMails(acc, True)
 
270:        For Each itm As NotesMail In lstMails
280:            strSubject = itm.Subject
290:            intFirst = CShort(InStr(strSubject, "#"))
300:            intLast = CShort(InStrRev(strSubject, "#"))
310:            strFROM = Replace(Replace(itm.From, "CN=", ""), "/O=CompanyName", "", , , CompareMethod.Text)
320:            strCC = Replace(Replace(itm.CC, "CN=", ""), "/O=CompanyName", "", , , CompareMethod.Text)
 
                'Anhänge auslesen
330:            For Each att As Domino.NotesEmbeddedObject In itm.AttachmentFilenames
340:                Start.StatusText.Text = "Attachments werden gelesen..."
350:                strFilename = att.Name.ToString
360:                strDirectory = "\\ServerIP\Daten\Programme\Support\Public\Ablage\MailIn"
370:                strFullFileName = strDirectory & "\" & Now.ToFileTime & "_" & strFilename
380:                strFiles = strFullFileName & "|" & strFiles
390:                att.ExtractFile(strFullFileName)
400:                blAtt = True
410:            Next
420:            If blAtt = True Then
430:                strFiles = Mid(strFiles, 1, Len(strFiles) - 1)
440:            Else
450:                strFiles = vbNullString
460:            End If
 
                'Entscheidung ob mit oder ohen Ticket-ID
470:            If intFirst > 0 And intLast > 0 And (intLast > intFirst) Then
480:                varTicketNr = CType(Mid(strSubject, intFirst + 1, intLast - intFirst - 1), VariantType)
490:                If IsNumeric(varTicketNr) Then
                        'mit Ticketnummer
500:                    blTID = True
510:                    Start.StatusText.Text = "Tabelle 'tbl_Ticket_Mail' wird geschrieben..."
520:                    Start.Tbl_TICKET_MAILTableAdapter1.Insert(varTicketNr, strSubject, strFROM, strCC, itm.Body, strFiles, True, Now(), True)
530:                    strTicket = "Ja"
540:                End If
550:            Else
                    'ohne Ticketnummer
560:                blTID = False
570:                varTicketNr = 0
580:                Start.StatusText.Text = "Tabelle 'tbl_Mail' wird geschrieben..."
590:                Start.Tbl_MAILTableAdapter1.Insert(varTicketNr, strSubject, strFROM, strCC, itm.Body, strFiles, True, Now())
600:                strTicket = "Nein"
610:            End If
 
620:            Start.ListBox1.Items.Insert(0, Now() & " Mail empfangen, von: " & strFROM & " - Ticket: " & strTicket & " Nr: " & varTicketNr.ToString & " - Betreff: " & strSubject & " - mit Anhang: " & blAtt)
630:            blAtt = False
640:            strFiles = vbNullString
650:        Next
 
660:    Catch ex As Exception
670:        SetText("FEHLER Zeile: " & Err.Erl.ToString & " - " & ex.Message & " - " & ex.Data.ToString)
 
680:    Finally
690:        Start.StatusText.Text = "Bereit..."
700:        acc = Nothing
710:    End Try
 
    End Sub

Ich danke dir und werde es mal damit versuchen.

Hallo liebe Community,
vorerst alles Gute im neuen Jahr.

Momentan extrahiere ich per Visual Basic Attachments aus Mails und speichere diese im Filesystem ab.
Zusätzlich möchte ich auch eingebettete Bilder extrahieren und diese ebenfalls abspeichern.

Gibt es dafür auch eine Lösung?

Danke!

Hallo,
ich habe die Gruppen in einem separaten Adressbuch bereitgestellt, auf der dann die Zugriffsrechte liegen, diese lokal repliziert und in den Vorgaben als zusätzliches Adressbuch eingetragen.
Dann erscheint es auch nur dort, wo es eingerichtet ist.
Das scheint mir jetzt die funktionierenste Alternative zu sein.

Vielen Dank an alle für die Unterstützung.
:danke:

Danke für den Tipp.

Ja, du hast recht, so oft wird es sicherlich nicht vorkommen.
Ich bin mir aber sicher, dass das so nicht akzeptiert wird.
Fände ich persönlich auch etwas umständlich.
Aber trotzdem nochmals danke für dein Mühe.

Ich sag es mal so.
Der Wunsch der Geschäftsleitung wirft solche Fragen nicht auf.

Wir hatten ja so einen Verteiler auch schon gehabt, eben auch für alle verfügbar.
Der wurde aber missbraucht, nur weil irgendwelche Leute zu faul oder zu ??? sind den entsprechenden Personenkreis, oder die richtige Person auszuwählen.
So etwas nervt dann.
Deshalb der Wunsch der GL auf eine Autorisierung.

Hallo Toralf,

Zitat von elektron

Für welchen Anwendungzweck braucht man Gruppen im N&A, die nicht für alle zu sehen sind ?

Damit die IT-Abteilung eine Mail an alle schreiben kann, wenn das Mailsystem ausgefallen ist.

[SCNR]

Nee, mal im Ernst, eigentlich eine ganz banale Sache.
Unsere GL möchte gerne einen Verteiler haben, in dem alle User enthalten sind, um bei einem Rundschreiben nicht jedes mal jeden einzelnen auswählen zu müssen. Das ist ja soweit nachvollziehbar.
Zusätzlich sollen aber auch noch Abteilungen wie Support und was weiß ich noch wer, ebenfalls Zugriff auf diesen Verteiler haben. Und nur eben dieser Personenkreis, damit nicht jeder User Mails an alle senden kann, was ja auch verständlich ist.
Die Pflege dieses Verteilers mal außen vor gelassen, bringt es also nix sich einen lokalen Verteiler zu setzen.

Zitat von elektron

Wenn ich hier lese, was dafür für Kopfstände gemacht werden, frage ich mich nach dem Sinn.

Da muss ich Andreas Recht geben. Die Lösung wird vom System angeboten und sollte eigentlich auch funktionieren.