Excel Problem - Mail senden => Abfrage?

Excel Problem - Mail senden => Abfrage? (6 Beiträge, 97 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo Leute

Ich möchte in einem Excel per Button automatisch ein Mail verschicken,m das habe ich mit unten angeführten Code auch geschafft.

- - -
Public Sub Create_Mail()

    Dim objOutlook As Object
    Dim objMail As Object

    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)

    With objMail
        .To = "mailadresse@mailadresse.com"
        .Subject = "Es gibt einen neuen Eintrag"
        .Body = "Bitte aktualisieren Sie Ihre Liste!"
        .Send
    End With

    Set objMail = Nothing
    Set objOutlook = Nothing

End Sub
- - -

Wie kann ich aber jetzt in den Code noch einbauen, dass eine Abfrage aufpoppt ob das Mail wirklich geschickt werden soll oder nicht?
Welche Codezeilen sind dafür nötig?

Ich ersuche um DAU-gerechte Antworten

und bedanke mich schon jetzt für Eure Hilfe.

Edit: Habe das Problem gerade durch einfügen von folgendem Code selbst gelöst:

If MsgBox("Soll der automatische eMail Versand gestartet werden ?", _
vbYesNo + vbQuestion, "Frage") = vbNo Then Exit Sub

Schließe somit das Thema

(lasse es aber Zwecks sichtbar, falls jemand mal was ähnliches sucht)
lg
bono_d70

_______________________________________________________________________________
Rechtschreibfehler dürfen vom Finder, ohne Angabe von Gründen, behalten werden!
Bekennender Agnostiker!

Ich plonke: mathias1000

05.05.2014, 10:47 Uhr - Editiert von bono_d70, alte Version: hier

Re: Excel Problem - Mail senden => Abfrage? (elchupacabre am 05.05.2014, 11:17:23)

Re(2): Excel Problem - Mail senden => Abfrage?

(bono_d70 am 05.05.2014, 11:31:47)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung