Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
208to212
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
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei an Email anhängen

Datei an Email anhängen
27.01.2003 16:34:29
Bastian
Hallo

Ich möchte meine Exeldatei und eine weiter beliebige Datei versenden. Wie hänge ich meinem Worksheet eine weitere Datei an.

für die Exel Datei ist ja klar: Thisworkbook.sendmail "mailempfänger@xxx.de","Test"
aber dann ????

Könnt ihr mir weiterhelfen?

Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datei an Email anhängen
27.01.2003 16:42:58
Bernd Held

Hallo Bastian,

über folgendes Makro kannst Du das ereichen:

Sub EMailVerschicken()
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Spieledateien im Anhang"
Mail.Body = "Viel Spaß damit!:"
Mail.To = "Held-office@t-online.de"
Mail.Attachments.Add "c:\temp\spiel.xls"
Mail.Attachments.Add "c:\temp\spiel2.xls"
Mail.Display
'Mail.send
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de


Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige