Suite Deines Office Pakets: Basic / Standard / Professional
AddIn installiert: Nein
Dein Wissensstand: Einsteiger
Welches Virenschutz-Programm hast Du installiert? McAfee
Betriebssystem Version: Windows XP
Was hast Du gemacht, bevor das Problem aufgetreten ist?
Was hast Du bereits versucht um das Problem zu lösen?
Fehlerbeschreibung und Nachricht
Sub Makro1()
Range("B2:K38").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
End Sub
Sub HTML_EMailMitDateiSenden()
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Statusmeldung am " & Now
mail.To = Workbooks("Statusmeldung.xls").Worksheets("Adressen").Cells(2, 2)
mail.cc = Workbooks("Statusmeldung.xls").Worksheets("Adressen").Cells(3, 2)
'mail.bcc = "zensiert@yyy.de"
mail.htmlbody = _
"Sehr geehrte Damen und Herren,
" & Chr(13) & _
"anbei der tägliche Statusbericht.
" & Chr(13) & _
"Mit freundlichen Grüssen.
" & Chr(13) & _
"User A
" & Chr(13) & _
"
'Mail anzeigen
mail.Display
End Sub
Hallo zusammen.
Ich habe ein Makro aufgezeichnet (Makro1), indem ich einen Bereich markiert habe Shift-Taste Bearbeiten Bild kopieren. Mit dem zweiten Makro sende ich über VBA eine Datei „Status.JPG“ als Bild (nicht im Anhang) über Outlook per Mail (hat erstmal nichts mit dem ersten Makro zu tun, war nur ein Test). Jetzt möchte ich Makro 1 so in so in Makro zwei einfügen, dass das kopierte Bild mit Outlook verschickt wird und nicht die (Test)-Datei „Status.JPG“. Im Klartext: Markiere den Bereich B2:K38, kopiere als Bild (rechte Maustaste und kopieren funktioniert nicht ganz, da ich einige Checkboxen habe etc.) und sende diesen über Outlook.
Da ich nicht ganz fit in VBA bin, würde ich mich freuen, wenn mir jemand helfen könnte.
PS: Habe Office 2003
Danke im Voraus.
