Vb-script im email

3of4 · 28.11.2001, 18:49

Ich will meinen Freund dazu überreden das er aufhört Outlook Express als Mailbrowser zu verwenden, oder zumindest vb, u. ä. scripte deaktiviert.

Deshalb will ich im ein mail schicken, in dem ich die Gefahren zeige. (auch in OUTLOOK, weil ich da gleich testen kann obs funkt)

Funkt aber leider nicht:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<STYLE></STYLE>

<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>
<SCRIPT language=vbscript>
Dim x As String
x = MsgBox("Die Festplatte wird jetzt formatiert.", vbYesNo, "Festplatte formatieren")
If (x = vbNo) Then
DoCmd.Beep
MsgBox "Error 0815, Festplatte wird trotzdem formatiert", vbCritical, "Fakemeldung"

End If
If (x = vbYes) Then
MsgBox "Tu das ja nie wieder!!! Dein Windows", vbOKOnly, "ichbinsauer"
End If
</SCRIPT>
</BODY></HTML>

Leider meldet mir Outlook immer einen Fehler, was kann das sein?

Ps: Ich weiß das Programm ist dumm und primitiv programmiert, aber ich programmiere vb erst seit Montag( 2 Accessstunden), vorher hatte ich mir immer nur scripte kopiert.

mqs · 28.11.2001, 18:54

Bei Visual basic muss man, wenn du eine Message ausgibtst normal eine Variable davor setzen, so zB:

var = msgbox("text...")

Jedenfalls bekomme ich sonst immer einen Error, wenn ich das nicht mache.

mqs · 28.11.2001, 18:56

Bei der Abfrage hast du das ja wohl, aber darunter nicht:

[quote]
DoCmd.Beep
MsgBox "Error 0815, Festplatte wird trotzdem formatiert", vbCritical, "Fakemeldung"

3of4 · 28.11.2001, 20:18

davon weiß ich nichts, mir wird der Fehler bei Zeile 9 (wo <script language =...> steht gemeldet, und zwar bei Zeichen 7

werner_q · 30.11.2001, 08:50

weiss ich nicht, aber so geht's zumindest in HTML
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">

<title></title>
</head>

<body>
<script language="vbscript">

x = MsgBox("Die Festplatte wird jetzt formatiert.", vbYesNo, "Festplatte formatieren")
If (x = vbNo) Then MsgBox "Error 0815, Festplatte wird trotzdem formatiert", vbCritical, "Fakemeldung"
If (x = vbYes) Then MsgBox "Tu das ja nie wieder!!! Dein Windows", vbOKOnly, "ichbinsauer"

</script>
</body>
</html>

Als Datentyp kennt VBS nur Variant, explizites deklarieren ist zwar möglich (und guter Stil), aber Dim x As y gibt's eben nicht.

DoCmd is so ein typischer Access-Fummel, den kennt VBS nicht. Ich weiss auch nicht, wie man da Piept. Lad' dir am besten die VBScript Language Reference direkt vom MSDN runter.

28.11.2001, 18:49	#1
3of4 Elite Registriert seit: 14.11.1999 Alter: 40 Beiträge: 1.429	Vb-script im email Ich will meinen Freund dazu überreden das er aufhört Outlook Express als Mailbrowser zu verwenden, oder zumindest vb, u. ä. scripte deaktiviert. Deshalb will ich im ein mail schicken, in dem ich die Gefahren zeige. (auch in OUTLOOK, weil ich da gleich testen kann obs funkt) Funkt aber leider nicht: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <STYLE></STYLE> <META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD> <BODY bgColor=#ffffff> <SCRIPT language=vbscript> Dim x As String x = MsgBox("Die Festplatte wird jetzt formatiert.", vbYesNo, "Festplatte formatieren") If (x = vbNo) Then DoCmd.Beep MsgBox "Error 0815, Festplatte wird trotzdem formatiert", vbCritical, "Fakemeldung" End If If (x = vbYes) Then MsgBox "Tu das ja nie wieder!!! Dein Windows", vbOKOnly, "ichbinsauer" End If </SCRIPT> </BODY></HTML> Leider meldet mir Outlook immer einen Fehler, was kann das sein? Ps: Ich weiß das Programm ist dumm und primitiv programmiert, aber ich programmiere vb erst seit Montag( 2 Accessstunden), vorher hatte ich mir immer nur scripte kopiert. ____________________________________ Resistantium est futilius

28.11.2001, 18:54	#2
mqs Master Registriert seit: 08.05.2001 Alter: 44 Beiträge: 533	Bei Visual basic muss man, wenn du eine Message ausgibtst normal eine Variable davor setzen, so zB: var = msgbox("text...") Jedenfalls bekomme ich sonst immer einen Error, wenn ich das nicht mache. ____________________________________ http://www.schmausen.at Dein Infoportal für Mittagsmenüs in Klagenfurt

28.11.2001, 18:56	#3
mqs Master Registriert seit: 08.05.2001 Alter: 44 Beiträge: 533	Bei der Abfrage hast du das ja wohl, aber darunter nicht: [quote] DoCmd.Beep MsgBox "Error 0815, Festplatte wird trotzdem formatiert", vbCritical, "Fakemeldung" ____________________________________ http://www.schmausen.at Dein Infoportal für Mittagsmenüs in Klagenfurt

28.11.2001, 20:18	#4
3of4 Elite Registriert seit: 14.11.1999 Alter: 40 Beiträge: 1.429	davon weiß ich nichts, mir wird der Fehler bei Zeile 9 (wo <script language =...> steht gemeldet, und zwar bei Zeichen 7 ____________________________________ Resistantium est futilius

30.11.2001, 08:50	#5
werner_q Veteran Registriert seit: 17.05.2001 Alter: 57 Beiträge: 299	Ob das in Outlook den gewünschten Effekt hat weiss ich nicht, aber so geht's zumindest in HTML <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title></title> </head> <body> <script language="vbscript"> x = MsgBox("Die Festplatte wird jetzt formatiert.", vbYesNo, "Festplatte formatieren") If (x = vbNo) Then MsgBox "Error 0815, Festplatte wird trotzdem formatiert", vbCritical, "Fakemeldung" If (x = vbYes) Then MsgBox "Tu das ja nie wieder!!! Dein Windows", vbOKOnly, "ichbinsauer" </script> </body> </html> Als Datentyp kennt VBS nur Variant, explizites deklarieren ist zwar möglich (und guter Stil), aber Dim x As y gibt's eben nicht. DoCmd is so ein typischer Access-Fummel, den kennt VBS nicht. Ich weiss auch nicht, wie man da Piept. Lad' dir am besten die VBScript Language Reference direkt vom MSDN runter.

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)