VBA Warten Lassen in Excel
Schritt-für-Schritt-Anleitung
Um in Excel VBA zu warten, bis eine E-Mail gesendet wurde, kannst du den folgenden Code verwenden. Dieser prüft, ob das E-Mail-Fenster noch geöffnet ist und gibt dir die Möglichkeit, zu reagieren, wenn die E-Mail gesendet wurde oder wenn der Nutzer das Fenster schließt.
Option Explicit
Private Declare Function SetActiveWindow Lib "USER32.DLL" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "USER32.DLL" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Sub prcMail()
Dim myOutlookApplication As Object, myMail As Object
Set myOutlookApplication = CreateObject("Outlook.Application")
Set myMail = myOutlookApplication.CreateItem(0)
With myMail
.To = "abc@xyz.de"
.Subject = "Rücksendung " & ThisWorkbook.Name
.Attachments.Add ThisWorkbook.FullName
.Display ' E-Mail wird angezeigt
End With
' Hier wird gewartet, bis das E-Mail-Fenster geschlossen wird
Do While FindWindow("rctrl_renwnd32", vbNullString) <> 0
DoEvents ' Erlaubt anderen Prozessen zu laufen
Loop
' Hier kannst du den Status der E-Mail überprüfen
MsgBox "Die E-Mail wurde geschlossen oder gesendet."
' Ressourcen freigeben
Set myMail = Nothing
Set myOutlookApplication = Nothing
ThisWorkbook.Saved = True
End Sub
Häufige Fehler und Lösungen
-
Problem: Der Code funktioniert nicht, weil das E-Mail-Fenster nicht erkannt wird.
- Lösung: Stelle sicher, dass der Fenstertitel korrekt ist. Der Code verwendet
FindWindow, um das E-Mail-Fenster zu finden. Prüfe, ob das Fenster korrekt angezeigt wird und der Titel mit dem Suchbegriff übereinstimmt.
-
Problem: Excel bleibt hängen, während auf die E-Mail gewartet wird.
- Lösung: Verwende
DoEvents, um Excel die Möglichkeit zu geben, andere Aufgaben zu verarbeiten, während es auf das Schließen des E-Mail-Fensters wartet.
Alternative Methoden
Eine alternative Methode, um in Excel VBA zu warten, besteht darin, einen Timer zu verwenden, der regelmäßig prüft, ob das E-Mail-Fenster noch geöffnet ist. Hier ist ein Beispiel:
Public Sub StartTimer()
Application.OnTime Now + TimeValue("00:00:01"), "CheckMailWindow"
End Sub
Public Sub CheckMailWindow()
If FindWindow("rctrl_renwnd32", vbNullString) = 0 Then
MsgBox "Die E-Mail wurde gesendet oder geschlossen."
Else
StartTimer ' Timer erneut starten
End If
End Sub
Praktische Beispiele
Ein häufiges Szenario ist das Versenden von Berichten oder Statusupdates per E-Mail. Du kannst den oben beschriebenen Code verwenden, um sicherzustellen, dass die E-Mail erfolgreich gesendet wurde, bevor du weitere Aktionen in Excel ausführst.
Tipps für Profis
- Nutze die Möglichkeit, benutzerdefinierte Nachrichten in der E-Mail zu generieren, indem du Excel-Daten dynamisch einfügst.
- Überlege, eine UserForm zu verwenden, um dem Nutzer die Möglichkeit zu geben, die E-Mail vor dem Versenden zu bearbeiten, anstatt nur
.Display zu verwenden.
FAQ: Häufige Fragen
1. Frage: Kann ich das Warten auch für andere Aktionen in Excel nutzen?
Antwort: Ja, das Prinzip des Wartens kann für verschiedene Aktionen angewendet werden, indem du entsprechende Bedingungen für das Warten definierst.
2. Frage: Welche Excel-Version benötige ich für den VBA-Code?
Antwort: Der bereitgestellte Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und höher.