Laufzeitfehler 429?
02.04.2019 11:16:46
Jonas
ich bekomme bei unten stehendem Zeilencode leider eine Fehlermeldung.
Set session = CreateObject("Notes.NotesSession")
Fehler...
Laufzeitfehler 429
Objekterstellung mit ActiveX Komponente nicht möglich.
Unter Ausführen > Verweise habe ich LotNotesUI ActiveX Control module aktivert.
Ich hoffe, mir kann jemand weiterhelfen.
--------Gesamter Code------------------
Option Explicit
Public Sub MailVersand()
Dim sEmpfaenger As String
Dim sBetreff As String
Dim sInhalt As String
Dim sSaveName As String
sSaveName = "G:\EXCHANGE\Logistik\MI\Aktuell\Test.xlsx"
sEmpfaenger = "max.mustermann@outlook.com"
sBetreff = "Test"
sInhalt = "Hallo Team, " & vbCrLf & _
"hier die Mail mit Anhang. " & vbCrLf & _
"Viel Spaß beim Lesen."
KopieSpeichern sSaveName
LotusNotesMail sEmpfaenger, sSaveName, sBetreff, sInhalt
End Sub
Private Sub KopieSpeichern(Dateiname As String)
Dim aktWKB As Workbook
Dim newWKB As Workbook
Dim fromWKS As Worksheet
Dim toWKS As Worksheet
Set aktWKB = ActiveWorkbook
Set fromWKS = aktWKB.Worksheets("Verteiler") '
Private Sub LotusNotesMail(Empfaenger As String, Dateianhang As String, Betreff As String, _
Inhalt As String)
Dim Kopie_Empfänger As String, BlindKopie_Empfänger As String
Const EMBED_ATTACHMENT = 1454
Dim server As String, mailfile As String
Dim session As Object
Dim db As Object
Dim doc As Object
Dim rtitem As Object
Dim EmbeddedObject As Object
'Auslesen der Mail-DB
Set session = CreateObject("Notes.NotesSession")
server = session.GetEnvironmentString("MailServer", True)
mailfile = session.GetEnvironmentString("MailFile", True)
Set db = session.GETDATABASE(server, mailfile)
Set doc = db.CreateDocument()
doc.Form = "Memo"
doc.SendTo = Empfaenger ' Adressaten übergeben
doc.Subject = Betreff
doc.Body = Inhalt
Set rtitem = doc.CREATERICHTEXTITEM("Anhang")
Set EmbeddedObject = rtitem.EMBEDOBJECT(EMBED_ATTACHMENT, "", Dateianhang) 'Dateianhang mit _
Pfad und Dateiname überschreiben
doc.From = session.UserName
doc.SaveMessageOnSend = True
Call doc.Send(True, "")
Set doc = Nothing
Set db = Nothing
Set rtitem = Nothing
Set EmbeddedObject = Nothing
Set session = Nothing
End Sub