Zellbereich E-Mail Versand
03.04.2014 20:19:18
Ines
Ich möchte aus Excel einen Zellbereich via Outlook versenden.Dazu habe ich im Netz folgenden Code gefunden:
Sub Send_OriginalRange_from_Excel()
Range("a1:g20").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Hallo & vbCrLf & "Die Zahlen:"
.Item.To = "meinname@xxx.de"
.Item.Subject = "Zahlen"
.Item.Send
End With
End Sub
Funktioniert auch super. Ich möchte das aber gerne noch verbessern.Was ich noch gerne hätte:
1. Den Text im Body hätte ich gerne im Schrifttyp Arial. Ist eigentlich auch in Outlook so eingestellt. Geht das?
2. Am Ende der Mail würde ich gerne meine Signatur einfügen?
3.Ich würde gerne das Senden der Mail erst zulassen, wenn ich die Schaltfläche Senden in Outlook betätige. Was muss ich ändern?