Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.11.2016 11:48:15 |
Thomas |
|
|
|
29.11.2016 17:29:04 |
BigBen |
|
|
|
29.11.2016 21:00:25 |
Thomas |
|
|
|
29.11.2016 21:04:47 |
Thomas |
|
|
|
29.11.2016 21:06:58 |
Thomas |
|
|
|
29.11.2016 21:13:05 |
BigBen |
|
|
|
29.11.2016 21:17:48 |
BigBen |
|
|
Access Abfrage per email senden |
30.11.2016 16:52:13 |
Thomas |
|
|
Von:
Thomas |
Datum:
30.11.2016 16:52:13 |
Views:
727 |
Rating:
|
Antwort:
|
Thema:
Access Abfrage per email senden |
Hi, ich bin immer noch dran, hier funktioniert alles bis zum .Body, da versuche ich der query Output da abzulegen, ich denke ich bin fast da:
Function sendMail()
Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application
Dim dbs As DAO.Database
Dim strDbName
Dim objApp
Dim rs As DAO.Recordset
strDbName = "C:\Stammdaten\Stammdaten.mdb"
Set objApp = CreateObject("Access.Application")
objApp.OpenCurrentDatabase strDbName
Set rsQuery = CurrentDb.OpenRecordset("Inventory_Value_Update")
Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)
With myMail
.To = "blah@blah.de"
.CC = "blah@blah.de"
.Subject = "My first mail sent with Outlook-Automation"
.Body = "The new inventory level is " & rsQuery
.Send
End With
End Function |
- 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
|
|
29.11.2016 11:48:15 |
Thomas |
|
|
|
29.11.2016 17:29:04 |
BigBen |
|
|
|
29.11.2016 21:00:25 |
Thomas |
|
|
|
29.11.2016 21:04:47 |
Thomas |
|
|
|
29.11.2016 21:06:58 |
Thomas |
|
|
|
29.11.2016 21:13:05 |
BigBen |
|
|
|
29.11.2016 21:17:48 |
BigBen |
|
|
Access Abfrage per email senden |
30.11.2016 16:52:13 |
Thomas |
|
|