Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ein Tabellenblatt als E-Mail versenden

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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige