ich verwende nachfolgenden Code, um eine Email aus Excel zu versenden. Funktioniert soweit auch alles prima. Leider aber nur, wenn Outlook zuvor schon mal geöffnet wurde. Mein Frage lautet: Kann man Excel anweisen, Outlook vorher zwingend zu öffnen? 2. Frage... Wie baue ich einen Errorhandler in den Code ein, da nämlich ansonsten ein Fehler kommt.
Sub Email()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim Email_to As String
Dim Email_cc As String
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = Email_to 'Emailempfänger im to
.cc = Email_cc 'Emailempfänger im CC
.Subject = Betreff
.Body = Text
.Display
.send
End With
MsgBox ("Eine Email wurde erfolgreich verschickt!")
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub