Hallo zusammen

Ich habe mir Code zusammengesucht um eine Liste von Mails mit Attachments mit Lotus Notes zu versenden.

Das Problem ist jetzt, dass nach dem 2. Mail folgendes passiert:

"Laufzeitfehler 7000

Notes-Fehler: Datenbank enthält bereits ein Dokument mit dieser ID (UNID)"

Debugging stoppt auf dem Befehl  < MailDoc.Send 0, Recip > das Mail wird aber noch gesendet...?!?

Wenn ich das Makro ab der nächsten Zeile weiterlaufen lass, wiederholt sich das Gleiche, wieder ist das Mail aber gesendet...  Wie kann ich erreichen, dass er nicht mehr hält oder die Fehlermeldung ignoriert?

der Code:

'Mail per Notes versenden ---------------------------------------------------

Dim Subject As String, bodytext As String, saveit As Boolean
Dim ToAdressen(10) As String

'Achtung! Der Notes Client muss auf dem System installiert sein!

    Dim Maildb As Object 'Die Datenbank
    Dim UserName As String 'Der Benutzername
    Dim MailDbName As String 'Der Datenbankname
    Dim MailDoc As Object 'Das Maildokument selbst
    Dim AttachME As Object 'Der Anhang (Richtext)
    Dim Session As Object 'Die Notes Session
    Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
    Dim Recip As Variant
    Dim LinkME As Object
    Dim testlink As String
     
    Recip = Recipient
    Subject = Betreff
    bodytext = Text1 & vbLf & vbLf & Text2 & vbLf & vbLf & Text3
    'attachment = x
            
    'Die Session starten
    Set Session = CreateObject("Notes.NotesSession")

    'Den Benutzernamen auslesen für den Dateinamen der MailDB
    'Dies wird nicht überall benötigt auf manchen Systemen kann auch ein leerer String übergeben werden
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    
    'Datenbank öffnen
    Set Maildb = Session.GetDatabase("", MailDbName)
     If Maildb.IsOpen = True Then
     Else
         Maildb.OPENMAIL
     End If
     
    'Ein neues Maildokument erstellen
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recip
    MailDoc.Subject = Subject
    MailDoc.body = bodytext
    MailDoc.SaveMessageOnSend = True
       
    'Eingebettete Objekte und Anhänge hinzufügen
    If attachment <> "" Then
        Set AttachME = MailDoc.CreateRichTextItem("Attachment")
        Set EmbedObj = AttachME.EmbedObject(1454, "", attachment, "Attachment")
        'MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
    
    'Senden
    MailDoc.PostedDate = Now()
    'MsgBox Maildb
    MailDoc.Send 0, Recip
    'MsgBox "Message transmitted"

    'Aufräumen
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing