Hi Experten,
ich habe 2 Makros die zu einem zusammengeschmolzen werden müssen. Die Makros machen folgendes
1. Screenshot von einer Range (dem Bild) und einfügen in die Mail
2. Kopieren der nächsten Range (kein Screenshot, sondern kopieren einer Tabelle) und unter den Screenshot einfügen.
Meine einzelnen Codes sehen so aus:
Nummer1: erstellt einen Screenshot und fügt es in eine Mail
' Prozess per Screenshot in Mail einfügen
Private Sub Button_Screenshot_Mail_Click()
Range("B2:K27").CopyPicture xlScreen, xlBitmap
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = "irgendwer"
.Subject = "Das ist der Betreff"
.HTMLBody = ""
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.GetInspector 'fügt die Standart-Signatur an
End With
On Error GoTo 0
Set oApp = Nothing
End Sub
Nummer2: Kopiert die Range und fügt sie in eine Mail
Sub MailBodyDialog()
Dim rng As Range
Dim olapp As Object
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
Set rng = ThisWorkbook.Worksheets("Inhalt").Range("B5:K27")
.To = "abc@web.de" 'Empfänger
.HTMLBody = RangetoHTML(rng)
.Subject = "xxx"
.Display
End With
Set rng = Nothing
Set olapp = Nothing
End Sub
|