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