Envoi d'email (anonyme ou pas)

Télécharger le projet
Commenter

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...

@+
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (VicoLaChips2)