Datei als Anhang in Automatische E-Mail
15.08.2005 11:26:22
Marcel
mit folgenden VBA kann man ja ein Abbild des Tabellenblattes per Mail versenden. Wie versende ich allerdings die ganze Arbeitsmappe als Anhang?
Gruß Marcel
'E-mail senden
Sheets("Tabelle1").Select
ActiveSheet.Range("E6").Select
'Das anzeigen der Envelope Commandbar ist unabdingbar
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "---Expressauslagerung---"
.Item.To = "Max.Mustermann@Muster.de"
.Item.Subject = "Materialanforderung"
.Item.Send
End With