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

HILFE e-mail versand einer tabelle HILFE

HILFE e-mail versand einer tabelle HILFE
09.06.2004 11:52:03
elchupete
Hi,
ich habe ein Problem mit einem in Excel XP geschriebenen Makro. Und zwar möchte ich eine Tabelle per e-Mail an eine bestimme e-Mail Adresse verschicken. Nu funzt das auch unter XP leider nicht unter Excel 2K und 97. Da es aber an Kunden verschickt wird, die u.a. noch diese alten Office-Versionen haben, brauche ich eine Lösung.
Mein Makro sieht wie folgt aus:
Const emailnvs = "nvs@test.de"
ActiveWorkbook.SendMail Recipients:=emailnvs
Leider bekomme ich unter 2000 immer die Fehlermeldung
Laufzeitfehler 28
Nicht genügend Stapelspeicher
Nu hab ich nicht den leisesten Schimmer, wie ich es schaffe diese zu beenden.
Schon jetzt Danke für Eure Mühe - und das bei dem Wetter.
Roger

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

Betreff
Datum
Anwender
Anzeige
AW: HILFE e-mail versand einer tabelle HILFE
09.06.2004 14:08:46
Marc
Damit läuft es bei allen Versionen.
Gruß Marc

Sub senden()
ActiveWorkbook.SendMail "EmpfängerAdr. hier eingeben", "Betreff hier eingeben"
End Sub

AW: HILFE e-mail versand einer tabelle HILFE
11.06.2004 10:40:40
elchupete
hi,
hat mir nicht weitergeholfen. habe immernoch den fehler 28.
hier aber die lösung:

Sub mail_versenden
Dim OutApp As Object
Dim Mail As Object
Set OutApp = CreateObject("Outlook.application")
Set Mail = OutApp.CreateItem(0)
With Mail
.Subject = "Betreff eingeben"
.Body = "Nachrichtentext"
.attachments.Add "Pfad & Dateiname, z.B. "C:\test,xks""
.To = "Empfänger"
.Send
'.Display
(Statt .send kannst Du auch .display nehmen, dann wird die Mail nur angezeigt und noch nicht versendet)
End With
Set Mail = Nothing
Set OutApp = Nothing
End Sub

habe ich von jürgen aus koblenz (jweiler).
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige