Thema Datum  Von Nutzer Rating
Antwort
16.12.2019 15:12:56 Gandolf
NotSolved
Blau Excel Tabelle in Outlook Mail
16.12.2019 15:49:23 Mase
Solved
16.12.2019 15:57:08 Gandolf
NotSolved
16.12.2019 16:02:03 Mase
Solved
16.12.2019 16:05:18 Gandolf
NotSolved
13.01.2020 10:01:29 Gandolf
NotSolved
13.01.2020 10:01:37 Gandolf
NotSolved
13.01.2020 10:01:38 Gandolf
NotSolved
13.01.2020 11:36:05 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
16.12.2019 15:49:23		 Views:
544		 Rating:
     
Antwort:
 Nein
Thema:
Excel Tabelle in Outlook Mail

Hi,

so habs ich verstanden:

Sub CopyRangeMail()
    '######  EarlyBinding  #####
    'Im VBE unter Extras -> Verweise -> auf M$ Outlook ... haken setzen und ok
    Dim sSig As String, sSubject As String, sTo As String, sCC As String, sBcc As String
    Dim rng As Excel.Range
    Dim olAPP As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim olInspec As Object
    'Referenzieren
    Set olAPP = GetObject(Class:="Outlook.Application")
    Set olMail = olAPP.CreateItem(olMailitem)
    Set rng = ThisWorkbook.Worksheets(1).Range("A5:E7") '<-- anpassen
    'Excelbereich als Bild kopieren
    'und in Outlookmail einfügen
    rng.CopyPicture xlScreen, xlBitmap
        Set olInspec = olMail.GetInspector.WordEditor
            olInspec.Range(0, 0).Paste
    'Emailkopf vorbereiten
    sTo = "toReceipient@outlook.local"
    sCC = "CarbonCopy@outlook.local"
    sBcc = "BlindCarbonCopy@outlook.local"
    sSubject = "Betreffzeile"
    'Outlookmail anzeigen
    With olMail
        sSig = .HTMLBody
        .To = sTo
        .CC = sCC
        .BCC = sBcc
        .Subject = sSubject
        .Display
    End With
    'Referenzen freisetzen
    Set rng = Nothing
    Set olInspec = Nothing
    Set olMail = Nothing
    Set olAPP = Nothing
End Sub

 

Wichtig:

Extras -> Verweise -> M$ Outlook... aktivieren

 

 

gruß

Marco

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
16.12.2019 15:12:56 Gandolf
NotSolved
Blau Excel Tabelle in Outlook Mail
16.12.2019 15:49:23 Mase
Solved
16.12.2019 15:57:08 Gandolf
NotSolved
16.12.2019 16:02:03 Mase
Solved
16.12.2019 16:05:18 Gandolf
NotSolved
13.01.2020 10:01:29 Gandolf
NotSolved
13.01.2020 10:01:37 Gandolf
NotSolved
13.01.2020 10:01:38 Gandolf
NotSolved
13.01.2020 11:36:05 Torsten
NotSolved