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

Excel Email

Excel Email
13.03.2003 17:01:13
Kai-Jesko Mill
hey, kann mir jemand bitte helfen ?
wenn ich mit diesem makro eine excel tabelle versende verliere ich die seitenformatierung. kann man das verhindern.
kann man evtl. im makro auch schon einen emfänger unterbringen ?


Sub EmailVersand()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Range("A1:H54")
sAddress = Range("I28").Value
Workbooks.Add 1
rng.Copy Range("A1")
ActiveWorkbook.SendMail sAddress, "Reklamation QW Rücksendeschein Nr.:"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Excel Email
13.03.2003 20:16:36
SM

Hallo,

das wundert mich nicht weil du im script ein neues Workbook erstellst, dieses hat die Standardformatierung, wenn du eine vorgegebene formatierung nutzen möchtest must du mit Vorlagen (xlt) arbeiten. Der Mail Empfänger steht bei Dir im orginal Workbook in der Zeile I28 du nutzt aber sAddress vom ActiveWorkbook was du vorher neu erstellt hast. Dort steht halt nix drin.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige