Versenden von einzelnen Blättern in einer Datei :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Versenden von einzelnen Blättern in einer Datei

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

Autor

Nachricht

Zwilli
Newbie
Newbie

Anmeldedatum: 22.05.2008
Beiträge: 16

Verfasst am: 27.05.2008, 08:48

Hallo Zusammen

Ich habe wiedermal eine Frage an euch

ich möchte aus einer Arbeitsmappe nur ein Blatt per e-mail versenden
gibt es auch eine Möglichkeit ohne das Blatt in einer extra Datei zu speichern

Danke Zwilli

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 27.05.2008, 09:00

Hallo!

Schau mal hier.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Zwilli
Newbie
Newbie

Anmeldedatum: 22.05.2008
Beiträge: 16

Verfasst am: 27.05.2008, 13:46

Danke für die Hilfe bin dabei aber überfordert.
ich benutze als Mail-System Lotus Notes. ich habe zwar gelesen das es prinzipiel die Möglichkeit gibt, aber wie ???????

vielleicht kann mir noch einer helfen.

Danke schon mal im voraus

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 27.05.2008, 14:06

Hallo!

Hier wird der eMail-Versand mit Lotus Notes gezeigt.

Zwilli
Newbie
Newbie

Anmeldedatum: 22.05.2008
Beiträge: 16

Verfasst am: 03.06.2008, 13:50

Hallo erst mal Danke für die Hilfe, auch wenn es etwas gedauert hat.
ich habe in der zwischenzeit etwas herumgedoktort konnte aber bisher zu keinem Abschluß kommen. folgendes Problem ist aufgedaucht:
die Zeile bei der "set doc =db.createdocument()" bekomme ich eine Fehlermeldung das dieses Modul nicht mit LotusNotes Vers.6.5 funktioniert
ich habe es auch mit createItem(0) versucht gleicher Fehler.
vielleicht kennt jemand eine Lösung für diese Version 6.5 von LotusNotes

im voraus schonmal Danke

Zwilli
Newbie
Newbie

Anmeldedatum: 22.05.2008
Beiträge: 16

Verfasst am: 04.06.2008, 08:16

hallo zusammen
zur leichteren Verständlichkeit ich habe bis jetzt folgendes gemacht:

Sub Excel_Sheet_via_Lotus_senden()
Dim MyLotApp As Object, xls As Object, db As Object
Dim DerAnhang As Object
Dim SavePath As String, user As String, server As String, mailfile As String
Dim AWS As String, sBetrifft As String

sBetrifft = "Schnickschnack"
SavePath = "X:\Eigene Dateien" 'Speicherort für das Tabellenblatt (Sheet) als tmp.Datei'
ActiveSheet.Copy
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & "_" & Format(Now, "ddmmyyyy_hhmm") & ".xls" 'Mappenname wird an Variable übergeben'
With ActiveWorkbook
AWS = .FullName
.Close
End With
'Initilisierung von Lotus Notes'
Set MyLotApp = CreateObject("notes.notessession") '
user = MyLotApp.UserName
server = MyLotApp.GetEnvironmentString("servername", True) ' Servername eingeben'
mailfile = MyLotApp.GetEnvironmentString("mailfile.nsf", True) ' MailFile (.nfs) eingeben '
Set db = MyLotApp.GetDataBase(server, mailfile)
Set xls = db.createdocument()
xls.Form = "Schnickschnack"
xls.SendTo = "Empfänger" ' e-Mail Empfänger '
xls.Subject = sBetrifft 'Schnickschnack'
xls.SaveMessageOnSend = True
xls.PostedDate = Now
Set DerAnhang = xls.EmbedObject(1454, "", SavePath, "Attachment")
Call xls.Send
Kill AWS
MyLotApp.Quit
Set MyLotApp = Nothing
Set xls = Nothing
Set db = Nothing
Set DerAnhang = Nothing
End Sub

Zwilli
Newbie
Newbie

Anmeldedatum: 22.05.2008
Beiträge: 16

Verfasst am: 05.06.2008, 10:25

Hallo Zusammen
ich habe es geschafft
hier die Möglichkeit ein einzelnes Blatt aus einer Datei mit LotusNotes zu versenden
[ Das Makro]
Sub Excel_Sheet_via_LotusNotes_Senden()
Dim SavePath As String
Dim AWS As String

SavePath = "X:\Eigene Dateien" 'Speicherort für das Tabellenblatt (Sheet) als tmp.Datei'
ActiveSheet.Copy
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & "_" & Format(Now, "mmmmyyyy") & ".xls" 'Mappenname wird an Variable übergeben'
With ActiveWorkbook
AWS = .FullName
.Close
End With

MailSenden "e-mail adresse", "Thema oder Betreff", "Text", "CopyEmpfänger", "BlindCopyEmpfänger", "Datei"

Kill AWS

End Sub

[und hier die eingebundene Function]
Public Function MailSenden(strEmpfaenger As Variant, strBetreff As Variant, strText As Variant, strCC As Variant, strBCC As Variant, strFilename As String)

Dim objNotes As Object, objNotesdb As Object, objNotesMailDoc As Object
Dim SendItem, NCopyItem, BlindCopyToItem, i As Integer, rtitem
Dim msg As String

'Initilisierung von Lotus Notes'
Set objNotes = GetObject("", "notes.notessession")
Set objNotesdb = objNotes.GetDataBase("", "")
Call objNotesdb.OpenMail
Set objNotesMailDoc = objNotesdb.CreateDocument
objNotesMailDoc.Form = "Memo"
Call objNotesMailDoc.Save(True, False)
Set SendItem = objNotesMailDoc.AppendItemValue("SendTo", "")
Set NCopyItem = objNotesMailDoc.AppendItemValue("CopyTo", "")
Set BlindCopyToItem = objNotesMailDoc.AppendItemValue("BlindCopyTo", "")
objNotesMailDoc.SendTo = Split(strEmpfaenger, ",")
objNotesMailDoc.copyto = Split(strCC, ",")
objNotesMailDoc.blindcopyto = Split(strBCC, ",")
objNotesMailDoc.Subject = strBetreff
Set rtitem = objNotesMailDoc.CreateRichTextItem("Body")
objNotesMailDoc.Body = strText
rtitem.AddNewLine (1)
If strFilename <> "" Then
Call rtitem.EmbedObject(1454, "", strFilename)
End If
Call objNotesMailDoc.Save(True, False)
Call objNotesMailDoc.Send(False)
objNotesMailDoc.RemoveItem ("DeliveredDate")
Call objNotesMailDoc.Save(True, False)
msg = "Die Mail wurde erfolgreich versendet!"
'MsgBox msg, vbInformation, Notesmail versenden (" & strBetreff & ")"
Call objNotes.Close
'objNotes.Quit
Set objNotes = Nothing
End Function

ich hoffe ich kann damit auch anderen helfen
nochmals vielen Dank für meine Helfer

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
	Vista, rtfhtml.dll datei fehlt, outlo...	Peter Marchert	Microsoft Outlook Hilfe	5	30.11.2008, 19:43
	Probleme beim Druck von zwei A5 Seite...	bigi01	Microsoft Word Hilfe	0	30.11.2008, 10:53
	Datei nach dem Speichern verschwunden	schisa	Microsoft Word Hilfe	0	28.11.2008, 00:10
	[Excel 2003] erstellen einer suche / ...	Bob87	Microsoft Excel Hilfe	5	25.11.2008, 15:59
	Scrollen in einer Combobox	makko3b	Microsoft Word Hilfe	0	25.11.2008, 13:46

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