Tabelleneintrag in Email ausgeben

Hallo zusammen,
ich habe in Excel eine Tabelle zur dokumentation von Störungsmeldungen erstellt. Der erste Eintrag geht von A3 bis O3, der zweite von A4 bis O4 und so weiter. Bei jedem neuen Eintrag soll eine Update Email geschickt werden.
Nun habe ich folgendes Makro mit einer Schaltfläche verbunden und möchte allerdings noch, dass im .Body die neu eingegebene Zeile aus der Tabelle hinzugefügt wird. Ich habe schon einiges probiert, nur sind meine Fähigkeiten im Bezug auf VBA sehr begrenzt und ich verstehe nicht, warum es nicht funktioniert.. vielleicht kann mir jemand weiter helfen?

Sub Email_Werkstatt_senden()
Dim obNachricht As Object
Dim obMail As Object
Set obMail = CreateObject("Outlook.Application")
Set obNachricht = obMail.CreateItem(0)
With obNachricht
.To = "General "
.Subject = "Neue Störungsmeldung"
.Body = "Moin," & vbLf & vbLf & "es gibt eine neue Störungsmeldung. Bitte prüfen Sie diese  _
schnellstmöglich." & vbLf & vbLf & "Mit freundlichen Grüßen"
.ReadReceiptRequested = False  'Gelesen-Bestätigung anfordern
.Display                                    'Email vor dem Senden öffnen
End With
Set obNachricht = Nothing
Set obMail = Nothing
End Sub

Vielen Dank im Voraus!! TOME :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc][+][-] Option Explicit Sub Email_Werkstatt_senden() Dim sMailtext As String, iZeile As Long iZeile = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Range("A" & iZeile).EntireRow.Copy ' Letzte Zeile kopieren With CreateObject("Outlook.Application").CreateItem(0) .To = "General " .Subject = "Neue Störungsmeldung" .GetInspector .Display ' Email vor dem Senden öffnen sMailtext = "Moin," & vbLf & vbLf _ & "es gibt eine neue Störungsmeldung. Bitte prüfen Sie diese schnellstmöglich." _ & vbLf & vbLf .body = sMailtext & vbLf & "Mit freundlichen Grüßen" & .body .ReadReceiptRequested = False ' Gelesen-Bestätigung anfordern With .GetInspector.WordEditor.Application.Selection .Start = Len(sMailtext) .Paste ' Bereich in Mail einfügen End With End With End Sub

Hallo Tome,
teste mal:

Option Explicit

Public Sub Email_Werkstatt_senden()

    Dim obNachricht As Object
    Dim obMail As Object
    Dim lngLastRow As Long
    Dim strMessage As String

    With Worksheets("Tabelle1") ' Tabellennamen anpassen !!!
        strMessage = Join(Application.Transpose(Application.Transpose( _
            .Cells(.Rows.Count, 1).End(xlUp).Resize(1, 15).Value)), vbTab)
    End With

    Set obMail = CreateObject("Outlook.Application")
    Set obNachricht = obMail.CreateItem(0)

    With obNachricht
        .To = "General "
        .Subject = "Neue Störungsmeldung"
        .Body = "Moin," & vbLf & vbLf & "es gibt eine neue Störungsmeldung. " & _
            vbLf & vbLf & strMessage & vbLf & vbLf & _
            "Bitte prüfen Sie diese schnellstmöglich." & vbLf & vbLf & "Mit freundlichen Grüßen"
        .ReadReceiptRequested = False 'Gelesen-Bestätigung anfordern
        .Display 'Email vor dem Senden öffnen
    End With

    Set obNachricht = Nothing
    Set obMail = Nothing

End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Tabelleneintrag in Email ausgeben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelleneintrag in Email ausgeben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread