Office: Notes: Neu erstellte Arbeitsmappe versenden

Hallo Leute,

ich hab ein Problem. Ich versuche eine neu erstellte Arbeitsmappe zu versenden. Die Mail wird versendet und funktioniert, allerdings kann ich den Anhang nicht anfügen. Es kommt der Laufzeitfehler '424', Objekt erforderlich. Was hab ich falsch gemacht?
Hier der Code

Code:

:)

 

Hallo!

Versuchs aml mit dem Code:

Sub SendNotesMail()
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim e As String
Dim f As String
Dim EmbedObj As Object
Dim AttachME As Object
ActiveWorkbook.Save
AWS = ActiveWorkbook.FullName
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
'On Error Resume Next
Set MailDoc = Maildb.CREATEDOCUMENT

MailDoc.Form = "Memo"

Recipient = "meine.email@adresse.ch"

MailDoc.sendto = Recipient
MailDoc.CopyTo = ""
MailDoc.Subject = "Mail aus Excel"
MailDoc.SAVEMESSAGEONSEND = True
'Pfad zur zu versendenden Datei
Set AttachME = MailDoc.CREATERICHTEXTITEM(ActiveWorkbook.Path & AWS)
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", ActiveWorkbook.Path & AWS)
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
MsgBox "Mail versandt!"
End Sub

Gruß, Mumpel

 

Hallo, danke für die schnelle Antwort. Leider gehts nicht.

Als erstes kommt die Meldung ganz am Anfang

Code:

Projekt oder Bibliothek nicht gefunden

Wenn ich dann AWS als Workbook festlege dann kommt dieser Fehler

Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.

 

Benutzt Du die Anweisung Option Explicit? Wenn ja, dann entferne die Anweisung, da die manchmal stört anstatt zu helfen. Bei mir funktioniert es.

 

außerdem hab ich grad gesehen dass beim kompilieren in der Zeile
Code:

die Meldung : Objekt unterstützt diese Eigenschaft oder Methode nicht

Bin mal gespannt :-)

Aber danke für eure Mühe!

 

Sorry, ich benütze die Option Explizit nicht :-(

 

Ersetze mal die beiden Zeilen durch diese beiden:

Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", AWS)

 

ich glaub das ist der richtige Weg. Allerdings hab ich aktuell folgendermaßen definiert damit der Debugger durchgeht....

Code:

ich denke deswegen kommt unten dann die Fehlermeldung "Typen unverträglich" Wie kann ich oben AWS richtig deklarieren?

 

sorry, hab vergessen zu sagen das ich "ActiveWorkbook.FullName" durch AktiveWorkbook ersetzt hab, das ist glaub wichtig

 

Du darfst AWS nicht als SET festlegen. So wie ich es vorgegeben habe, ist es schon richtig. Funktioniert bei mir doch auch fehlerfrei. Die Fehlermeldung kommt bei mir nur, wenn ich die Anweisung Option Explicit in der ersten Zeile setze. Bist Du sicher, das die Anweisung nicht vorhanden ist? Vielleicht weis ja ein anderer den Grund, weshalb es bei Dir nicht geht.

 

Es muss unbedingt ActiveWorkbook.FullName sein. Bei ActiveWorkbook wird die Arbeitsmappe nicht angehängt.

 

Hab AWS als String definiert. Jetzt gehts!!! Vielen, vielen Dank!