PDA

Vollständige Version anzeigen : Einfügen von MsgBox"Möchten sie die Speisekarte ....."


Ivy
30.06.2014, 18:10
Liebe Profi's

Ich brauche bitte eure Hilfe.



Sub PDFemail()

Dim olApp As Object
Dim AWS As String

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Speisekarte " & Format(Now, "yyyy.mm.dd_hhnn") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

AWS = "D:\Speisekarte " & Format(Now, "yyyy.mm.dd_hhnn") & ".pdf"

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = "max.mustermann@gmail.com"
.Subject = "Speisekarte" ' Betreff
.htmlBody = "Sehr geehrter Damen und Herren,<br><br>" & _
"Anbei die tagesaktuelle Speisekarte.<br><br>"

.Attachments.Add AWS 'Datei anhängen
.Send 'Email senden

End With



In diesem Code wird die Speisekarte nach drücken des Buttons sofort abgespeichert und geschickt.
Nun möchte ich aber vorher noch eine MsgBox einfügen, die dem Nutzer fragt, ob er die Speisekarte wirklich speichern und abschicken möchte (mit ja oder nein).

Könnt ihr mir bitte den Code vervollständigen?

Danke für eure Hilfe.
Lg Ivy

Hajo_Zi
30.06.2014, 18:12
Option Explicit

Sub Test()
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
End Sub


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Ivy
30.06.2014, 19:33
Hallo Hajo,

Danke für deine schnelle Antwort.

Habe den Code so eingefügt:



Sub PDFemail()

Dim olApp As Object
Dim AWS As String

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Speisekarte " & Format(Now, "yyyy.mm.dd_hhnn") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

AWS = "D:\Speisekarte " & Format(Now, "yyyy.mm.dd_hhnn") & ".pdf"

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = "max.mustermann@gmail.com"
.Subject = "Speisekarte" ' Betreff
.htmlBody = "Sehr geehrter Damen und Herren," & _
"Anbei die tagesaktuelle Speisekarte."

.Attachments.Add AWS 'Datei anhängen
.Send 'Email senden

End With

If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If

End Sub



Die MsgBox funktioniert mit den Abfragen, aber wenn ich den Auftrag löschen möchte und auf ja klicke, wird die Speisekarte trotzdem gespeichert und per Mail geschickt.
Das möchte ich aber verhindern.

Danke, lg Ivy

Hajo_Zi
30.06.2014, 20:00
Du musst die entsprechenden Aktion bei Msgbox Ja und Nein Anordnen.
Die Antwort hat bei Dir keinen Einfluss.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Ivy
30.06.2014, 20:03
Kannst du mir bitte dabei helfen.
Ich weiß nicht wie?
Danke

Lg Ivy

Hajo_Zi
30.06.2014, 20:05
Du weist doch am besten welche Aktionen bei Ja ausgeführt werden sollen, also die Zeilen dorthin verschieben.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Ivy
30.06.2014, 20:32
Danke Hajo,

für deine Hilfe.
Es hat funktioniert.
Du kennst dich wirklich sehr gut aus und ich bin froh, dass du in diesem Forum bist,
wie auch viele andere.

Lg Ivy