Den Druckbereich in eine Mail mit Button

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stephan!
Probier mal.

Private Sub CommandButton1_Click()
Dim ool As Variant, oInspector As Variant, oMail As Variant
Dim myattachments As Variant, MyAnsw As String
Dim varArr As Variant
Dim strText As String
Dim intR As Integer
Dim intC As Integer
On Error Resume Next
varArr = Range(ActiveSheet.PageSetup.PrintArea)
strText = "<table><tr><td>"
For intR = 1 To Range(ActiveSheet.PageSetup.PrintArea).Rows.Count
For intC = 1 To Range(ActiveSheet.PageSetup.PrintArea).Columns.Count
strText = strText & varArr(intR, intC) & "</td><td>"
Next
strText = Left(strText, Len(strText) - 9) & "</td></tr><tr><td>"
Next
strText = Left(strText, Len(strText) - 8) & "</table>"
Set ool = Nothing
Set oInspector = Nothing
Set oMail = Nothing
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(0)
Set myattachments = oMail.Attachments
With oMail
.To = ""
.Subject = ""
.htmlbody = strText
.myattachments.Add ""
.display
End With
End Sub
Gruß Sepp

Hallo Stephan!
Sollte klappen.
Option Explicit

Private Sub CommandButton1_Click()
Dim ool As Variant, oInspector As Variant, oMail As Variant
Dim myattachments As Variant, MyAnsw As String
Dim rng As Range
Set rng = Range(ActiveSheet.PageSetup.PrintArea)
Dim varArr As Variant
Dim strText As String
Dim intR As Integer
Dim intC As Integer
On Error Resume Next
varArr = rng
strText = "<table><tr><td>"
For intR = 1 To rng.Rows.Count
For intC = 1 To rng.Columns.Count
If rng.Columns(intC).Hidden = False And rng.Rows(intR).Hidden = False Then
strText = strText & varArr(intR, intC) & "</td><td>"
End If
Next
If rng.Columns(intC).Hidden = False And rng.Rows(intR).Hidden = False Then
strText = Left(strText, Len(strText) - 9) & "</td></tr><tr><td>"
End If
Next
strText = Left(strText, Len(strText) - 8) & "</table>"
Set ool = Nothing
Set oInspector = Nothing
Set oMail = Nothing
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(0)
Set myattachments = oMail.Attachments
With oMail
.To = ""
.Subject = ""
.htmlbody = strText
.myattachments.Add ""
.display
End With
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Den Druckbereich in eine Mail mit Button

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Den Druckbereich in eine Mail mit Button

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread