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
|