Office: (Office 2010) Bereich mit Button kopieren und per Email verschicken

negroni · 8. Dezember 2012

Hallo zusammen,

ich möchte einen Bereich in Excel von B2 bis J40 per Button kopieren. Und diese Kopie (mit (farbigen) Text und Tabellen) in Outlook einfügen und an vorgegebene Emailadressen verschicken. Ich kann dann gerne noch auf "Senden" drücken. Das ist nicht das Ding.
Aber wie schaffe ich das?

Grüße

Negroni

:)

Beverly · 10. Dezember 2012

Hi,

Code:

Sub MailSenden()
Dim objNachricht As Object
Dim objMail As Object
Dim rngBereich As Range
Set rngBereich = ActiveSheet.Range("B2:J40")
Set objMail = CreateObject("Outlook.Application")
Set objNachricht = objMail.CreateItem(0)
With objNachricht
.To = "Deine@Mailadresse"
.Subject = "Erinnerung"
.HtmlBody = RangetoHTML(rngBereich)
.ReadReceiptRequested = False
.display '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

negroni · 10. Dezember 2012

Hallo Karin,

zwei Fragen:
1. Ich kann gerade nicht den Button finden
2. Hier bei mir zu Hause habe ich kein Outlook. Nur in der Arbeit. Kann ich alternativ auch ein Standard Mailprogramm auswählen?

Danke

Negroni

Beverly · 10. Dezember 2012

Hi,

1. ich kann den Button ebenfalls nicht finden - vielleicht solltest du einen in deinem Tabellenblatt erstellen?

2. nein - so geht es nur mit Outlook.

Office: (Office 2010) Bereich mit Button kopieren und per Email verschicken

Bereich mit Button kopieren und per Email verschicken

Bereich mit Button kopieren und per Email verschicken

Bereich mit Button kopieren und per Email verschicken

Bereich mit Button kopieren und per Email verschicken - Similar Threads - Bereich Button kopieren

Bereich von Excel nach Word mit zusammenhängenden Passagen übergeben

Nur markierte Zellen kopieren und wieder einfügen

Bereich zweimal in Word einfügen (VBA)

Bereich (z.B. C1:C12) aus Formel berechnen lassen

Word geschützter Bereich in Tabelle

Namens-Bereich - Überschriften Zeile fehlt

Bereich mit Hilfe eines Dropdowns+Button löschen (VBA)