VBA code für senden Formular über Lotus Notes :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

VBA code für senden Formular über Lotus Notes

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

wuffi
Newbie
Newbie

Anmeldedatum: 12.01.2007
Beiträge: 27

Verfasst am: 24.04.2008, 15:12

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5014

Verfasst am: 24.04.2008, 15:23

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

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

wuffi
Newbie
Newbie

Anmeldedatum: 12.01.2007
Beiträge: 27

Verfasst am: 25.04.2008, 08:39

hallo,

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

Ich verzweifele!

wuffi
Newbie
Newbie

Anmeldedatum: 12.01.2007
Beiträge: 27

Verfasst am: 25.04.2008, 08:58

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!!!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Makro über Commandbutton starten	msdd79	Microsoft Excel Hilfe	2	16.07.2008, 14:44
	Suchen/Ersetzen über Makro	msdd79	Microsoft Excel Hilfe	3	15.07.2008, 15:28
	Ermittlung einer Altersstruktur über ...	jamesbest	Microsoft Excel Hilfe	4	11.07.2008, 11:36
	Einfache Email per selbsterstelltes F...	gelexpress	Microsoft Outlook Hilfe	0	01.07.2008, 14:24
	In Beziehung stehende Tabellen in ein...	kienzlw	Microsoft Access Hilfe	0	27.06.2008, 11:40

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de