XProfan & PHP Mailer
[ Nach unten | Zum letzten Beitrag | Thema abonnieren | Neueste Beiträge zuerst ]
XProfan & PHP Mailer
von Paradox am 26.02.2009 10:00Folendes PHP Script auf PHP fähigen Webspace hochladen und nach email.php umbenennen:
<?php
$betr = $HTTP_GET_VARS[betr];
$msg = $HTTP_GET_VARS[msg];
$abs = $HTTP_GET_VARS[abs];
$emp = $HTTP_GET_VARS[emp];
mail($emp, $betr, $msg,"From: $absnReply-To: $mailnX-Mailer: PHP/" . phpversion());
echo "eMail wurde versand";
?>
$betr = $HTTP_GET_VARS[betr];
$msg = $HTTP_GET_VARS[msg];
$abs = $HTTP_GET_VARS[abs];
$emp = $HTTP_GET_VARS[emp];
mail($emp, $betr, $msg,"From: $absnReply-To: $mailnX-Mailer: PHP/" . phpversion());
echo "eMail wurde versand";
?>
Hier der XProfan Code:
Declare Url$
Declare Dlg&, WebBrowser&, e%
Proc Nach_Php
' Übergabe der Daten an das PHP-Script
' URL anpassen!
Parameters abs$, empf$, betr$, msg$
URL$ = "http://paradox.bplaced.net/email.php?emp="+empf$+"&betr="+betr$+"&msg="+msg$+"&abs="+abs$
' Diese URL kann und darf zum testen benutzt werden.
Dlg& = Create("Dialog", %hwnd, "", 000, 000, 800, 600)
WebBrowser& = Create("HTMLWin", Dlg&, URL$, 0, 000, 000, 220, 080)
EndProc
CLS
Nach_Php "[email protected]","[email protected]","Hallo Test","Wie Isses"
e% = 0
WhileNt e%
WaitInput
If %key = 2
e%=1
EndIf
EndWhile
End
Declare Dlg&, WebBrowser&, e%
Proc Nach_Php
' Übergabe der Daten an das PHP-Script
' URL anpassen!
Parameters abs$, empf$, betr$, msg$
URL$ = "http://paradox.bplaced.net/email.php?emp="+empf$+"&betr="+betr$+"&msg="+msg$+"&abs="+abs$
' Diese URL kann und darf zum testen benutzt werden.
Dlg& = Create("Dialog", %hwnd, "", 000, 000, 800, 600)
WebBrowser& = Create("HTMLWin", Dlg&, URL$, 0, 000, 000, 220, 080)
EndProc
CLS
Nach_Php "[email protected]","[email protected]","Hallo Test","Wie Isses"
e% = 0
WhileNt e%
WaitInput
If %key = 2
e%=1
EndIf
EndWhile
End
Wie immer ausbaufähig. Aber funktioniert schon jetzt.
Nützlich für eigene Anwendungen oder Spiele als Kontaktformular,Supportangebot
oder ähnlichem.
Gruß
Antworten