Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

email versenden

email versenden
09.10.2002 15:15:58
H. Vosbeck
Hi,
wie kann ich unter VBA ein Tabellenblatt als Mail versenden?
H. Vosbeck

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: email versenden
09.10.2002 16:31:28
Marcello
Hallo Herr Vosbeck,

Anbei eine Lösung. Die letzten 3 Zeilen sind entscheiden.
Ich habe beide Var drin. 1x mit Dialog oder dann 1x OHNE Dialog.
mfg
Marcello

Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 80
ActiveWindow.Zoom = 75
Range("A1").Select
Application.Dialogs(xlDialogSendMail).Show
'ActiveWorkbook.SendMail "Daily Sales Info", "Daily Sales Info " & Format(Now(), "dd.mm.yy"), ""

Anzeige
Re: email versenden
10.10.2002 13:31:11
H. Vosbeck
Hallo Herr? Marcello,
herzlichen Dank, im Prinzip funktioniert das so, aber das Excel-Blatt wird als Anlage verschickt.
Ich möchte das Blatt als direkte email versenden, wie man es 'per Hand' machen kann.
H. Vosbeck

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige