hi leute,
ich hab folgendes problem:
ich kann aus einem formular heraus einen button drücken und somit wird eine e-mail in outlook erstellt und abgeschickt -soweit so gut.
nun möchte ich aber, dass in den datensatz nach dem drücken des buttons das datum einfügt wird, wann der button das letzte mal gedrückt wurde.
geht das?
hat mir jemand einen tipp?
lieben dank.
sascha
Moin Moin,
geht das?
ja
hat mir jemand einen tipp?
hast du mal ein paar mehr Infos für uns?
Formular Datenbasis?
Tabellenname?
Feldname/n?
usw.
Grüße aus Rostock
Wolfgang
(Netwolf)
hi
super - dass es geht beruhigt mich schonmal sehr 
das formular heißt „geburtstagsliste_versand2“
die datenherkunft heißt „geburtstagsliste_versand“
der anzulickende button heißt „EMailButton“
beim klicken wir folgender VBA-Code ausgeführt:
Private Sub EMailButton_Click()
Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = Applikation.CreateItem(olMailItem)
Mail.To = Me![Email]
Mail.Subject = Me![Betreff]
Mail.Attachments.Add „C:\Verwaltung\TRCP.jpg“, jpg, 1, „Titel“
Mail.HTMLBody = „“ & Me![mailtext]
Mail.DeferredDeliveryTime = Me![GebtagDJ]
Mail.SentOnBehalfOfName = „[email protected]“
Mail.Display
End Sub
im datensatz (innerhalb des formulars) gibt es noch das ungebundene textfeld, das nach anklicken des buttons das aktuelle datum (und wenn möglich auch noch die uhrzeit) anzeigen soll.
genügen diese daten?
sonst einfach kurz bescheid geben.
vielen dank
Moin Moin,
das ist doch schon alles perfekt!
Private Sub EMailButton_Click()
Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Me.Sendedatum = now()
Set Mail = Applikation.CreateItem(olMailItem)
Mail.To = Me![Email]
Mail.Subject = Me![Betreff]
Mail.Attachments.Add „C:\Verwaltung\TRCP.jpg“, jpg, 1, „Titel“
Mail.HTMLBody = „“ & Me![mailtext]
Mail.DeferredDeliveryTime = Me![GebtagDJ]
Mail.SentOnBehalfOfName = „[email protected]“Mail.Display
End Subim datensatz (innerhalb des formulars) gibt es noch das
ungebundene textfeld, das nach anklicken des buttons das
aktuelle datum (und wenn möglich auch noch die uhrzeit)
anzeigen soll.
füge der Tabelle noch das Feld „Sendedatum“ hinzu. Das Feld sollte dann gebunden auf dem Formular vorhanden sein. (gegebenenfalls unsichtbar)
Dann reicht einfach Me.Sendedatum = now() um Datum und Zeit in dem Feld (zum Datensatz in der Tabelle) zu speichern, wenn du den Button drückst. Siehe oben…
Grüße aus Rostock
Wolfgang
(Netwolf)
super - sieht gut aus … ich kann es leider erst morgen im büro checken
meld mich dann nochmal und gebe bescheid
herzlichen dank auf jeden fall
hey netwolf,
kannst du mir vielleicht auch hierbei helfen?
http://www.wer-weiss-was.de/app/service/board_navi?A…
viele grüße
sascha
Moin Moin,
kannst du mir vielleicht auch hierbei helfen?
http://www.wer-weiss-was.de/app/service/board_navi?A…
öhm, der Link führt zu deiner Antwort eine Etage tiefer 
Verwende „Fester Link“ auf der rechten Seite, um auf einen Beitrag zu verlinken.
Grüße aus Rostock
Wolfgang
(Netwolf)