Datei mit LotusNotes versenden
walter
ich habe über das Forum eine Makro erhalten und ein wenig verändert.
Es läuft seit 7 Monaten einwandfrei bis auf einem Kollegen der hat eine Fehlermeldung.
Wie gesagt nur bei dem einen Rechner.
Sub Datei_zu_Lotus()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim Workspace As Object
Dim uidoc As Object
Dim zeile As Long
Dim aws
aws = ActiveWorkbook.FullName
'aws = ActiveWorkbook.Name
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
If db.IsOpen = False Then db.OPENMAIL
Set doc = db.CreateDocument
With doc
.form = "Memo"
.SendTo = "Walter@T-online.de"
.Subject = "gewünschte Datei "
.Subject = "Datei von: " _
& Worksheets("Test").Cells(3, 6).Value _
& " " & Worksheets("Test").Cells(3, 8).Value
.Sign = "0"
.SaveMessageOnSend = True
' 'Der Anhang
Set AttachME = doc.CREATERICHTEXTITEM("Attachment")
' Set EmbedObj = AttachME.EmbedObject(1454, "", "DeinKompletterPfadUndDatei", "")
Set EmbedObj = AttachME.EmbedObject(1454, "", aws, "")
.PostedDate = Now()
End With
'Mail in LN anzeigen zum Einfügen
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
'die nächste Zeile ist makiert und makro bleibt da stehen.
Set uidoc = Workspace.EDITDOCUMENT(True, doc)
Set EmbedObj = Nothing
Set AttachME = Nothing
Set uidoc = Nothing
Set Workspace = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
MsgBox "Jetzt Lotus ""aktivieren"", " _
& Chr(13) & Chr(13) & "Datei wurde erfolgreich kopiert ! "
End Sub