Thema Datum  Von Nutzer Rating
Antwort
Rot VBA E-Mail
 15.11.2018 13:20:12 Laura
NotSolved

Ansicht des Beitrags:
Von:
Laura		 Datum:
15.11.2018 13:20:12		 Views:
946		 Rating:
     
Antwort:
  Ja
Thema:
VBA E-Mail

Hallo Zusammen

Ich habe einen VBA Code der eine E-Mail an mich sendet, sobald ein gewisses Datum erreicht ist. Dies geschieht alles in Access. Doch wenn es mehrere Werte gibt, welche auf die Bedingung zustimmen, wird nur der letzte Wert an mich gesendet. Wie kann ich machen, dass er alle Werte an mich sendet?


Private Sub btnSend_Click()
 Dim oApp As New Outlook.Application
    Dim oEmail As Outlook.MailItem 'Verweiss auf das Outlook Programm
     
    Set oEmail = oApp.CreateItem(olMailItem)
    'E-Mail Objekt erstellen
    
    
    oEmail.To = "testmail@gmail.com" 'Hier wird die E-Mail hin gesendet
    oEmail.Subject = "Das Leihgerät von " + Reports!berichtAusleihdaten![Ausgeliehen von] + " ist abgelofen" 'Hier wird der Betreff definiert, in diesem Fall mit Bezug zu einem Bericht
    oEmail.Body = "Das folgende Leihgerät läuft aus: " + Reports!berichtAusleihdaten![Produkt] 'Hier wird der Inhalt der E-Mail definiert, ebennfalls mit Bezug zum Bericht
    With oEmail
        
   If (Reports!berichtAusleihdaten![Zurück bringen am] >= Date) Then 'Bedingung definieren(wenn "Zurück bringen am" das heutige Datum erreicht oder grösser ist wird eine E-Mail gesendet)
        .Send 'Befehl zum senden
        MsgBox "Email wurde gesendet" 'TextBox für die Bestätigung
    Else
        MsgBox "Keine auslaufende Geräte gefunden" 'Falls die Bedingung nicht erfüllt kommt diese TextBox
    End If
    
    End With
    
'Falls hilfe benötigt, kontaktiere:maximilian.scheuber@gmail.com

End Sub

Würde mich echt über Hilfe freuen:)

 

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot VBA E-Mail
 15.11.2018 13:20:12 Laura
NotSolved