Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
128to132
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
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Senden eines Excel-Sheets über Outlook

Senden eines Excel-Sheets über Outlook
12.06.2002 12:48:25
Nicole
Hallo,
ich möchte aus Excel heraus den Befehl

DATEI -
SENDEN AN -
MAILEMPFÄNGER -
SENDET DAS AKTUELLE BLATT ALS TEXTKÖRPER

in einem Excel-Makro verwenden. Kennt jemand den Befehl im VBA-Code?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Senden eines Excel-Sheets über Outlook
13.06.2002 10:30:44
Florian
Sub Email_Senden()
'Speicher reservieren
Dim ol As Outlook.Application
Dim mymail As Outlook.MailItem

'Outlook-Instanz erzeugen
Set ol = CreateObject("Outlook.Application")

'E-MailItem erzeugen
Set mymail = ol.CreateItem(olMailItem)

'E-Mail einstellen
mymail.To = UserForm1.TextBox1.Value (Adresse)
mymail.Subject = UserForm1.TextBox2.Value (Betreff)
mymail.Body = UserForm1.TextBox3.Value (Nachricht/Body)
mymail.Attachments.Add ("Datei") (Anhang: zb.activeworkbook)
'E-Mail senden
mymail.Send

'Speicher freigeben
Set mymail = Nothing
Set ol = Nothing

End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige