Code für Mailimport fehlerhaft

[Alexis]

Hallo Forum,

beim Importieren des Mail-Inhalts in gelingt es mir nicht Attachments, die im Body der Mail vorhanden sind mit zu importieren.

Für einen guten Tip wäre ich dankbar.

Hier der Code, wie er im Editmode einer Maske per Button aufgerufen wird. Body_1 ist das Feld, in das die Inhalte der Mail (Subject, From und Body) importiert werden sollen ist vom Typ RichText.

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim pickList As NotesDocumentCollection
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim docMail As NotesDocument
   Dim vMailDB As Variant
   Dim sFieldImport() As String
   Dim Mailcontent As notesitem
   Dim f As Integer
   
' # Die zu importierenden Felder
   Redim sFieldImport( 0 To 2)
   sFieldImport(0) = "Subject"
   sFieldImport(1) = "From"
   sFieldImport(2) = "Body"
   
' # ... die Parameter der Mail-Datenbank einlesen
   vMailDB = Evaluate("@MailDBName")
   Set db = session.CurrentDatabase
   
' # Auswahl der einzubindenden Mail aus PickList
   Set pickList = ws.PickListCollection( 1, True, vMailDB(0) , vMailDB(1) , "($Inbox)" , "Auswahl Mails" ,"Bitte die Mails wählen.")
   
' # ... wenn eine Mail selektiert wurden     
   If pickList.Count = 1 Then
      Set docMail = pickList.GetFirstDocument     
      Set uidoc = workspace.CurrentDocument 
      For f = 0 To Ubound( sFieldImport ) ' # ... die benötigten Felder einbinden...
         If docMail.HasItem( sFieldImport( f ) ) Then  ' # ... wenn vorhanden...
            Set Mailcontent = docmail.getfirstitem(sfieldImport(f))
            If f = 2 Then Call uidoc.fieldappendtext("Body_1",Mailcontent.Values) Else Call uidoc.fieldappendtext("Body_1",Mailcontent.Values(0))   
         End If   
      Next
      Messagebox "Mailimport erfolgreich abgeschlossen"
   Else
      Messagebox "Bitte nur eine Mail auswählen !"      
   End If
End Sub

[koehlerbv]

Du musst das wegen des RT items komplett im Backend machen und - zumindest für das Body-Iem - mit der Methode NotesDocument.CopyItem arbeiten. Im Frontend hast Du keine Methoden, die mit Rich Text umgehen können.

Alternativ könntest Du das komplette Dokument per CopyToDatabase in einem Rutsch übernehmen.

HTH,
Bernhard

[Axel]

Hi,

in diesem Thread ging es um das gleiche Problem. Schau dir mal Antwort#8 an.


Axel