Office: Versenden von einzelnen Blättern in einer Datei

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

 

Hallo!

Schau mal hier.

 

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

 

Hallo!

Hier wird der eMail-Versand mit Lotus Notes gezeigt.

 

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

 

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

 

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