Hallo Excelfreunde,
ist es möglich aus Clipboard (Zwischenablage) Text1 (Subject ) und Tex2 (Body) in ein
E-Mail einzufügen?
Wie müsste der Code geändert werden?
Gruß
fedjo
Sub Clipboard()
Dim myOutApp As Object, myMessage As Object
Dim myClpObj As DataObject
Set myClpObj = New DataObject
Set myOutApp = CreateObject("Outlook.Application")
Set myMessage = myOutApp.CreateItem(0)
With myMessage
.To = "i"
myClpObj.GetFromClipboard
.Subject = myClpObj.GetText(1)
.body = "Hallo,"
.Display
End With
Set myOutApp = Nothing
Set myMessage = Nothing
End Sub