Hallo!
1. Ich habe eine Befehlsschaltfläche erstellt, bei dir ich per Knopfdruck ein Tabellenblatt an gmx sende. Bevor es mir aber die E-Mail versenden soll, möchte ich noch eine beliebige Nachricht eingeben? Ich weiß nicht, wie ich das dem Programm mitteile.
2. Möchte ein Diagramm aus einem Tabellenblatt per Knopfdruck auf einer Befehlsschaltfläche öffnen? Welche Buttons und welche Funktion brauche ich dafür?
3. 9. Zeile von unten. Ich möchte, dass die gesamte Excel Datei an die von mir eingerichtete E-Mail Adresse gesendet wird. Das Programm erkennt aber nicht den Dateinamen?!
Dim f, g, Dateiname
If MsgBox("Wollen Sie wirklich die gesamte Excel Datei an die Fahrschule Burgstaller senden?", vbQuestion + vbYesNo) = vbYes Then
Dateiname = InputBox("Unter welchem Dateinamen soll die Datei gesichert und versendet werden?")
ChDir _
"C:\Dokumente und Einstellungen\schule\Eigene Dateien\Eigene Dateien\Schule\3. Klasse\Wirtschaftsinformatik"
ActiveWorkbook.SaveAs Dateiname
f = InputBox("Geben Sie bitte den Betreff ein!")
Sheets(Dateiname.xls).Copy '?
ActiveWorkbook.SendMail "Burgstaller.Fahrschule@gmx.net", (f)
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Else
MsgBox ("Bis bald!")
End If
Vielen Dank!
Mit freundlichen Grüßen Reast_91
Reast_91 ist gerade online
1. Ich habe eine Befehlsschaltfläche erstellt, bei dir ich per Knopfdruck ein Tabellenblatt an gmx sende. Bevor es mir aber die E-Mail versenden soll, möchte ich noch eine beliebige Nachricht eingeben? Ich weiß nicht, wie ich das dem Programm mitteile.
2. Möchte ein Diagramm aus einem Tabellenblatt per Knopfdruck auf einer Befehlsschaltfläche öffnen? Welche Buttons und welche Funktion brauche ich dafür?
3. 9. Zeile von unten. Ich möchte, dass die gesamte Excel Datei an die von mir eingerichtete E-Mail Adresse gesendet wird. Das Programm erkennt aber nicht den Dateinamen?!
Dim f, g, Dateiname
If MsgBox("Wollen Sie wirklich die gesamte Excel Datei an die Fahrschule Burgstaller senden?", vbQuestion + vbYesNo) = vbYes Then
Dateiname = InputBox("Unter welchem Dateinamen soll die Datei gesichert und versendet werden?")
ChDir _
"C:\Dokumente und Einstellungen\schule\Eigene Dateien\Eigene Dateien\Schule\3. Klasse\Wirtschaftsinformatik"
ActiveWorkbook.SaveAs Dateiname
f = InputBox("Geben Sie bitte den Betreff ein!")
Sheets(Dateiname.xls).Copy '?
ActiveWorkbook.SendMail "Burgstaller.Fahrschule@gmx.net", (f)
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Else
MsgBox ("Bis bald!")
End If
Vielen Dank!
Mit freundlichen Grüßen Reast_91
Reast_91 ist gerade online
