Thema Datum  Von Nutzer Rating
Antwort
20.01.2020 10:46:42 Tom
NotSolved
20.01.2020 11:17:02 Torsten
NotSolved
20.01.2020 12:16:29 Gast79647
NotSolved
20.01.2020 12:27:06 Mase
NotSolved
Rot Tabelle email versenden
 20.01.2020 12:47:57 Torsten
Solved
20.01.2020 14:22:26 Gast27190
NotSolved
20.01.2020 14:34:41 Torsten
NotSolved
20.01.2020 14:30:48 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
20.01.2020 12:47:57		 Views:
577		 Rating:
     
Antwort:
 Nein
Thema:
Tabelle email versenden

Hallo,

ausgehend von deinem Code, hier die Erweiterung. Was habe ich gemacht?

Ich filtere die Tabelle nach dem heutigen Datum. Dann setze ich die zu kopierende Range (aber nur die sichtbaren Zellen, also die ausgeblendeten werden nicht mit kopiert). Diese Zeilen werden dann ausgewaehlt fuer den MailEnvelope. Normalerweise kommt noch eine Abfrage, dass Zeilen ausgeblendet sind. Die habe ich aber unterdrueckt.

Private Sub email1_Click()

Dim rng As Range
Dim last As Long
Dim Heute As String
Heute = Format(Date, "dd/mm/yyyy")
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

ActiveSheet.Range("A1:F" & last).AutoFilter Field:=1, Criteria1:=Heute, VisibleDropDown:=False
Set rng = ActiveSheet.Range("A1:F" & last).SpecialCells(xlCellTypeVisible)
rng.Select
ActiveWorkbook.EnvelopeVisible = True

Application.DisplayAlerts = False

With ActiveSheet.MailEnvelope
    .Introduction = "Anbei die Auftragsliste Groz-Beckert. "
    .Item.To = "xxxxxxxxx"
    .Item.Subject = ActiveSheet.Name & " vom " & Date
    .Item.Display
    .Item.Send
End With

Application.DisplayAlerts = True

ActiveSheet.ShowAllData

ActiveWorkbook.EnvelopeVisible = False
MsgBox "Nachricht wurde versendet"
Worksheets("Data").Activate
txtName = ""
txtName.SetFocus

End Sub

Gruss Torsten

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
20.01.2020 10:46:42 Tom
NotSolved
20.01.2020 11:17:02 Torsten
NotSolved
20.01.2020 12:16:29 Gast79647
NotSolved
20.01.2020 12:27:06 Mase
NotSolved
Rot Tabelle email versenden
 20.01.2020 12:47:57 Torsten
Solved
20.01.2020 14:22:26 Gast27190
NotSolved
20.01.2020 14:34:41 Torsten
NotSolved
20.01.2020 14:30:48 Torsten
NotSolved