Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierte Zeile in Excel in der E-Mail verschicken

Markierte Zeile in Excel in der E-Mail verschicken
10.09.2018 14:33:01
klein
Hallo Zusammen,
ich habe hier eine Tabelle mit verschiedenen Daten.
https://www.herber.de/bbs/user/123857.xlsx
Nun will ich das wenn ich eine Zeile markiere, dann mit einer bestimmten tastenkombi ( z.B (Strg+ B), er mir bestimmte Daten aus der markierten Zeile raus kopiert und in eine Email Packt.
Bsp.
Ich markiere die Zeile 3 drücke dann meine Tastenkombie Str+B
Nun soll er Outlook öffnen und eine neue E-Mail erstellen, die wie folgt aussehen soll.
Hallo Bestellteam,
ich benötige folgendes Ersatzteil
Kunde : XXX
Kundennummer: 111
Servicetyp: schnell
System SN: bdf5d
Instrument PN : 898-844-00
Anzahl : 1
Vielen Dank.
Den Text, welchen ich hier "fett" anzeigen lasse ist immer gleich nur die Seriennummer und Instrument PN sollen sich ändern, diese soll er aus der markierten Zeile herrauslesen und einfügen.
Die Email soll nicht automatisch gesendet werden sondern , sollte nochmals manuel bestätigt werden.
Ich hoffe das ist verständlich genug.
Vielen Dank im Vorraus.
Grüße
klein

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierte Zeile in Excel in der E-Mail verschicken
10.09.2018 21:03:02
Rob 

Sub ErsatzteileBestellung()
'Nummer der markierten Zeile ermitteln
Dim MarkierteZeile As Long
Dim SystemSN, InstrumentPN As String
MarkierteZeile = ActiveCell.Row
SystemSN = Cells(MarkierteZeile, 9)
InstrumentPN = Cells(MarkierteZeile, 11)
'Email erstellen
Dim objOLOutlook As Object
Dim objOLMail As Object
Dim strSignatur As String
Set objOLOutlook = CreateObject("Outlook.Application")
Set objOLMail = objOLOutlook.CreateItem(0)
With objOLMail
.To = ""
.CC = ""
.BCC = ""
.GetInspector.Activate
strSignatur = .Body
.Sensitivity = 3
.Importance = 2
.Subject = "Bestellung Ersatzteil"
.BodyFormat = 1
.Body = _
"Hallo Bestellteam, " _
& vbNewLine & vbNewLine & _
"ich benötige folgendes Ersatzteil" _
& vbNewLine & vbNewLine & _
"Kunde: XXX" & vbNewLine & _
"Kundennummer: 111" & vbNewLine & _
"Servicetyp: schnell" & vbNewLine & _
"System SN: " & SystemSN & vbNewLine & _
"Instrument PN: " & InstrumentPN & vbNewLine & _
"Anzahl : 1" _
& vbNewLine & vbNewLine & _
"Vielen Dank." & strSignatur
.Display
End With
Set objOLMail = Nothing
Set objOLOutlook = Nothing
End Sub

Anzeige
AW: Markierte Zeile in Excel in der E-Mail verschicken
10.09.2018 21:05:39
Rob
Die Tastenkombination Strg+b zur Ausführung des Makros kannst Du wiew folgt belegen:
Entwicklertools - Makros - Optionen
AW: Markierte Zeile in Excel in der E-Mail verschicken
10.09.2018 21:09:43
Rob
PS: Den Code direkt in das Arbeitsblatt kopieren und nicht in einem separaten Modul ausführen. Ansonsten noch auf das Arbeitsblatt verweisen. Sicher ist sicher.

SystemSN = Sheets(1).Cells(MarkierteZeile, 9)
InstrumentPN = Sheets(1.)Cells(MarkierteZeile, 11)

AW: Markierte Zeile in Excel in der E-Mail verschicken
11.09.2018 11:47:42
klein
Hey Rob,
super , echt vielen Dank!!!!
Funkt. einwandfrei:)
Nur noch eine extra Frage...
Ich habe eine voreingestellte Signatur die ich leider nicht entfernen kann.
Sobald eine neue Email erstellt wird , schreibt er mir automatisch die Signatur rein.
Nun will ich bevor ich meine Email schreiben lasse, den E-Mail-Inhalt der neuen Mail lösche und dann meine gewünschte Email schreibe.
Eine Art Clear Befehl?
Ist das möglich?
Alles andere funkt. einwandfrei!!!
Vielen Dank.
Grüße
klein
Anzeige
AW: Markierte Zeile in Excel in der E-Mail verschicken
11.09.2018 12:53:27
Rob
Du musst eigentlich nur strSignatur jeweils auskommentieren, dann fügt er auch keine Signatur mehr ein.
AW: Markierte Zeile in Excel in der E-Mail verschicken
11.09.2018 14:37:58
klein
Das ist eine Voreinstellung die ich nicht mehr ändern kann von Outlook, hat mit deinem Code nichts zutun:)
Da ich die Einstellung nicht ändern kann mit der Signatur, würde ich gerne beim erstellen einer neuen Email erst mal den E-Mailinhalt löschen.
Grüße und Danke
AW: Markierte Zeile in Excel in der E-Mail verschicken
11.09.2018 15:01:22
Rob
Wenn Du einfach mit Strg+A den Inhalt der Mail markierst und dann den Inhalt löscht? Geht das?
Ansonsten stellst Du Dir ein Makro in Outlook vor, das Dir den Inhalt einer neu geöffneten Mail löscht?
Anzeige
AW: Markierte Zeile in Excel in der E-Mail verschicken
12.09.2018 09:15:20
klein
Eigentlich stell ich mir ein Makro in Outlook for falls möglich.
Ein weiteres Problem ist aufgetaucht, Email verschicken funktioniert einwandfrei.
Aber sobald der Empfänger meine gesendete Email weiterleiten will bekommt er eine Fehlermeldung.
Ich habe gesehen das bei der Email was durch das Makro erstellt wird , er bei Kategorie die Wichtigkeit auf HOCH setzt. Kann ich das verhindern?
Danke für deine Bemühungen!
Grüße
.Importance = 1 (owT)
12.09.2018 11:34:08
EtoPHG

AW: Markierte Zeile in Excel in der E-Mail verschicken
12.09.2018 13:53:27
Rob 

Sub DeleteMailContent()
SendKeys "^a"
SendKeys "{DEL}"
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige