Thema Datum  Von Nutzer Rating
Antwort
14.02.2024 10:31:58 Horst
NotSolved
14.02.2024 13:49:32 Gast13715
NotSolved
15.02.2024 06:55:20 Gast13387
NotSolved
15.02.2024 07:38:41 Gast34113
NotSolved
Rot Zellen aus Excel in Email einfügen
 15.02.2024 22:38:09 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
15.02.2024 22:38:09		 Views:
328		 Rating:
     
Antwort:
  Ja
Thema:
Zellen aus Excel in Email einfügen

Hallo Horst,

vorab: GetFromClipboard kann nur Text aus der Zwischenablage holen und daher keine Bereiche oder Bilder.

Ansonsten gibt es eine ganze Menge von Möglichkeiten, Bereiche oder Bilder in eine Outlookmail zu bekommen.

Z.B. RangetoHTML, Range2HTML oder über die API usw.. Diese sind teilweise aber für HTML-Mails.

Ich habe eines meiner Muster (normalerweise verwende ich HTML) auf Normal-Format umgebaut und hier unten angefügt.

Vielleicht hilft Dir das Beispiel ja weiter. Es verwendet das Einfügen über den Wordeditor. Auch hier gibt es mehrere Varianten.

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24		  
Sub MailErstellen()
  Dim WSh As Worksheet
  Dim sBer As String, sMailtext As String

  sBer = "A3:L9"
  Set WSh = ThisWorkbook.Sheets("Tabelle2")  ' Blatt ggf. anpassen

  With CreateObject("Outlook.Application").CreateItem(0)
      .to = "kh@volti.de"                    ' Empfänger
      .Subject = "Berichtswesen"             ' Betreff
      .Getinspector.Display                  ' Signatur holen
      sMailtext = "Hallo Her Meier¶" _
      & "hier ist der aktuelle Bericht.¶¶"
      .body = Replace(sMailtext, "", vbLf) & .body

      WSh.Range(sBer).Copy                   ' Bereich kopieren

      With .Getinspector.WordEditor.Application.Selection
          .Start = Len(sMailtext) + 1        ' Einfügestelle (ggf. die +/-1 anpassen)
          .Paste                             ' Bereich in Mail einfügen
      End With
'       .Send
  End With
End Sub
_________
viele Grüße
Karl-Heinz

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
14.02.2024 10:31:58 Horst
NotSolved
14.02.2024 13:49:32 Gast13715
NotSolved
15.02.2024 06:55:20 Gast13387
NotSolved
15.02.2024 07:38:41 Gast34113
NotSolved
Rot Zellen aus Excel in Email einfügen
 15.02.2024 22:38:09 volti
NotSolved