Thema Datum  Von Nutzer Rating
Antwort
Rot Verbindung zweier Makros zu einem
 18.08.2014 10:43:11 boulala
NotSolved
18.08.2014 10:44:38 Gast29882
NotSolved

Ansicht des Beitrags:
Von:
boulala		 Datum:
18.08.2014 10:43:11		 Views:
1333		 Rating:
     
Antwort:
  Ja
Thema:
Verbindung zweier Makros zu einem

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


 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Verbindung zweier Makros zu einem
 18.08.2014 10:43:11 boulala
NotSolved
18.08.2014 10:44:38 Gast29882
NotSolved