Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
788to792
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Ein Tabellenblatt als E-Mail versenden
03.08.2006 09:27:25
Thomas
Hallo,
ich möchte aus eine Exceldatei heraus ein Blatt mehrfach an definierte Empfänger versenden (10 Adressen erhalten je eine Mail mit je einer Anlage).
MfG Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: Ein Tabellenblatt als E-Mail versenden
03.08.2006 09:53:33
Bertram
Hallo Thomas,
mit welchem Mail-Programm?
Gruß
Bertram
AW: Ein Tabellenblatt als E-Mail versenden
03.08.2006 10:01:32
Thomas
mit Outlook 2000
AW: Ein Tabellenblatt als E-Mail versenden
03.08.2006 10:06:17
Bertram
Sorry, muss ich passen. Ich benutze Lotus Notes.
Schau doch mal im Archiv, da findesr du sicher was.
Gruß
Bertram
AW: Ein Tabellenblatt als E-Mail versenden
03.08.2006 14:09:30
Holger
Hallo Thomas
Kannst Du damit was angangen

Private Sub CommandButton2_Click()
lr = Cells(Rows.Count, 3).End(xlUp).Row ' lr ist die letzte beschriebene Zelle
ActiveSheet.Range(Cells(1, 1), Cells(lr, 9)).Select 'Druckbereich festlegen
'Das anzeigen der Envelope Commandbar ist unabdingbar
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Materialanforderung" & Chr(13) & "Danke Holger"
.Item.To = "Mustermann@Muster.de"
.Item.Subject = "Materialanforderung"
End With
CommandButton2.TakeFocusOnClick = False
End Sub

Gruss Holger
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige