Zwischenablage in Outlook einfügen
Chris
ich möchte eine Tabelle mit Inhalten aus Excel in die Zwischenablage einfügen und dann verschicken. Per Mausklick kein Problem :-) ...aber per vba...: Untenstehendes Makro erzeugt zwar keine Fehlermeldiung, aber es wird kein Inhalt eingefügt....
Ich habe auch mal ein wenig im Netz geschaut, man muss wohl Dim obj as New Dataobject verwenden. Leider reichen meine VBA Kenntnisse nicht aus, um hier einen festgelegten Range anzugeben.
Weiss jmd. Rat?: Also: Kopiere range xy in die Zwischenablage, öffne Outlook und verschicke die Mail.....
Danke, Chris
Sub BereicheinSend()
Dim olapp As Object
Dim rngbereich As Range
Set rngbereich = Range("A1:B10")
rngbereich.Copy
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.to = Sheets("Mitarbeiter").Range("G1").Value
.Subject = "blabla"
.body = rngbereich.PasteSpecial(xlPasteAll)
.Display
'.Send 'Sendet E-Mail
End With
'SendKeys "%s", True
Set olapp = Nothing
Exit Sub
End Sub