Zwischenablage in Outlook kopieren
12.06.2005 11:08:32
Swen
Ich habe ein Problem bei den versenden aus Excel mit Outlook.
Über ein CommandButton lasse ich Outlook öffnen und über eine vorgegebene Adresse die Excel Tabelle als Anlage verschicken. Dies war schon öfters im Forum und das klappt auch super.
Nun möchte ich aber nicht die Tabelle als Anlage versenden, sondern als Bild.
Soweit habe ich das Sub stehen. Aber das einfügen als Body in Outlook klappt eben nicht. Es wird immer in die Tabelle ein eingefügt und nicht in den Body von Outlook.
Wie bekomme ich das hin?
Private Sub Outlook_Bild_Click()
Application.ScreenUpdating = False
Range("A1:G251").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Range("A23").Select
'ActiveSheet.Paste
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "Adresse"
.Subject = "naja"
.Body = vbCrLf & "Bitte rechte Maus-Taste drücken und 'Einfügen' auswählen." & vbCrLf & "Datum: " & Date & vbCrLf & "Uhrzeit: " & Time
.Display
'Mail.Send
End With
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
Application.ScreenUpdating = True
End Sub
So nebenbei, woran liegt es, dass es bei längeren Sub`s zum flimmern kommt, trotz "Application.ScreenUpdating = False/True" ?
Vielen Dank
Swen Bachamnn