Thema Datum  Von Nutzer Rating
Antwort
Rot mit Excel VBA Mails in Lotus Notes versenden
08.08.2018 16:17:27 Daniel
NotSolved
08.08.2018 16:26:16 Gast17284
NotSolved

Ansicht des Beitrags:
Von:
Daniel		 Datum:
08.08.2018 16:17:27		 Views:
1088		 Rating:
     
Antwort:
  Ja
Thema:
mit Excel VBA Mails in Lotus Notes versenden
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: sub LNMails() 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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot mit Excel VBA Mails in Lotus Notes versenden
08.08.2018 16:17:27 Daniel
NotSolved
08.08.2018 16:26:16 Gast17284
NotSolved