Blatt nicht als Anlage sondern direkt per Mail
02.07.2008 10:27:16
Tom
habe eigentlich genau das richtige im Archiv gefunden, möchte es nun aber erweitern:
Ich würde gerne bei der Funktion
.Introduction = "Materialanforderung" & Chr(13) & "Danke Holger"
folgendes ändern: Anstatt Holger möchte ich als Variable die Zelle B1 haben.
Ebenso hier .Item.Subject = "Materialanforderung" die Variable Zelle B1.
Ist dies möglich?
Gruß und danke vorab
TOM
Archivbeitrag:
Hallo Werner
So verschicke ich meine Materialanforderung an meinen Chef.
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 ( nicht von mir funktioniert aber )
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Materialanforderung" & Chr(13) & "Danke Holger"
.Item.To = "Deine Addresse@server.de" 'hier EMail-Addresse eintragen
.Item.Subject = "Materialanforderung"
End With
Gruß Holger