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