Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Command Button Mail versenden mit Passwort


Betrifft: Command Button Mail versenden mit Passwort von: Alex
Geschrieben am: 30.01.2018 20:35:06

Guten Abend zusammen,

ich habe eine Tabelle in der ich ein Makro für das Versenden einer E-Mail mittels Commandbutton erstellt habe.
Da dieser Button zu oft unbeabsichtigt geklickt wird und man mir so das Postfach zumüllt, würde ich gerne eine Passwortabfrage vorschalten.

Heißt:
Man klickt auf den Commandbutton, in welches ein PW eingetragen werden muss. Wenn korrekt, dann wird die Mail verschickt, ansonsten wird das Makro beendet.
Sub SendMail()
Mein Code soweit...

Dim entity As String
Dim Outlook As Object
Dim Message As Object
Dim attachmentPath As String
Dim path As String
Dim i As Integer

Const year As Integer = "2018"

Dim List As Worksheet
Set List = ActiveWorkbook.Worksheets("Invest")

Set Outlook = CreateObject("Outlook.Application")
Set Message = Outlook.CreateItem(0)

entity = List.Cells(3, 8).Value 'GesellschaftsNr aus Zelle H3
entityname = List.Cells(10, 2).Value 'GesellschaftsNr aus Zelle H2


If entity = "" Then
MsgBox ("Bitte geben Sie den Standort in Zelle H2 an.")
List.Activate
Cells(2, 8).Select
Exit Sub
End If


If List.Cells(5, 8) = "" Then
MsgBox ("Bitte geben Sie das Versionsdatum in Zelle H5 an.")
List.Activate
Cells(5, 8).Select
Exit Sub
End If


If List.Cells(9, 22) <> 0 Then
MsgBox ("Bitte füllen Sie alle Pflichtfelder aus!")
List.Activate
Cells(9, 22).Select
Exit Sub
End If


If List.Cells(4, 8) = "" Then
MsgBox ("Bitte geben Sie einen Ansprechpartner in Zelle H4 an.")
List.Activate
Cells(4, 8).Select
Exit Sub
End If


path = ActiveWorkbook.path

ActiveWorkbook.SaveCopyAs (path & "\Plan" & "2019_" & entity & " " & entityname & ".xlsm")
attachmentPath = path & "\Plan" & "2019_" & entity & " " & entityname & ".xlsm"

'---> Versand der Datei via Outlook
With Message
.To = "Alex"
.Subject = "Plan " & "2019" & " " & entityname
.Attachments.Add attachmentPath
On Error GoTo Label
.send
End With

Set Outlook = Nothing
Set Message = Nothing

Kill attachmentPath 'Kopie der Planungsdatei wird gelöscht
MsgBox ("Datei wurde versandt. Vielen Dank!")
Exit Sub

Label:
Kill attachmentPath
MsgBox ("Datei wurde NICHT versandt. Drücken Sie den Versendebutton erneut. " & vbNewLine _
& "Zum Versenden das Outlook Fenster mit ""JA"" anklicken. " & vbNewLine & "Vielen Dank!")

  

Betrifft: AW: Command Button Mail versenden mit Passwort von: Rudi Maintaire
Geschrieben am: 30.01.2018 21:26:12

Hallo,
da sollte doch eine Bestätigung per MsgBox ausreichen.
Am Anfang des Codes

if msgbox("wirklich senden?",vbyesno,"Abfrage") <>vbyes then exit sub

Gruß
Rudi


  

Betrifft: AW: Command Button Mail versenden mit Passwort von: Alex
Geschrieben am: 30.01.2018 22:05:03

Hallo,

danke für den Tipp; funktioniert auch soweit.
Allerdings würde ich die Passworteingabe bevorzugen.

Hast du hierzu auch eine Idee?

LG


  

Betrifft: AW: Command Button Mail versenden mit Passwort von: Rudi Maintaire
Geschrieben am: 31.01.2018 13:17:18

Hallo,
bei dem Level solltest du das eigentlich selbst können.

  If InputBox("Passwort:", "Abfrage") <> "DeinPasswort" Then Exit Sub

Gruß
Rudi


Beiträge aus dem Excel-Forum zum Thema "Command Button Mail versenden mit Passwort"