Hallo miteinander,
ich versuche gerade aus Access mit VBA eine Outlook-Email zu erstellen. Das funktioniert prima. Per .Display zeige ich diese dem User zur Kontrolle noch einmal an.
Nun möchte ich im Programm abfragen ob der User im Outlook-Mail-Programm auf "Senden" geklickt hat. Ich habe mich durch ein paar Forenbeiträge durchgelesen und festgestellt, dass das Mailobject objMail die Variable "Sent" enthält, mit der ich überprüfen könnte, ob die Mail abgesendet wurde. Leider looped das Programm nicht, nachdem ich dem User die Mail per ".Display" anzeige.
Hier der Code:
ich versuche gerade aus Access mit VBA eine Outlook-Email zu erstellen. Das funktioniert prima. Per .Display zeige ich diese dem User zur Kontrolle noch einmal an.
Nun möchte ich im Programm abfragen ob der User im Outlook-Mail-Programm auf "Senden" geklickt hat. Ich habe mich durch ein paar Forenbeiträge durchgelesen und festgestellt, dass das Mailobject objMail die Variable "Sent" enthält, mit der ich überprüfen könnte, ob die Mail abgesendet wurde. Leider looped das Programm nicht, nachdem ich dem User die Mail per ".Display" anzeige.
Hier der Code:
Visual Basic-Quellcode
- Dim objOutlook As Outlook.Application
- Dim objMail As Outlook.MailItem
- Set objOutlook = CreateObject("Outlook.Application")
- Set objMail = objOutlook.CreateItem(0)
- With objMail
- .To = Modul_ArtikelDB.GetConfigValue("Email_XXX")
- .cc = ""
- .Subject = "Neuer Artikel in XXXX > " & frm!ArtNr & "_" & frm!Bezeichnung
- 'HTMLbody1 und 2 wurden weiter oben als Strings definiert
- .HTMLBody = HTMLbody1 & HTMLbody2
- .Display
- End With
- '------------> Die folgenden Codezeilen sollten erst ausgeführt werden, nachdem der User auf Senden oder Abbrechen geklickt hat(in Outlook)
- If objMail.Sent = True Then
- 'Die E-Mail wurde tatsächlich vom User abgeschickt.
- frm![XXXX] = Now()
- frm![XXX] = Date + 2
- frm![XXXXX] = "in sh@re beantragt"
- DoCmd.Close acForm, Me.Name
- frm.Form.Requery
- frm.btnSpeichernSchliessen_Click
- MsgBox "Die E-Mail an die XXXX wurde erfolgreich versendet."
- Else
- MsgBox "Die E-Mail wurde n i c h t korrekt abgesendet!"
- End If