Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel und outlook

Forumthread: Excel und outlook

Excel und outlook
20.02.2004 10:26:05
Jens Meier
Hallo zusammen,
Frage, eine email aus Excel versenden wenn sich an der Datei etwas geändert hat, müsste doch mit diesem Makro funktionieren, oder?


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Test" & Now
mail.To = "xxx@yyy.de"
'mail.cc = ""
'mail.bcc = ""
mail.body = "Testmail" & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & Chr(13)
mail.Display
mail.send
End Sub


Hab ich da irgendwo einen denkfehler?
Gruss
Jens
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel und outlook
20.02.2004 10:45:08
Alex K.
Hallo Jens,
habe es getestet, klappt wunderbar. Wo liegt dein Problem?
AW: Excel und outlook
20.02.2004 14:15:46
Jens
Bei mir schickt er keine Mail raus
AW: Excel und outlook
20.02.2004 14:31:00
AndreasS
Hi,
ist der Verweis (Outlook) gesetzt?
Gruß Andreas
Anzeige
AW: Excel und outlook
20.02.2004 14:40:41
Alex K.
Hallo Jens,
hast du mal den Debugger angeschmissen und bist Step by Step durchgegangen. Wo bleibt er hängen? Wird die EMail angezeigt?
Verweis benötigt man nicht, nur wenn man die Definitionen der Objekte in VBA Editor haben will. Ansonsten legt er das Objekt auf jeden Fall an.
AW: Excel und outlook
20.02.2004 14:45:58
AndreasS
Hi,
manchmal benötigt man Def. ...
Übrigens läuft das bei mir:

Sub EMail()
Dim outObj As Object
Dim Mail As Object
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Mail.Subject = "Änderungen an der Datei"
Mail.Body = "Die Mappe wurde geändert"
Mail.TO = "xzy@yxz.de"
Mail.CC = "xzy@yxz.de"
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub

Gruß Andreas
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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