|
Hallo zusammen, ich möchte das wenn man auf eine Schaltfläche klickt, folgende Aktion abspielt: WENN A1 ist leer, DANN schreib eine E-Mail ohne CC SONST mit CC. In A1 soll eine E-Mail stehen, welche dann eben in CC gesetzt werden soll, wenn da aber keine E-Mail steht, soll auch kein CC generiert werden. Ich habe folgenden Code hierfür:
Sub Rechteck12_Klicken()
If Worksheets("Tabelle1").Range("A1") = "" Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "someone@something.com"
.Subject = "Test"
.Body = "Test"
.Display
Else
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "someone@something.com"
.CC = Worksheets("Tabelle1").Range("A1")
.Subject = "Test"
.Body = "Test"
.Display
End If
End Sub
Wenn ich das ganze ausprobieren will kommt aber leider die Meldung: „Fehler beim Kompilieren: Else ohne If“ Hat jemand eine Lösung für mich? Vielen Dank!
|