E-Mail Bereich und Diagramm
23.05.2005 17:23:37
Peter
ich möchte ein Arbeitblatt aus einer Arbeitsmappe
welches Werte und ein eingebettetes Diagramm enthält, mit Outlook versenden.
Es soll keine Anhangdatei gebildet werden.
Dazu kopiere ich einen best. Bereich in die Zwischenablage und
möchte diesen wieder einfügen. Das funktioniert jedoch per VBA nicht.
Mit Outlook füge ich den Inhalt so ein:
'Bearbeiten/Inhalt eifügen/einfügen als Microsoft Arbeitsblatt
Wer kann helfen?
Peter
Sub Senden_BereichAndChart()
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren
Dim OutApp As Object
Dim Mail As Object
Dim ClpObj As DataObject
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Range("A1:F30").Select
'Bereich wird in die Zwischenablage kopiert
Selection.Copy
With Nachricht
.Subject = "Mailtest Werte und Diagramm"
'Zwischenablage einfügen
ClpObj.GetFromClipboard
'######## Mit Outlook füge ich den Inhalt so ein:
'Bearbeiten/Inhalt eifügen/einfügen als Microsoft Arbeitsblatt
' .Body =? ClpObj
‘########
'Betreffzeile
.To = "wohin@senden.de"
'Anzeige
.Display
'Übermittlungbestätigung
.OriginatorDeliveryReportRequested = True
'Lesebestätigung ein
.ReadReceiptRequested = True
'Mail senden
'.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub