Seriendruck Pläne per Mail verschicken

[thowe]

Hallo Jens,

Anstatt das gesamte Gedöns, das du hier zur Verfügung stellst, könnte die Syntax lauten (ungebprüft, gerade kein Excel zur Hand)

Code: Alles auswählen

If MsgBox("Soll der Einsatzplan Verschickt werden?", vbYesNo) = vbYes Then

' dein Absendecode hierher

End if

Du kannst auch ..., vbYesNoCancel verwenden.

[d'r Bastler]

Moin Jens,

da hat thowe aber ungewohnt harte Worte gefunden: "Gedöns", Aber er hat leider Recht, es ist unnötig aufgeblasener Spaghetti-Code
Ich vermute mal, Du kannst mit seiner Kurzfassung nicht viel anfangen und ich habe im Moment keine Ahnung, wo Du den entsprechenden Button denn gesetzt hast. Vielleicht hilft dennoch mein Standard-Code für solche Forks (engl. für Gabelung)

Code: Alles auswählen

Sub Fork()
Dim f As Byte

f = MsgBox("Soll der Plan verschickt werden?", 3, "Frage:")
Select Case f
    Case 2
        MsgBox "Abbruch"
    Case 7
        MsgBox "Nein"
    Case 6
        MsgBox "Mach ich doch gerne"
End Select
    
End Sub

Du kannst die Sub so schon testen. Ansonsten baust Du den Code an der Stelle ein, an der die MsgBox erscheinen soll - lasst aber natürlich die sub-Zeilen weg. Die 3 im msgbox-Code steht für Ja/Nein/Abbrechen.

Für Deine Zwecke dürften folgende Cases passen:

Code: Alles auswählen

Case 2, 7
    Exit Sub
Case 6
    SendMail

Viel Erfolg

[Hobbit]

Moin,

vielen dank für den Code @ Thowe.

Das reicht völlig.
Ja und nein reicht ja, weil nein ist ja auch so gesehen abbrechen.

Vielen dank an dich @ d'r Bastler.


Vielen dank für die schnelle Hilfe.