mit Excel E-Mail verschicken, aber ohne CommandBut
mtremer
mit folgendem Code lasse ich durch Excel eine E-Mail generieren:
Private Sub CommandButton1_Click()
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = fncUmlaut(Range("N1")) & "." & fncUmlaut(Range("M1"))
.Subject = "Reporting Ihrer Leads von KW" & KW
strTxt = "Sehr geehrte Frau "
.Htmlbody = strTxt
.Attachments.Add ThisWorkbook.FullName
.Display
End With
End Sub
Und hier kommt mein Problem: Ich will nicht, dass diese mit versendet werden. Allerdings sollen sie für den nächsten Arbeitsschritt weiterhin vorhanden sein. Da ich sie also nicht löschen kann, wollte ich sie für den Vorgang des E-Mail-Generierens unsichtbar machen. Also Visible=False vor den E-Mail-Code und Visible=True dahinter. Leider geht das nicht. Diese Codezeilen füge ich also drum herum:
ActiveSheet.Shapes("CommandButton1").Visible = False
-E-Mail-Code von oben-
ActiveSheet.Shapes("CommandButton1").Visible = True
Kann mir hier jemand helfen, die Commandbuttons nur für die E-Mail zu verstecken?
Danke.
Viele Grüße
Marco