Teile eines Tab.Blattes als Email versenden

Forumthread: Teile eines Tab.Blattes als Email versenden

03.06.2005 12:17:37

Heinz

Hallo Leute
Habe eine Frage.Ist es möglich per Button bei Click,einen gewissen Teil zb.A1 bis M23 als Email zu versenden.
M.f.G.
Heinz H

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Teile eines Tab.Blattes als Email versenden

03.06.2005 12:39:11

Ramses

Hallo
schau mal hier
http://www.office.gmxhome.de/_excel_outlook.htm#Bereich_mit_Outlook_senden
Gruss Rainer

AW: Teile eines Tab.Blattes als Email versenden

03.06.2005 12:44:40

Heinz

Hallo Rainer
Danke für Deine Hilfe
Habe selbst schon im Archiv gestöbert,aber dieses Kapitel nicht gefunden.
nochmals herzlichen Dank
gruß Heinz

AW: Teile eines Tab.Blattes als Email versenden

03.06.2005 16:56:19

Thomas

Hallo Heinz,
hier noch meine Version ;-)
Vielleicht kannst Du's (o. sonst irgendwer) ja verwenden. Vorher noch einen Verweis auf Outlook einrichten.

Option Explicit
Const MAX_CHARS = 20
Sub Test()
    Call SendRangeWithOutlook(Selection)
End Sub
Private Sub SendRangeWithOutlook(rng As Excel.Range)

    Dim ol As Outlook.Application

    On Error Resume Next

    Set ol = GetObject(, "outlook.application")

    If ol Is Nothing Then _
        Set ol = CreateObject("outlook.application")

    If Not ol Is Nothing Then

        Dim item As Outlook.MailItem: Set item = ol.CreateItem(olMailItem)

        With item
            .Subject = "Test-Mail"
            .Body = RangeToText(rng)
            .To = "test@test.de"
            .Send
        End With

        Set item = Nothing
        Set ol = Nothing

    End If

End Sub
Private Function RangeToText(rng As Excel.Range, Optional Delimiter As String = vbTab) As String

    Dim chars As String * MAX_CHARS

    Dim result As String
    Dim i&, j&

    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            chars = rng(i, j)
            result = result & chars & Delimiter
        Next
        result = Trim$(result) & vbCrLf
    Next

    RangeToText = result

End Function
Gruß
Thomas
Risi Thomas Softwareentwicklung
COM-Addins +++ RTD-Server +++ Komponenten

AW: Teile eines Tab.Blattes als Email versenden

03.06.2005 22:58:21

Heinz

Hallo Thomas
Bin gerade von der Arbeit gekommen.Werde morgen Dein Makro probieren.
Danke für Deine Hilfe
gruß
Heinz

Beliebteste Forumthreads (12 Monate)

Teile eines Tab.Blattes als Email versenden

Forumthread: Teile eines Tab.Blattes als Email versenden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Teile eines Tab.Blattes als Email versenden

Forumthread: Teile eines Tab.Blattes als Email versenden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread