Envoi d'email (anonyme ou pas)

Soyez le premier à donner votre avis sur cette source.

Vue 14 221 fois - Téléchargée 1 800 fois

Description

Ce code utilise le composant aspemail 4.5 pour envoyer un email avec vb...

Source / Exemple :


'Pour fonctionner ce code a besoin de aspEmail :
'http://www.aspemail.com/download.html
'EN SUISSE vous avez le composant disponible dans
'X:\Program Files\Persits Software\AspEmail\BIN
'Ensuite dans projet références cocher la case
'persists software asp email 4.5
'dans voir->explorateur d'objets, regardez un peu !!
'et aussi : http://www.aspemail.com/manual.html
'---------------------------------------------------------------------------
'dans mon formulaire
Private Sub Command1_Click()
   Mailing.Send txt(0).Text, txt(1).Text, txt(2).Text, txt(3).Text, msg.Text
   'If Mailing.Send = True Then lblmsgTrue.Caption = "envoyé"
End Sub

'-----------------------------MODULE------------------------------------
Dim Mail As New MailSender
Public Function Send(From$, FromName$, Aqui$, Sujet$, msg$) As Boolean
    Mail.Host = "smtp.wanadoo.fr" ' Specify a valid SMTP server
    Mail.From = From$ ' Specify sender's address
    Mail.FromName = FromName$ ' Specify sender's name
    Mail.AddAddress Aqui$
    Mail.Subject = Sujet$
    Mail.Body = msg$
    On Error Resume Next
    Mail.Send
    If Err <> 0 Then
       MsgBox ("Il y a un problème: " & Err.Description)
    Else
        Send = True
    End If
End Function
'------------------------------------------vb@visuelsonic.com

Conclusion :


Bien sur on peut aller beaucoup plus loin vue les possibilités de la dll...

@+

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

DedeSurf
Messages postés
159
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011
-
VicoLaChips2 : L'expression Bug vien d'une bestiolle genre un papillon ! qui s'es retrouvé entre des relais se qui a causé un "bug" dans un programme ("Mark II").
DeathVB
Messages postés
44
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
31 octobre 2006
-
bug=bestiole
draluorg
Messages postés
627
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010
-
yep ms c papillon de nuit en fait je crois et c'etait frequent sur les premier "ordinateurs" ils se collait sur les tubes (empoules) attire par la lumiere et faisaient planter l'ordinateur....
balifoy
Messages postés
4
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
13 janvier 2004
-
Bug ca veu dire punaise en anglais et c t pasque la première chose qui a fait planter le premier calculateur était une punaise, et c rester... sinon bien la source ;o)
VicoLaChips2
Messages postés
439
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
1 -
faut expliquer pourquoi on met 1 :)

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.