Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Neue Datei erstellen mit E-Mailversand

Neue Datei erstellen mit E-Mailversand
31.08.2016 07:52:11
Dennis
Hallo,
ich habe folgendes Problem und komme da einfach nicht weiter, hoffe mir kann jemand helfen.
Ich habe eine Datei "Inventuraufnahme_Ladungsträger" in dieser Datei werden in einem Userform Daten eingegeben und später in das Tabellenblatt "Ausgabe" geschrieben. Dieses Tabellenblatt möchte ich nun (am liebsten Temporär) komplett in eine neue Datei schreiben und diese Datei als Anhang an eine Mail an die Adresse abc@xyz.de verschicken.
Ich habe versucht, dass irgendwie über VBA darzustellen, aber ich bekomme das nicht. Ist das überhaupt möglich ?
Gruß
Dennis
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Tabellenblatt kopieren - Mailversand...
31.08.2016 10:33:15
Case
Hallo, :-)
prinzipiell so: ;-)
Option Explicit
Public Sub Main()
Dim objOutPrg As Object
On Error GoTo Fin
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
ThisWorkbook.Worksheets("Ausgabe").Copy
ActiveWorkbook.SaveAs Environ("TMP") & "\Test", 51
ActiveWorkbook.Close False
Set objOutPrg = CreateObject("Outlook.Application").CreateItem(0)
With objOutPrg
.To = "a@b.de"
.Subject = "Der Betreff!"
.Attachments.Add Environ("TMP") & "\Test.xlsx"
.Body = "Anbei die Datei."
.Display
'.Send
End With
Fin:
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
Set objOutPrg = Nothing
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Servus
Case

Anzeige
AW: Tabellenblatt kopieren - Mailversand...
31.08.2016 12:00:22
Dennis
Hallo,
klappt soweit schon super...
kann man auch das versenden automatisieren ?
Gruß
Dennis
AW: Tabellenblatt kopieren - Mailversand...
31.08.2016 12:08:47
Werner
Hallo Dennis,
anstatt .Display .Send (ist im Code auskommentiert).
Gruß Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige