Bei Fehler - anderes Makro ausführen
Stef@n
ich stehe vor folgender Fragestellung:
Wenn das u.a. Makro ausgeführt wird, der User aber kein Outlook hat, erscheint eine Fehlermeldung.
Jetzt möchte ich erreichen, dass - wenn ein Fehler auftritt - ein anderes Makro automatisch gestartet wird.
Wie müsste der Code angepasst werden, dass z.B. eine Messagebox erscheint.
.. if fehler then ...
Kriegs irgendwie nicht hin :(
Freu mich auf eine Antwort
Gruß
Stef@n
Sub Mail_via_Outlook()
Dim olapp As Object
Dim objMail As Object
Dim Empfaenger As String
Empfaenger = [L13]
If Range("O10").Value = "TEST" Then
Set olapp = CreateObject("Outlook.Application")
Set objMail = olapp.CreateItem(olMailItem)
With objMail
.To = Empfaenger
.Subject = Environ("Username") & " sendet den Hinweis!"
.Body = Worksheets("Abfrage").Range("I11").Value
.Send 'legt die Mail gleich in den Postausgang
End With
End If
End Sub
Anzeige