Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err 91
zurück: Wenn zelle ändert mehrere Makros ausführen weiter: Nach Begriff filtern und als Suche verwenden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
dangerguitar
Neuling


Verfasst am:
02. März 2008, 16:32
Rufname: Chris
Wohnort: D´Dorf

Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err 91 - Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err 91

Nach oben
       Version: Office 2004 (Mac)

Hallo liebes VBA-Volk,

vielleicht könnt Ihr mir bei einem Problem helfen. Möchte gerne via Excel-VBA
eine Arbeitsmappe per LOTUS NOTES 6.5 versenden.

Der vorliegende CODE (aus dem NET) funktioniert bei mir auf dem Entwicklungscomputer (LAPTOP mit lokaler Installation von Notes) perfekt.
Auf dem PC (Tower-Gerät) auf dem die Anwendung laufen soll, bekomme ich
(trotz lokaler Installation auf CSmile immer eine Fehlermeldung:

error '91' object variable or with block variable not set.

Mir scheint es fast, daß das "öffentliche Objekt" Notes.Notessession einfach nicht gefunden wird? Warum auch immer....

Könnt Ihr mit helfen?
`
Danke&Gruss

Chris

P.S. Hier der genannte CODE:
Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object

Function SendMail()

On Error GoTo SendMailError
EMailSendTo = "Christian.Seis@de.ihg-logistics.com" ''
EMailCCTo = ""
EMailBCCTo = ""

Set objNotesSession = CreateObject("Notes.NotesSession")
Set objNotesMailFile = objNotesSession.GETDATABASE("", "")
objNotesMailFile.OPENMAIL
Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT


Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject)
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)
Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)
Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)
Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")
With objNotesField
.APPENDTEXT "AUTOMAIL-TEST"
.ADDNEWLINE 1
.APPENDTEXT "TEST-TEST"
.ADDNEWLINE 2
End With
objNotesField = objNotesField.EMBEDOBJECT(1454, "", "C:\Auftrag_Order.xls")
objNotesDocument.Send (0)
Set objNotesSession = Nothing
Set bjNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing
SendMail = True
Exit Function

SendMailError:
Msg = "Error # " & Str(Err.Number) & " wurde erstellt: " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext

SendMail = False
End Function
Horki
VBA - Vorsicht -Beim-Arbeiten


Verfasst am:
02. März 2008, 20:09
Rufname:
Wohnort: Großraum Bremen


AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2004 (Mac)

Hi dangerguitar,

probier mal ob das auf einem Mac läuft (Anhang)


VB- Passwort ist stress

mfg Horki



Mail_to_LN.zip
 Beschreibung:

Download
 Dateiname:  Mail_to_LN.zip
 Dateigröße:  53 KB
 Heruntergeladen:  104 mal

Gast



Verfasst am:
02. März 2008, 20:30
Rufname:

AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2004 (Mac)

Hallo Horki,

tausend Dank für die Antwort. Wobei ich gerade gesehen habe, daß
ich mich vertan habe mit der Angabe der Excel-Version...

Also es handelt sich um Excel 2003, aber auf einem PC. Habe keinen MAC!

Ich vermute der Code sollte trotzdem laufen, oder?

Danke&Gruss

Chris
Horki
VBA - Vorsicht -Beim-Arbeiten


Verfasst am:
02. März 2008, 20:48
Rufname:
Wohnort: Großraum Bremen

AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2003

Hi Chris ,

auf Office 2003 auf jedem fall

mfg Horki
Gast



Verfasst am:
02. März 2008, 20:57
Rufname:


AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2003

Hi Horki,

super, vielen Dank. Werde das sofort morgen mal ausprobieren.
Mal sehen was passieren wird....

Gruss

Chris
Gast



Verfasst am:
03. März 2008, 14:37
Rufname:

AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2003

Hallo Horki,

leider funktioniert der Code auch nicht. Bekomme die Meldung "Mail nicht versendet!". Vermute hier, daß hier ebenfalls der Fehler "91" aufkommt, nur irgendwo von Dir mit "on error" abgefangen wird und dann dementsprechend eine MSGBOX hochkommt?

Auch hier sieht es so aus, daß auf dem Entwicklungsgerät (Laptop) alles funktioniert!! Habe dann auch meinen alten Code (siehe oben) auf einem anderen Laptop aufprobiert. Hier klappt auch alles.

Das muss wohl mit der Installation zu tun haben??? Bin ratlos.

Gruss

Chris
mumpel
Fortgeschrittener


Verfasst am:
03. März 2008, 14:46
Rufname: René
Wohnort: Lindau (B)

AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2004 (Mac)

Schau Dir mal das an. Vielleicht funktioniert das ja besser. Werde mal den Code auch in diesem Forum setzen (Tipps & Tricks). Dann haben alle was davon. Ich hoffe doch, das es funktioniert, ohne dass es verschoben wird.
_________________
Ich lade generell keine Beispieldateien herunter, die bei Filehostern abgelegt sind.
Horki
VBA - Vorsicht -Beim-Arbeiten


Verfasst am:
03. März 2008, 17:38
Rufname:
Wohnort: Großraum Bremen

AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2004 (Mac)

Hi Chris,

hast Du mal auf dem Versucht über
Datei -> Senden an -> E-Mail als Anlage
zu senden ?

Findest Du auf dem PC - in der VBA Ansicht
Extras -> Verweise
LotusNotes wieder ?

Ist das ein PC auf Arbeit - mit bescheidenen Rechten ?

Ich habe auf Arbeit auch LN 6.5 spezialEdition des Arbeitgebers da läuft
mein Add-In.
Habe auch die vom mumpel ausprobiert leider ohne Erfolg

mfg Horki
Gast



Verfasst am:
04. März 2008, 17:50
Rufname:


AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err - AW: Arbeitsblatt in Lotus Notes 6.5 versenden (VBA) und Err

Nach oben
       Version: Office 2003

Hallo zusammen,

die Antwort ist gefunden und war einfacher als ich eigentlich dachte.
Im Gegensatz zum Entwicklungscomputer von mir, hatte der Test-
Computer eine alte Version von Kaspersky Antivir installiert und dort
gibt es mehrer Optionen, die VBA-Makros sperren können. Die Sperrungen
für die einzelnen VBA-Punkte mussten nur aufgehoben werden (3 x Active_X-Elemente erlauben). Und schon läuft alles.

Trotzdem Danke für Eure Hilfe.

Keep on rockin...

Chris
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum 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 nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Hyperlink auf Arbeitsblatt (Variabel) 6 HenningH 2427 08. Dez 2009, 12:52
Gast Hyperlink auf Arbeitsblatt (Variabel)
Keine neuen Beiträge Excel Formeln: Häckchen auf einem anderen Arbeitsblatt automatisch 2 eisbeisser 798 07. Okt 2009, 11:41
eisbeisser Häckchen auf einem anderen Arbeitsblatt automatisch
Keine neuen Beiträge Excel Formeln: Excel Daten aus Tabelle in anderes Arbeitsblatt filtern 2 tansch 4184 23. Sep 2009, 09:27
Gast Excel Daten aus Tabelle in anderes Arbeitsblatt filtern
Keine neuen Beiträge Excel Formeln: Formel im gleichen Arbeitsblatt kopieren ohne Zellenänderung 9 Augusto 1621 19. Aug 2009, 15:13
ConexusOne Formel im gleichen Arbeitsblatt kopieren ohne Zellenänderung
Keine neuen Beiträge Excel Formeln: Verketten + Formel mit Datei/Arbeitsblatt 3 bossaboom 389 06. Aug 2009, 12:31
CowardH Verketten + Formel mit Datei/Arbeitsblatt
Keine neuen Beiträge Excel Formeln: Arbeitsblatt mit Makro kopieren 2 Dieter01 901 12. Jun 2009, 22:15
Dieter01 Arbeitsblatt mit Makro kopieren
Keine neuen Beiträge Excel Formeln: aus 1,5 (als 1,5 Stunden) 1:30 umrechnen 1 borussiaman 1828 05. Mai 2009, 15:14
c0bRa aus 1,5 (als 1,5 Stunden) 1:30 umrechnen
Keine neuen Beiträge Excel Formeln: Werte einer Tabelle in ein anderes Arbeitsblatt übernehmen. 1 Gast 86150 1103 18. März 2009, 20:59
shift-del Werte einer Tabelle in ein anderes Arbeitsblatt übernehmen.
Keine neuen Beiträge Excel Formeln: spalten in anderem arbeitsblatt auswählen 1 ellen73 180 10. Feb 2009, 00:04
ellen73 spalten in anderem arbeitsblatt auswählen
Keine neuen Beiträge Excel Formeln: In einem Arbeitsblatt die Vorlage für die anderen? 3 Gast 1406 08. Jan 2009, 08:58
neopa In einem Arbeitsblatt die Vorlage für die anderen?
Keine neuen Beiträge Excel Formeln: Kopieren Arbeitsblatt: alter Mappe-/ Blatt-Bezug 3 Fritz28 4980 12. Sep 2008, 16:18
Gast Kopieren Arbeitsblatt: alter Mappe-/ Blatt-Bezug
Keine neuen Beiträge Excel Formeln: Glätten aber das ganze Arbeitsblatt 1 Trier 1019 19. Aug 2008, 12:51
Gast Glätten aber das ganze Arbeitsblatt
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum