Office: VBA code für senden Formular über Lotus Notes

Hallo Leute, ich habe hier anscheinend ein unlösbares Problem.
Ich habe eine Excel-Datei die aus dem Formular heraus versendet werden kann. Und zwar über einen Button und dann ist man in der E-Mail. die Datei ist angehangen und meine E-Mail-Adresse als Absender eingetragen. Dies war über Outlook so. Jetzt haben wir das System auf Lotus Notes umgestellt und wir können das nicht mehr so versenden. Ich habe schon eine Code erhalten, aber das funktioniert nicht. Vorallem soll das ganz ja über diesen Button laufen.

Hier ist mal der alte Code:

Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogSendMail).Show "michaela.gocksch@siemens.com", "EBP-Antrag"
End Sub


hier ist der Code, den ich bekommen habe:

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


Wenn ich den code so reinkopiere funktionier der Button natürlich nicht.
Wenn ich das über den Button laufen lasse dann bekomme ich diese Fehlermeldung bei:

AWS = ActiveWorkbook.FullName
-> Varibale nicht definiert ...

ich steh total auf den schlauch! gibt es denn nicht auch nur so einen kurzen code für lotus wie für outlook?

viele liebe grüße
die ela

 

Hallo!

Ich arbeite nun weder mit Outlook noch mit Lotus, aber die Fehlermeldung kann ich vielleicht trotzdem erklären:

Du hast keine Variable AWS deklariert, daher meckert Excel verständlicherweise...
Ergänze oben in deinen "Dim"s noch diese Zeile und versuch's nochmal:

Dim AWS As String

 

hallo,

danke erstmal für deine Hilfe.
Jetzt kommt der Laufzeitfehler '7225': Anwendungs- oder objektdefinierter Fehler.

Ich verzweifele!

 

Stopp. alles zurück!!!!

Das Problem ist gelöst!!!
er konnte das nicht, weil im Explorer noch der Outlook hinterlegt ist.
unserer toller admin. hat das umgestellt und jetzt geht es auch mit dem code, den ich habe... juppiiee!!!