ich verschicke eine Verknüpfung mit VBA über Lotus Notes. Es funktioniert, aber die E-Mail hat eine größe von 1.5 MB, obwohl es nur eine Verknüpfung ist.
Hat jemand eine Idee woran es liegt?
Anbei der Code zum besseren Verständnis.
Vielen Dank für jegliche Idee und Lösung.
Gruß, Michael
Sub lotus(sEmpfang As String, sBetrifft As String, sAnhang As String, sText As String)
Dim session As Object, db As Object, doc As Object, rtobject As Object
Dim rtitem As Object, sKopie As String
Dim rtitemAnhang As Object
Dim AttachME As Object, DerAnhang As Object
Dim user As String, server As String
Dim mailfile As String, sBlindKopie As String
Dim vAn As Variant, vCopy As Variant
Dim vBlind As Variant
Dim wsh As Object
Dim wso As Object
On Error GoTo Fehler
vAn = Split(sEmpfang, ";") ' Empfänger Array
Set session = CreateObject("notes.notessession") ' Notes muss gestartet sein
user = session.UserName
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 = vAn ' an array
doc.Subject = sBetrifft ' die Betreffzeile
Set rtitem = doc.CreateRichTextItem("body")
Call rtitem.APPENDTEXT(sText)
doc.SaveMessageOnSend = True
doc.PostedDate = Now
If sAnhang "" Then
rtitem.AddNewLine (2)
Set Object = rtitem.EmbedObject(1452, "", sAnhang, "Attachment")
End If
Call doc.Send(False)
Aufraeumen:
On Error Resume Next
Set rtitem = Nothing
Set AttachME = Nothing
Set DerAnhang = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
Exit Sub
Fehler:
MsgBox ("Ein Fehler ist aufgetreten beim E-Mail Versand!")
Resume Aufraeumen
End Sub