Mailversand per VBA Senden nach .Display überwachen

Moderator: ModerationP

Mailversand per VBA Senden nach .Display überwachen

Beitragvon Patrick2P » 22. Aug 2021, 13:19

Hallo Zusammen,

wie ich eine E-Mail per VBA bspw. aus Access heraus erstelle und mit Inhalten befülle weiss ist. Auch, dass ich mir das Mailobjekt abschließend über .display anzeigen lassen kann bzw. es üver .send auch gleich versenden kann.

Ist es aber auch möglich, dass ich die Mail über .display anzeige und danach überwache, ob die angezeigte Mail auch wirklich manuell versendet wird? Ich würde gerne nur in diesem Fall weitere Schritte in VBA einleiten.

Vielen Dank für Eure Hilfe.

Grüße

Patrick
Patrick2P
Neuling
 
Beiträge: 2
Registriert: 25. Feb 2021, 15:02

Re: Mailversand per VBA Senden nach .Display überwachen

Beitragvon Gast » 23. Aug 2021, 11:13

Möglichkeiten gibt es viele.
Warum nicht das Mailitem.Send Event verwenden?
Gast
 

Re: Mailversand per VBA Senden nach .Display überwachen

Beitragvon DerHoepp » 23. Aug 2021, 14:58

Moin,

ein Codebeispiel (mit gesetztem Verweis auf die Outlook-Bibliothek):
Code: Alles auswählen
Option Explicit

Private WithEvents MI As Outlook.MailItem

Sub testen()
    Dim outapp As Outlook.Application
   
    Set outapp = New Outlook.Application
    Set MI = outapp.CreateItem(Outlook.olMailItem)
    With MI
        .Subject = "Hallo"
        .Display
    End With
End Sub

Private Sub MI_Close(Cancel As Boolean)
    MsgBox "The MailItem triggered the close-event"
End Sub

Statt des Send-Events, hab ich mal Close verwendet, damit ich das Testdings nicht erst abschicken musste.

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9841
Registriert: 14. Mai 2013, 11:08


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

cron