Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

E-Mail mit Outlook (Tabellenblatt)

E-Mail mit Outlook (Tabellenblatt)
martin
hallo experten,
mit dem folgenden code möchte ich ein tabellenblatt aus einer mappe heraus über outlook versenden. den code habe ich einen button zugewiesen. wen ich klicke schreibt er: laufzeitfehler 1004: die copy-methode des worksheet-objektes ist fehlerhaft.
für eure hilfe wäre ich dankbar.
gruss/martin
Option Explicit

Sub BlattKopierenUndVersenden()
'aktives Tabellenblatt als Arbeitsmappe
'im Ordner Eigene Dateien speichern, als
'Anlage mit Outlook versenden und anschließend löschen
Dim strPath As String
Dim strName As String
Dim strFile As String
strPath = "C:\Eigene Dateien\" 'Pfad
strName = ActiveSheet.Name 'Tabellenname
strFile = strPath & strName & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs strFile
Senden strFile 'Datei versenden
'            .Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub


Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "test@provider.de"
.Subject = "Test"
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Gruss."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: E-Mail mit Outlook (Tabellenblatt)
25.04.2004 23:13:56
Björn
Hallo Martin,
kann Dein Problem nicht nachvollziehen, unter Excel 2000 läuft's prima, wenn man vor dem Close das Kommentarzeichen entfernt.
Vielleicht lädst Du mal Deine Problemdatei hoch.
Gruß
Björn
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige