Tabelleninhalt als Text im Body

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Tabelleninhalt als Text im Body
von: Reimund
Geschrieben am: 20.11.2015 01:07:08

Hallo Helferleins,
Habe mir zum Emailsenden schon einen Vorschlag aus dem Forum umgebaut.
Funktioniert.
Aber nun möchte ich einen markierten Bereich eines Arbeitsblattes direkt und nicht als Anlage senden
Hier das Makro:

Sub Tabelle_versenden_als_EMail()
    
    ' Verweis auf Microsoft Outlook Bibliothek setzen
    Dim objOL As Object
    Dim objMail As Object
    Dim Bezeichnung As String
    Dim strName As String
    
    Set objOL = CreateObject("Outlook.Application")
    Set objMail = objOL.CreateItem(0)
    
    Bezeichnung = "Fehlermeldung"
    strName = "Fehlermeldung.xls"
    
    Sheets("Senden").Select
    Range("a" & letztezeilesenden & ":b1").Select        den Inhalt dieses
                                    Bereichs als Body und nicht als Anlage   
    Selection.Copy
    
    With objMail
        .To = EMailan
        .Subject = Bezeichnung
        .Body = ???????????????????????????
        .Send
    End With
End Sub
Vielen Dank im Voraus
Reimund

Bild

Betrifft: Mail - Daten im Body...
von: Case
Geschrieben am: 20.11.2015 05:32:22
Hallo, :-)
in folgendem Link gibt es das alles Pfannenfertig:
Mail Range/Selection in the body of the mail...
Servus
Case


Bild

Betrifft: AW: Mail - Daten im Body...
von: Reimund
Geschrieben am: 20.11.2015 15:05:31
Select Case Person
Case Is = „Case“
Msgbox „Problem gelöst“
Case Is = „Somebody“
Msgbox „evtl. weitersuchen“
End Select
(mein holpriges VBA)
Vielen Dank
Reimund

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabelleninhalt als Text im Body"