Forums Neueste Beiträge
 

Bericht als Email versenden, aber nicht als Anhang

06/03/2011 - 19:14 von Horst Streich | Report spam
Hallo zusammen,
Ich möchte gerne einen Bericht als Email versenden,
aber nicht als Anhang.
Kann aber nirgends eindeutige Hinweise finden
ob ich das mit Sendobject oder besser mit HTMLbody mache.
Hat das jemand schonmal realisiert?
Gruß Horst
 

Lesen sie die antworten

#1 Stefan Paesch
09/03/2011 - 22:00 | Warnen spam
Moin Horst,

ich habe mal Daten aus einer Tabelle in eine eMail geschrieben. Evtl.
nicht ganz was Du suchst, aber vielleicht ein Denkansatz.

Private Sub btnStart_Click()

On Error GoTo fehler

Dim strSQL, strBody As String
strSQL = "Dein SQL-String"


Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

strBody = "Bei folgenden Debitoren hat sich der Saldo geàndert:" &
vbCrLf & vbCrLf

'Recordset mit Schleife durchlaufen und in eMal schreiben
Do Until rs.EOF = True

strBody = strBody & rs!KdNr & vbTab & rs!Bearbeiter & vbCrLf
rs.MoveNext

Loop

strBody = strBody & "*****Ende*****"


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 = strBody
Mail.to = ""
'Mail.send'sofort senden
Mail.display 'vorher anzeigen


fehler:
Exit Sub
End Sub

stefan

Ähnliche fragen