Vbvsphp mailer ou comment envoyer un mail sans winsock ni serveur smtp

Soyez le premier à donner votre avis sur cette source.

Vue 6 675 fois - Téléchargée 838 fois

Description

Voici un exemple d'utilisation de la commande Mail() PHP contrôlée par VB.

Les arguments (adresse e-mail, objet et message) sont passés à la l'url de cette manière par VB de façon à procéder comme un formulaire :

http://monsite.com/mail.php?email=monadresse@monfai.com&objet=Le sujet de mon message&msg=Le texte de mon message que j'envoie ici...

Il est évident que le code à ses limites, en voici quelques exemples :

- Les caractères spéciaux peuvent mal être interprétés (&, #, etc...)
- Comme le code PHP envoie le message en mode Text/HTML vous devez taper <br> pour avoir un retour à la ligne dans votre texte, etc...
- Ce code pour ceux qui ont les esprits rebelles pourrait servir facilement de Mailbomber mais sachez que quasi tous les FAI actuels ont fixé quotas d'utilisation de la fonction Mail() par compte et donc en exemple chez Free si plus 1'000 mails sont envoyés par semaine, votre compte sera bloqué, donc ce code est à utiliser de manière pondérée svp.
- la partie Mail From: que l'on peut ajouter dans le script PHP n'est pas configurable dans tous les cas (en principe, la'adresse d'expédition sera de ce style moncompteouj'aimonscript@faidemonscript.com
- Votre adresse IP est quand même loggée (pas de chance...)

Source / Exemple :


Option Explicit

Private Sub Command1_Click()

If Text1.Text = "" Then
    MsgBox "Vous devez spécifier une adresse pour le script PHP !", vbInformation
    Text1.SetFocus
    Exit Sub
End If

If Text2.Text = "" Then
    MsgBox "Vous devez spécifier une adresse E-Mail !", vbInformation
    Text2.SetFocus
    Exit Sub
End If

If Text3.Text = "" Then
    MsgBox "Vous devez donner un objet à votre E-Mail !", vbInformation
    Text3.SetFocus
    Exit Sub
End If

If Text4.Text = "" Then
    MsgBox "Vous devez écrire votre message !", vbInformation
    Text4.SetFocus
    Exit Sub
End If

Dim strURL As String
Dim strMail As String
Dim strMailState As String
Dim strObjet As String
Dim strMsg As String
Dim strCMD As String

strURL = Trim(Text1.Text)
'CODE PHP lié au projet VB
'
'<?
'$err="1";
'
'if (isset($email) && $email != "")  {
'    if (isset($objet) && $objet != "") {
'        if (isset($msg) && $msg!="") {
'            $err="0";
'        }
'    }
'}
'
'if ($err=="0") {
'    $entete = "Content-Type: text/html; charset=iso-8859-1\n";  // Envoie l'E-Mail en mode Texte et/ou HTML
'    $entete .= "X-priority:1";                  // Envoie l'E-Mail en priorité Haute
'    if (@mail($email, $objet, $msg, $entete) == true) {
'        echo "done";
'    }
'    else {
'        echo "error";
'    }
'}
'else {
'    echo "welcome";
'}
'?>
strMail = Trim(Text2.Text)
strObjet = Trim(Text3.Text)
strMsg = Trim(Text4.Text)
strCMD = strURL & "?email=" & strMail & "&objet=" & strObjet & "&msg=" & strMsg

strMailState = LirePage.LirePage(strCMD)

If strMailState = "done" Then
    MsgBox "E-Mail envoyé !", vbExclamation
ElseIf strMailState = "error" Then
    MsgBox "Echec de l'envoi de l'E-Mail !", vbExclamation
ElseIf strMailState = "welcome" Then
    MsgBox "Aucun paramètre d'E-Mail configuré !", vbExclamation
Else
    MsgBox "Erreur !" & vbCrLf & strMailState, vbExclamation
End If

End Sub

Conclusion :


Tout est dans le ZIP mais pour les as du copier/coller voici la liste des composants :

- 4 Textbox (Text1=URL du script PHP, Text2=Adresse E-Mail, Text3=Objet, Text4=Message)

- 1 bouton pour envoyer le mail (Command1)

- le module LirePage

Laissez vos commentaires, merci.

ps: je sais bien que d'autre sources existent mais je voulais vous faire profiter de la mienne :-)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Jiggy35 Messages postés 18 Date d'inscription jeudi 25 décembre 2003 Statut Membre Dernière intervention 12 août 2004
12 août 2004 à 15:19
alantygel>

désolé mais j'ai testé le zip et il semble ok, je ne peux rien faire de plus...

tar83>

http://ophidianlair.free.fr/prisedetete/mail/mail.php
il faut tester l'exe VB en mettant déjà ceci comme URL du script PHP. Chez moi le code fonctionne encore.
Il faut également être sûr que le provider accepte le PHP

L'erreur "Aucun paramètre d'E-Mail configuré !" provient du fait que les paramètres de l'adresse du script sont mal configurés ou ne sont pas compris.

voilà en espérant avoir pu quelque peu t'aider...

@+
tar83 Messages postés 1 Date d'inscription mardi 27 juillet 2004 Statut Membre Dernière intervention 4 août 2004
4 août 2004 à 19:24
desole j ai deja essayé mais ca marche pas car il m affiche tjrs 'Aucun paramètre d'E-Mail configuré' reponse le plutot possible
merci;-)
alantygel Messages postés 2 Date d'inscription samedi 24 juillet 2004 Statut Membre Dernière intervention 5 août 2004
3 août 2004 à 16:08
pardon,
j'ai ne suis pas arrive a telecharger correctment le zip. Ça arrive comme un fichier zipnix. Ce quoi ça?

Merci beaucoup !
ALan TYgel
---
ps: veuillez svp pardonez moi par les offences a la langue de molière, car je suis bresilien . Merci.
the_fonzarelli Messages postés 5 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 16 juillet 2004
15 juil. 2004 à 14:11
Merci c'est sympa pour le code, je vais essayer ça de suite !
ciao ciao
devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008
18 juin 2004 à 13:30
Merci pour ce code - pas mal.
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.