Werte aus einem Recordset in den eMail-Body schreiben

04/09/2008 - 15:16 von Stefan Paesch | Report spam
Hallo zusammen,

gibt es eine Möglichkeit, Werte die aus einem Recordset "stammen", in
einen eMail zu schreiben ? Mir fehlt der Denkansatz.

Do Until rs.EOF = True
Debug.Print rs!KdNr & "; " & rs!Bearbeiter 'Daten-Test
rs.MoveNext
Loop

Diese Werte sollen dann im Mail.Body erscheinen, die Nachts
automatisch per Mail an die Abteilung gesendet werden, z.B.

1000; Disposition
5000; Verkauf
7000; Lager
usw.

Hat jemand einen einen Tipp?

Vielen Dank für Eure Hilfe.

Stefan
(Acc2003; XP pro SP3)



Dim outl As Object
Dim Mail As Object

Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Überwachung Zahlungseingànge"

Mail.Body = *** hier sollen die Daten des Recordset übergeben
werden ***

Mail.to = "Abteilung@firma.de"
Mail.send
'Mail.display
 

Lesen sie die antworten

#1 Mark Doerbandt
04/09/2008 - 15:21 | Warnen spam
Hallo, Stefan,

Stefan Paesch:

gibt es eine Möglichkeit, Werte die aus einem Recordset "stammen", in
einen eMail zu schreiben ? Mir fehlt der Denkansatz.

Do Until rs.EOF = True
Debug.Print rs!KdNr & "; " & rs!Bearbeiter 'Daten-Test
rs.MoveNext
Loop

Diese Werte sollen dann im Mail.Body erscheinen, die Nachts
automatisch per Mail an die Abteilung gesendet werden, z.B.

1000; Disposition
5000; Verkauf
7000; Lager
usw.

Hat jemand einen einen Tipp?

Vielen Dank für Eure Hilfe.

Stefan
(Acc2003; XP pro SP3)

Dim outl As Object
Dim Mail As Object

Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Überwachung Zahlungseingànge"

Mail.Body = *** hier sollen die Daten des Recordset übergeben
werden ***

Mail.to = ""
Mail.send
'Mail.display



nutze einfach eine Variable, die den Inhalt sammelt:

Dim strBody as String

strBody = "Hallo" & vbCrLf
Do Until rs.EOF = True
strBody = strBody & rs!KdNr & "; " & _
rs!Bearbeiter & vbCrLf
rs.MoveNext
Loop
strBody = strBody & "Tschüss" & vbCrLf

' ...

Mail.Body = strBody

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen