|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.01.2020 10:46:42 |
Tom |
|
|
|
20.01.2020 11:17:02 |
Torsten |
|
|
 Tabelle email versenden |
20.01.2020 12:16:29 |
Gast79647 |
|
|
|
20.01.2020 12:27:06 |
Mase |
|
|
|
20.01.2020 12:47:57 |
Torsten |
|
|
|
20.01.2020 14:22:26 |
Gast27190 |
|
|
|
20.01.2020 14:34:41 |
Torsten |
|
|
|
20.01.2020 14:30:48 |
Torsten |
|
|
Von:
Gast79647 |
Datum:
20.01.2020 12:16:29 |
Views:
539 |
Rating:
|
Antwort:
|
Thema:
Tabelle email versenden |
|
Hallo Torsten,
bsp:
Eine Nummer wird in der Textbox angegeben, danach wählt der User die Buttons (Kontrolle 1- 6) aus.
Wenn man dann den Bsp.: Button Kontrolle 1 (Button) betätigt wird ein x in der Zelle als Betätigung eingetragen.
Neben den Kontrolle 1 Button befindet sich ein Email Button, sobald der User die Einträge erledigt hat, muss er den Email button klicken, danach wird die Tabelle mit aktuellen Eintragungen an die/der richtigen Person gesendet.
Zur Userform:
ich habe ein Textfeld wo ich die Nummern eintragen.
Dann sind die Kontrollbuttons untereinander aufgelistet und mann muss immer einen Button klicken.
Neben den Kontrollbuttons befinden sich Emailbuttons, nach Erledigung der Einträge soll der Button von User betätigt werden-->Email sendet die Tabelle an die/der Person mit aktuellen Datum.
Mit diesem Cod sendet er nur die gesamte Tabelle, aber ich möchte, das nur die aktuellen Datum sendet.
Er soll zuerst alle Einträge nach dem Datum filtern und dann immer das aktuelle Datum samt Eintäge senden.
Private Sub email1_Click()
Range("A:C").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Anbei die Auftragsliste Groz-Beckert. "
.Item.to = "xxxxxxxx"
.Item.Subject = ActiveSheet.Name & " vom " & Date
.Item.Display
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
MsgBox "Nachricht wurde versendet"
Worksheets("Data").Activate
txtName = ""
txtName.SetFocus
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
20.01.2020 11:17:02 |
Torsten |
|
|
Tabelle email versenden |
20.01.2020 12:16:29 |
Gast79647 |
|
|
|
20.01.2020 12:27:06 |
Mase |
|
|
|
20.01.2020 12:47:57 |
Torsten |
|
|
|
20.01.2020 14:22:26 |
Gast27190 |
|
|
|
20.01.2020 14:34:41 |
Torsten |
|
|
|
20.01.2020 14:30:48 |
Torsten |
|
|