ich verwende nachfolgenden Code, um eine Information beim Datei öffnen zu verschicken.
Das ganze wird in Lotus Notes abgebildet.
Private Sub CommandButton1_Click()
Dim session As Object
Dim DB As Object
Dim doc As Object
Dim strTo As Variant
Dim strPath As String
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim AttachME As Object 'The attachment richtextfile object
Dim strPfad As String
Dim datnam As String
Dim objSh As Object
'Filenamex = Environ("UserProfile") & "\Desktop\Test - " & Range("J12").Value & " - _
" & _
Range("J14").Value & ".xlsm"
Application.ScreenUpdating = False
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 = "dummy@dummy.com"
.Subject = "Datei wurde von " & Environ("UserName") & " geöffnet!"
.Body = Inhalt
.Sign = "0"
.DisplayAlerts = True
.SAVEMESSAGEONSEND = False
.DeleteAfterSend = True
.Send (False)
'Set AttachME = doc.CREATERICHTEXTITEM("Attachment")
'Set EmbedObj = AttachME.EmbedObject(1454, "", Filenamex, "") 'Hier dein Anhang
.PostedDate = Now()
.Send True
End With
'Set Workspace = CreateObject("Notes.NotesUIWorkspace")
'Set uidoc = Workspace.EDITDOCUMENT(True, doc)
' With uidoc
' .GOTOFIELD ("Body")
' Selection.Copy 'oder dein Bereich
' .Paste
' .Send
' .Close
'End With
Set EmbedObj = Nothing
Set AttachME = Nothing
'Set uidoc = Nothing
Set Workspace = Nothing
Set DB = Nothing
Set doc = Nothing
Set session = Nothing
End Sub
Vor einer Weile half mir hier im Forum jemand, weil Notes den Entwurf immer speichern wollte. Dieser Fehler wurde behoben.Nun kommt der Fehler "Eine gespeicherte Maske darf keine berechneten Teilmasken enthalten." Diese Fehlermeldung muss ich fünfmal bestätigen, bevor die Mail ansich aufmacht. Außerdem versendet Excel hier zwei Mails, eine mit 3kB (öffnet normal) und eine mit 175kB (mit Fehlermeldung).
Ich komm ums farecken nicht drauf, was es sein könnte.
Dank schon mal vorab für eure Hilfe.
Gruß
A.