Office: markierte Zellen als Betreff in Outlook

noneatnone · 20. September 2008

Hi,

ich suche ein Macro, mit dem ich selektierte Zellen in einer Excel-Tabelle als Betreff in einer Mail in Outlook einfügen kann, in der der Empfänger festgelegt ist.

Habe schon bestimmt eine Stunde gegoogelt und nichts gefunden.

Kann mir jemand weiterhelfen?

Danke

:)

noneatnone · 22. September 2008

Das habe ich gerade gefunden .. vielleicht kann man davon was ableiten:

Code:

Sub Excel_Range_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
'sonst geht es nicht
'Dataobject wird gebraucht wegen der Zwischenablage
Dim ClpObj As DataObject
For i = 1 To 10
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll.
'Wenn kein Bereich versendet werden soll sondern
'der Bereich bereits kopiert wurde, können sie die
'nächsten beiden Zeilen auskommentieren
Range("A1:A5").Select
'Bereich wird in die Zwischenablage kopiert
Selection.copy
With Nachricht
.Subject = "Betreffzeile Header"
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.To = "irgendwer@irgendein-provider.de"
'Hier wird die Mail angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Auf Outlook warten. Ist nicht schnell genug :-))
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jinx · 22. September 2008

Moin, noneatnone,

dem .Subject entweder eine aus den Zellen zusammengesetzte Variable (strSubject = Range("A1") & " " & Range("B1")) übergeben oder diese dort direkt einsetzen? *wink.gif*

noneatnone · 22. September 2008

gibt es denn nicht einen Weg, dass man die markierten Zeilen im Betreff einsetzt?
Händisch geht das ja auch so..

Office: markierte Zellen als Betreff in Outlook

markierte Zellen als Betreff in Outlook

markierte Zellen als Betreff in Outlook

markierte Zellen als Betreff in Outlook

markierte Zellen als Betreff in Outlook - Similar Threads - markierte Zellen Betreff

Nur markierte Zellen kopieren und wieder einfügen

Markierte Zellen Sortieren Makro

bestimmte Zellen von markierten Zeilen in anderes Tabelleblatt kopieren

ActiveCell für eine beliebige Anzahl markierter Zellen anwenden

Prüfen ob Zelle in bestimmter Spalte markiert ist

Makro auf markierte Zellen anwenden

Kopierte Zellen bleiben markiert, einfaches Einfuegen leerer Zellen geht nicht mehr!