Senden eines Excel-Sheets über Outlook

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Senden eines Excel-Sheets über Outlook
von: Nicole
Geschrieben am: 12.06.2002 - 12:48:25

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?


nach oben   nach unten

Re: Senden eines Excel-Sheets über Outlook
von: Florian
Geschrieben am: 13.06.2002 - 10:30:44

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Senden eines Excel-Sheets über Outlook"