Soyez le premier à donner votre avis sur cette source.
Vue 14 407 fois - Téléchargée 1 819 fois
'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
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.